Commit 03bb7a8d authored by Eli Zaretskii's avatar Eli Zaretskii

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)
parent ea624626
Pipeline #150 passed with stage
in 26 minutes and 23 seconds
......@@ -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.
......@@ -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.
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