From 927be332ff98fea3abba7de92bb0837610640f1d Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Fri, 12 Apr 2002 05:50:50 +0000 Subject: [PATCH] (Fy_or_n_p): Use `minibuffer-prompt' face for prompt. --- src/fns.c | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/src/fns.c b/src/fns.c index 33b4b72cc96..638df6e94cd 100644 --- a/src/fns.c +++ b/src/fns.c @@ -2969,7 +2969,18 @@ is nil and `use-dialog-box' is non-nil. */) #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) { -- 2.39.2