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

[Gregory Heytings <gregory@heytings.org>]

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


>>>> It's not perhaps the solution that would suit everyone, but I'd bet 
>>>> some users will prefer that to the way they are currently displayed. 
>>>> A third option would indeed be a kind of pop-up buffer.  And there 
>>>> are probably other options.
>>> 
>>> Popup buffer and popup frame (perhaps a child frame?) are IMO the only 
>>> viable alternatives that are worth having in Emacs.
>> 
>> A popup frame is not an option for terminal users.  A popup buffer 
>> could be an option, but if I had to choose between the two, I think I 
>> would choose the mode-line one, which is IMO less disturbing.
>
> And here is (a first draft of) the code for a popup buffer.
>

Two typos corrected.

[-- Attachment #2: popup-buffer-minibuffer-message.el --]
[-- Type: text/plain, Size: 1723 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
		     (side . bottom)
		     (window-height . 1)))))
	  (with-current-buffer buffer
	    (setq-local mode-line-format nil cursor-type nil)
	    (erase-buffer)
	    (insert message)))
	t))))
(setq clear-message-function #'popup-buffer-minibuffer-message-clear)
(setq set-message-function #'popup-buffer-minibuffer-message-set)