From: Pavel Janík <Pavel@Janik.cz>
Date: Tue, 9 Apr 2002 09:25:44 +0000 (+0000)
Subject: (isearch-message-prefix): Use minibuffer-prompt face for prompt.
X-Git-Tag: ttn-vms-21-2-B4~15730
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=153a9b8cc05e3112423de96e16d9f9f29666ac04;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5fe95ee52cb..555619a37e4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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'
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 502285a357b..7d2a4540c64 100644
--- 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)