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

lisp/ChangeLog

+2002-04-09  Pavel Jan,Bm(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'

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)