diff options
| author | Kim F. Storm <storm@cua.dk> | 2007-02-25 22:01:08 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2007-02-25 22:01:08 +0000 |
| commit | f7f2cc5da8b6c5d4b2eb294522217ed6f643dd04 (patch) | |
| tree | a9ac3bd75f26694edeb03a8ab0dc09c9c3f8fd91 /lisp/emacs-lisp/map-ynp.el | |
| parent | 4b547e5acf67ec3de0a9e106ea69a34121de4215 (diff) | |
| download | emacs-f7f2cc5da8b6c5d4b2eb294522217ed6f643dd04.tar.gz emacs-f7f2cc5da8b6c5d4b2eb294522217ed6f643dd04.tar.bz2 emacs-f7f2cc5da8b6c5d4b2eb294522217ed6f643dd04.zip | |
(map-y-or-n-p): Apply minibuffer-prompt-properties.
Diffstat (limited to 'lisp/emacs-lisp/map-ynp.el')
| -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." ;; Prompt in the echo area. (let ((cursor-in-echo-area (not no-cursor-in-echo-area)) (message-log-max nil)) - (message "%s(y, n, !, ., q, %sor %s) " + (message (apply 'propertize "%s(y, n, !, ., q, %sor %s) " + minibuffer-prompt-properties) prompt user-keys (key-description (vector help-char))) (if minibuffer-auto-raise |