Mercurial > emacs
changeset 44524:0626c87baa01
(Fy_or_n_p): Use `minibuffer-prompt' face for prompt.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Fri, 12 Apr 2002 05:50:50 +0000 |
| parents | 5fb0858a11da |
| children | 440ce7bfcd77 |
| files | src/fns.c |
| diffstat | 1 files changed, 12 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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) {