mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(isearch-message-prefix-add)

Browse Source 
(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.
This commit is contained in:
Juri Linkov 2008-11-11 20:11:34 +00:00
parent 8365922029
commit ee9b85a84a
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/isearch.el
View File

@ -533,6 +533,9 @@ Each set is a vector of the form:
(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 there is no completion possible, say so and continue searching."
(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 @@ If there is no completion possible, say so and continue searching."
(concat (if c-q-hack "^Q" "")
(if isearch-error
(concat " [" isearch-error "]")
"")))
"")
(or isearch-message-suffix-add "")))
;; Searching