Mercurial > emacs
changeset 99495:7425e5547fbd
(isearch-message-prefix-add)
(isearch-message-suffix-add): New variables.
(isearch-message-prefix): Show additional text from
`isearch-message-prefix-add' before "I-search".
(isearch-message-suffix): Show additional text from
`isearch-message-suffix-add' at the end.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Tue, 11 Nov 2008 20:11:34 +0000 |
| parents | f48868476344 |
| children | 3701681d219c |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Tue Nov 11 19:57:04 2008 +0000 +++ b/lisp/isearch.el Tue Nov 11 20:11:34 2008 +0000 @@ -533,6 +533,9 @@ (defvar isearch-string "") ; The current search string. (defvar isearch-message "") ; text-char-description version of isearch-string +(defvar isearch-message-prefix-add nil) ; Additonal text for the message prefix +(defvar isearch-message-suffix-add nil) ; Additonal text for the message suffix + (defvar isearch-success t) ; Searching is currently successful. (defvar isearch-error nil) ; Error message for failed search. (defvar isearch-other-end nil) ; Start (end) of match if forward (backward). @@ -2163,6 +2166,7 @@ (if isearch-word "word " "") (if isearch-regexp "regexp " "") (if multi-isearch-next-buffer-current-function "multi " "") + (or isearch-message-prefix-add "") (if nonincremental "search" "I-search") (if isearch-forward "" " backward") (if current-input-method @@ -2176,7 +2180,8 @@ (concat (if c-q-hack "^Q" "") (if isearch-error (concat " [" isearch-error "]") - ""))) + "") + (or isearch-message-suffix-add ""))) ;; Searching