# HG changeset patch
# User Pavel Jan���k <Pavel@Janik.cz>
# Date 1018590650 0
# Node ID 0626c87baa0128d6692a3f4a92ede439f15b7a1f
# Parent  5fb0858a11da437ff9914a0ba71f703eaa16fea5
(Fy_or_n_p): Use `minibuffer-prompt' face for prompt.

diff -r 5fb0858a11da -r 0626c87baa01 src/fns.c
--- a/src/fns.c	Fri Apr 12 05:50:15 2002 +0000
+++ b/src/fns.c	Fri Apr 12 05:50:50 2002 +0000
@@ -2969,7 +2969,18 @@
 #endif /* HAVE_MENUS */
       cursor_in_echo_area = 1;
       choose_minibuf_frame ();
-      message_with_string ("%s(y or n) ", xprompt, 0);
+
+      {
+	Lisp_Object pargs[3];
+
+	/* Colorize prompt accordingly to `minibuffer-prompt-face'.  */
+	pargs[0] = build_string ("%s(y or n) ");
+	pargs[1] = intern ("face");
+	pargs[2] = intern ("minibuffer-prompt");
+	args[0] = Fpropertize (3, pargs);
+	args[1] = xprompt;
+	Fmessage (2, args);
+      }
 
       if (minibuffer_auto_raise)
 	{