From: Kim F. Storm <storm@cua.dk>
Date: Sun, 25 Feb 2007 22:01:08 +0000 (+0000)
Subject: (map-y-or-n-p): Apply minibuffer-prompt-properties.
X-Git-Tag: emacs-pretest-22.0.95~115
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f7f2cc5da8b6c5d4b2eb294522217ed6f643dd04;p=emacs.git

(map-y-or-n-p): Apply minibuffer-prompt-properties.
---

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