[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 8693611: Don't obscure the minibuffer by message (bug#17272)
From: |
Juri Linkov |
Subject: |
master 8693611: Don't obscure the minibuffer by message (bug#17272) |
Date: |
Sat, 9 Nov 2019 17:46:37 -0500 (EST) |
branch: master
commit 869361113613730d367b0f4966489d32ca533491
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>
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.
---
lisp/minibuffer.el | 5 +++++
lisp/subr.el | 4 ++--
2 files changed, 7 insertions(+), 2 deletions(-)
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 2b13438..6e72eb7 100644
--- 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 8ac2f86..ea56b49 100644
--- 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 8693611: Don't obscure the minibuffer by message (bug#17272),
Juri Linkov <=