procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Avoid clearing echo-area message by auto-save-visited-file-name

Browse source 
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p): Record the
previous echo-area message, if any, and restore it before
exiting.  (Bug#33490)
This commit is contained in:
Eli Zaretskii 2018-11-26 19:27:45 +02:00
parent ea624626cc
commit 03bb7a8da9
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/map-ynp.el
View file

@ -79,6 +79,7 @@ are meaningful here.
Returns the number of actions taken." Returns the number of actions taken."
(let* ((actions 0) (let* ((actions 0)
(msg (current-message))
user-keys mouse-event map prompt char elt def user-keys mouse-event map prompt char elt def
;; Non-nil means we should use mouse menus to ask. ;; Non-nil means we should use mouse menus to ask.
use-menus use-menus
@ -250,9 +251,10 @@ the current %s and exit."
(if delayed-switch-frame (if delayed-switch-frame
(setq unread-command-events (setq unread-command-events
(cons delayed-switch-frame unread-command-events)))) (cons delayed-switch-frame unread-command-events))))
;; Clear the last prompt from the minibuffer. ;; Clear the last prompt from the minibuffer, and restore the
;; previous echo-area message, if any.
(let ((message-log-max nil)) (let ((message-log-max nil))
(message "")) (message (or msg "")))
;; Return the number of actions that were taken. ;; Return the number of actions that were taken.
actions)) actions))