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 | |
| 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.
| -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" "") |