Commit 86936111 authored by Juri Linkov's avatar Juri Linkov

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.
parent 8d68025b
Pipeline #3995 failed with stage
in 90 minutes and 2 seconds
......@@ -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)
......
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment