diff options
| -rw-r--r-- | lisp/emacs-lisp/map-ynp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/map-ynp.el b/lisp/emacs-lisp/map-ynp.el index c40f1cf9b3a..d14394b97a0 100644 --- a/lisp/emacs-lisp/map-ynp.el +++ b/lisp/emacs-lisp/map-ynp.el | |||
| @@ -149,7 +149,8 @@ Returns the number of actions taken." | |||
| 149 | ;; Prompt in the echo area. | 149 | ;; Prompt in the echo area. |
| 150 | (let ((cursor-in-echo-area (not no-cursor-in-echo-area)) | 150 | (let ((cursor-in-echo-area (not no-cursor-in-echo-area)) |
| 151 | (message-log-max nil)) | 151 | (message-log-max nil)) |
| 152 | (message "%s(y, n, !, ., q, %sor %s) " | 152 | (message (apply 'propertize "%s(y, n, !, ., q, %sor %s) " |
| 153 | minibuffer-prompt-properties) | ||
| 153 | prompt user-keys | 154 | prompt user-keys |
| 154 | (key-description (vector help-char))) | 155 | (key-description (vector help-char))) |
| 155 | (if minibuffer-auto-raise | 156 | (if minibuffer-auto-raise |