(isearch-message-prefix): Use minibuffer-prompt face for prompt.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5fe95ee52cbaf9069cdb6d732eb41872d894457d..555619a37e46e818c4322fadf616491dc259f0fe 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-09  Pavel Jan\e,Bm\e(Bk  <Pavel@Janik.cz>
+
+       * isearch.el (isearch-message-prefix): Use minibuffer-prompt face
+       for prompt.
+
 2002-04-08  Stefan Monnier  <monnier@cs.yale.edu>
 
        * international/iso-acc.el (iso-accents-accent-key): Use `vector'

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 502285a357baa58eb7cade9e4dbf448a09499a06..7d2a4540c64c7027a19af6662c3b22beed36588d 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1600,7 +1600,7 @@ If there is no completion possible, say so and continue searching."
                       (concat " [" current-input-method-title "]: ")
                     ": ")
                   )))
-    (concat (upcase (substring m 0 1)) (substring m 1))))
+    (propertize (concat (upcase (substring m 0 1)) (substring m 1)) 'face 'minibuffer-prompt)))
 
 
 (defun isearch-message-suffix (&optional c-q-hack ellipsis)