doomemacs/core/autoload/message.el

17 lines
425 B
EmacsLisp
Raw Normal View History

;;; message.el
(provide 'doom-lib-message)
;;;###autoload
(defun doom-message-buffer ()
(let ((buffer (get-buffer-create " *doom-messages*")))
(unless (get-buffer-window-list buffer)
(doom-popup-buffer buffer))))
;;;###autoload
(defun doom-message (format &rest args)
(if noninteractive
(apply 'message format args)
(with-current-buffer (doom-message-buffer)
(insert (format format args)))))