From f7f2cc5da8b6c5d4b2eb294522217ed6f643dd04 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sun, 25 Feb 2007 22:01:08 +0000 Subject: (map-y-or-n-p): Apply minibuffer-prompt-properties. --- lisp/emacs-lisp/map-ynp.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp/map-ynp.el') 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 -- cgit v1.2.3