summaryrefslogtreecommitdiff
path: root/lisp/autorevert.el
diff options
context:
space:
mode:
authorJuri Linkov <juri@linkov.net>2019-11-10 23:21:46 +0200
committerJuri Linkov <juri@linkov.net>2019-11-10 23:21:46 +0200
commit7e151f5bcfe431c31528743705e6ab56cf8dc220 (patch)
treea7a44848063b2e0483f57d5eb7d756edc77af137 /lisp/autorevert.el
parent0154e41b184a0b9938fafd9eca15399b4d5e477f (diff)
downloademacs-7e151f5bcfe431c31528743705e6ab56cf8dc220.tar.gz
* lisp/autorevert.el: Use 'minibuffer-message' to not obscure the prompt.
* 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.
Diffstat (limited to 'lisp/autorevert.el')
-rw-r--r--lisp/autorevert.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index 9275513c8d2..079750a3f6a 100644
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -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.