procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/autorevert.el: Use 'minibuffer-message' to not obscure the prompt.

Browse source 
* lisp/autorevert.el (auto-revert-handler): Use 'minibuffer-message'
instead of 'message'.  Call it from the original window's buffer
that in case of the minibuffer should be current, so
minibuffer-message could add a message to it.  (Bug#34614)

* lisp/emacs-lisp/ert-x.el (ert--make-message-advice): Add nil to
the list of values to not use for format-message, because
minibuffer-message calls 'message' with nil argument, and tests fail.
This commit is contained in:
Juri Linkov 2019-11-10 23:21:46 +02:00
parent 0154e41b18
commit 7e151f5bcf
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/autorevert.el
View file

@ -815,7 +815,8 @@ This is an internal function used by Auto-Revert Mode."
(when revert
(when (and auto-revert-verbose
(not (eq revert 'fast)))
(message "Reverting buffer `%s'." (buffer-name)))
(with-current-buffer (window-buffer (old-selected-window))
(minibuffer-message "Reverting buffer `%s'." (buffer-name))))
;; If point (or a window point) is at the end of the buffer, we
;; want to keep it at the end after reverting. This allows one
;; to tail a file.

2
lisp/emacs-lisp/ert-x.el
View file

@ -321,7 +321,7 @@ code under test from the behavior of the *Messages* buffer."
COLLECTOR will be called with the message before it is passed
to the real `message'."
(lambda (func &rest args)
(if (or (null args) (equal (car args) ""))
(if (or (null args) (member (car args) '("" nil)))
(apply func args)
(let ((msg (apply #'format-message args)))
(funcall collector (concat msg "\n"))