# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1172440868 0
# Node ID 77405acb8332156e2e000c03855b13c2f8050917
# Parent  56b74c2d1a39ad74d4ef90944d9af2c36d9f0a9b
(map-y-or-n-p): Apply minibuffer-prompt-properties.

diff -r 56b74c2d1a39 -r 77405acb8332 lisp/emacs-lisp/map-ynp.el
--- a/lisp/emacs-lisp/map-ynp.el	Sun Feb 25 22:00:58 2007 +0000
+++ b/lisp/emacs-lisp/map-ynp.el	Sun Feb 25 22:01:08 2007 +0000
@@ -149,7 +149,8 @@
 		     ;; 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