From: Kim F. Storm <storm@cua.dk>
Date: Thu, 1 Mar 2007 22:28:14 +0000 (+0000)
Subject: 2007-03-01  Lennart Borgman  <lennart.borgman.073@student.lu.se>
X-Git-Tag: emacs-pretest-22.0.95~3
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3a5c4810ac55b8e7894b347cf800c11a3e9493f2;p=emacs.git

2007-03-01  Lennart Borgman  <lennart.borgman.073@student.lu.se>

(isearch-message-prefix): Use minibuffer-prompt-properties.
---

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 2f17af43c14..612af7e0ecd 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1957,8 +1957,9 @@ If there is no completion possible, say so and continue searching."
 		       (concat " [" current-input-method-title "]: ")
 		     ": ")
 		   )))
-    (propertize (concat (upcase (substring m 0 1)) (substring m 1))
-		'face 'minibuffer-prompt)))
+    (apply 'propertize
+	   (concat (upcase (substring m 0 1)) (substring m 1))
+	   minibuffer-prompt-properties)))
 
 (defun isearch-message-suffix (&optional c-q-hack ellipsis)
   (concat (if c-q-hack "^Q" "")