diff options
author | Kim F. Storm <storm@cua.dk> | 2007-03-01 22:28:14 +0000 |
---|---|---|
committer | Kim F. Storm <storm@cua.dk> | 2007-03-01 22:28:14 +0000 |
commit | 3a5c4810ac55b8e7894b347cf800c11a3e9493f2 (patch) | |
tree | 28b4d2886a565f5becfeeda94b6323d9c07d84c7 /lisp/isearch.el | |
parent | 115f38b127f4736b7c04a66811c22b726199b1ef (diff) | |
download | emacs-3a5c4810ac55b8e7894b347cf800c11a3e9493f2.tar.gz |
2007-03-01 Lennart Borgman <lennart.borgman.073@student.lu.se>
(isearch-message-prefix): Use minibuffer-prompt-properties.
Diffstat (limited to 'lisp/isearch.el')
-rw-r--r-- | lisp/isearch.el | 5 |
1 files changed, 3 insertions, 2 deletions
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" "") |