在底部显示缓冲区以弹出消息

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>>

Answer 1

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