从底部显示缓冲区弹出消息

Question

我写了这样一个函数在底部弹出一个缓冲区

(defun popup-new-message (msg)
  (interactive
   (let ((buffer (generate-new-buffer "pop-message")))
     (with-current-buffer buffer
       (insert msg))
     (display-buffer buffer '(display-buffer-at-bottom . nil)))
   ))
(popup-new-message "It's time to have a rest.")

运行时，什么也没发生。

有什么问题？

我检查了generate-new-buffer和display-message的功能是否正常工作>

#+begin_src emacs-lisp :tangle yes
(let ((buffer (generate-new-buffer "pop-message")))
  (print buffer))
#+end_src

#+RESULTS:
: #<buffer pop-message<2>>

我写了这样一个函数，在底部弹出一个缓冲区（defun popup-new-message（msg）（interactive（let（（buffer（generate-new-buffer“ pop-message”））））（with-current -buffer缓冲区（...

Answer 1

您的（交互式S-EXP未正确关闭。