# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1172788094 0
# Node ID 6ad212461ddf4623a3d0a75b892eecbc0eb12322
# Parent  e4ba5b3d742010645c8fdcf2159d76a12b7aa54c
2007-03-01  Lennart Borgman  <lennart.borgman.073@student.lu.se>

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

diff -r e4ba5b3d7420 -r 6ad212461ddf lisp/isearch.el
--- a/lisp/isearch.el	Thu Mar 01 22:27:47 2007 +0000
+++ b/lisp/isearch.el	Thu Mar 01 22:28:14 2007 +0000
@@ -1957,8 +1957,9 @@
 		       (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" "")