diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2018-11-26 19:27:45 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2018-11-26 19:27:45 +0200 |
| commit | 03bb7a8da9d16dd3dbd5a3ce56adb449e808bf2a (patch) | |
| tree | 843a3ef74a6a71c6b282675cd919012da1bd95b6 /lisp | |
| parent | ea624626ccc2a108c3d6420d4f7ed3edae185425 (diff) | |
| download | emacs-03bb7a8da9d16dd3dbd5a3ce56adb449e808bf2a.tar.gz | |
Avoid clearing echo-area message by auto-save-visited-file-name
* 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)
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/map-ynp.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/map-ynp.el b/lisp/emacs-lisp/map-ynp.el index 8260af57278..93235bd9ece 100644 --- a/lisp/emacs-lisp/map-ynp.el +++ b/lisp/emacs-lisp/map-ynp.el @@ -79,6 +79,7 @@ are meaningful here. Returns the number of actions taken." (let* ((actions 0) + (msg (current-message)) user-keys mouse-event map prompt char elt def ;; Non-nil means we should use mouse menus to ask. use-menus @@ -250,9 +251,10 @@ the current %s and exit." (if delayed-switch-frame (setq 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)) - (message "")) + (message (or msg ""))) ;; Return the number of actions that were taken. actions)) |