* 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.

diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index 9275513c8d2938479315260926a70b39ce511ddc..079750a3f6ace10fa5b825f81e02898503347ed5 100644 (file)
--- 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.

diff --git a/lisp/emacs-lisp/ert-x.el b/lisp/emacs-lisp/ert-x.el
index ee561d5b953d80783b518db0b256bf70276e2c50..d09d3ae11e385259a51d689117adfdbfaa429b1e 100644 (file)
--- a/lisp/emacs-lisp/ert-x.el
+++ b/lisp/emacs-lisp/ert-x.el
@@ -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"))