Re: Is there a way to avoid clobbering minibuffer by messages?

[Gregory Heytings <gregory@heytings.org>]

[-- Attachment #1: Type: text/plain, Size: 344 bytes --]


>> I think of modeline as something buffer-specific, so I don't want to 
>> put global messages there.
>
> In that case you can try the other file I posted, with which messages 
> are displayed in a popup buffer.
>

Here it is again, with a few corrections.  Again messages are displayed in 
a popup buffer only when the minibuffer is active.

[-- Attachment #2: popup-buffer-minibuffer-message.el --]
[-- Type: text/plain, Size: 1767 bytes --]

(defvar popup-buffer-minibuffer-message-window nil)
(defvar popup-buffer-minibuffer-message-timer nil)
(defun popup-buffer-minibuffer-message-clear ()
  (when (not noninteractive)
    (when (timerp minibuffer-message-timer)
      (cancel-timer popup-buffer-minibuffer-message-timer)
      (when (window-live-p popup-buffer-minibuffer-message-window)
	(delete-window popup-buffer-minibuffer-message-window)))))
(defun popup-buffer-minibuffer-message-set (message)
  (let* ((minibuf-window (active-minibuffer-window))
         (minibuf-frame (and (window-live-p minibuf-window)
                             (window-frame minibuf-window))))
    (when (and (not noninteractive)
               (window-live-p minibuf-window)
               (or (eq (window-frame) minibuf-frame)
                   (eq (frame-parameter minibuf-frame 'minibuffer) 'only)))
      (progn
        (when (numberp minibuffer-message-clear-timeout)
          (setq popup-buffer-minibuffer-message-timer
                (run-with-timer minibuffer-message-clear-timeout nil
                                #'popup-buffer-minibuffer-message-clear)))
	(let ((buffer (get-buffer-create " *Popup Echo Area*")))
	  (unless (window-live-p popup-buffer-minibuffer-message-window)
	    (setq popup-buffer-minibuffer-message-window
		  (display-buffer
		   buffer
		   '(display-buffer-in-side-window (window-height . 1)))))
	  (with-current-buffer buffer
	    (setq-local mode-line-format nil cursor-type nil)
	    (erase-buffer)
	    (insert message))
	  (fit-window-to-buffer popup-buffer-minibuffer-message-window
				10 1))
	t))))
(setq clear-message-function #'popup-buffer-minibuffer-message-clear)
(setq set-message-function #'popup-buffer-minibuffer-message-set)