Don't obscure the minibuffer by message (bug#17272)

* lisp/subr.el (do-after-load-evaluation): Use minibuffer-message
to not obscure a possibly active minibuffer.

* lisp/minibuffer.el (minibuffer-message):
Record message in the *Messages* buffer.

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 2b1343858f624fc4947ff06d78d244ad52986820..6e72eb73f991c4b15c791e82d6168ecf67432d3b 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -715,6 +715,11 @@ If ARGS are provided, then pass MESSAGE through `format-message'."
           (message "%s" message))
         (prog1 (sit-for (or minibuffer-message-timeout 1000000))
           (message nil)))
+    ;; Record message in the *Messages* buffer
+    (let ((inhibit-message t))
+      (if args
+          (apply #'message message args)
+        (message "%s" message)))
     ;; Clear out any old echo-area message to make way for our new thing.
     (message nil)
     (setq message (if (and (null args)

diff --git a/lisp/subr.el b/lisp/subr.el
index 8ac2f868c015a35fe3f9901c1de6a5f0b573b4bb..ea56b49087187173995d3ddb0f54c9ea70da1afc 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -4552,8 +4552,8 @@ This function is called directly from the C code."
              (byte-compile-warn "%s" msg))
          (run-with-timer 0 nil
                          (lambda (msg)
-                           (message "%s" msg))
-                          msg)))))
+                           (minibuffer-message "%s" msg))
+                         msg)))))
 
   ;; Finally, run any other hook.
   (run-hook-with-args 'after-load-functions abs-file))