Mercurial > emacs
comparison lisp/isearch.el @ 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 | 034bef9118e6 |
comparison
equal
deleted
inserted
replaced
99494:f48868476344 | 99495:7425e5547fbd |
---|---|
530 [STRING MESSAGE POINT SUCCESS FORWARD OTHER-END WORD | 530 [STRING MESSAGE POINT SUCCESS FORWARD OTHER-END WORD |
531 INVALID-REGEXP WRAPPED BARRIER WITHIN-BRACKETS CASE-FOLD-SEARCH]") | 531 INVALID-REGEXP WRAPPED BARRIER WITHIN-BRACKETS CASE-FOLD-SEARCH]") |
532 | 532 |
533 (defvar isearch-string "") ; The current search string. | 533 (defvar isearch-string "") ; The current search string. |
534 (defvar isearch-message "") ; text-char-description version of isearch-string | 534 (defvar isearch-message "") ; text-char-description version of isearch-string |
535 | |
536 (defvar isearch-message-prefix-add nil) ; Additonal text for the message prefix | |
537 (defvar isearch-message-suffix-add nil) ; Additonal text for the message suffix | |
535 | 538 |
536 (defvar isearch-success t) ; Searching is currently successful. | 539 (defvar isearch-success t) ; Searching is currently successful. |
537 (defvar isearch-error nil) ; Error message for failed search. | 540 (defvar isearch-error nil) ; Error message for failed search. |
538 (defvar isearch-other-end nil) ; Start (end) of match if forward (backward). | 541 (defvar isearch-other-end nil) ; Start (end) of match if forward (backward). |
539 (defvar isearch-wrapped nil) ; Searching restarted from the top (bottom). | 542 (defvar isearch-wrapped nil) ; Searching restarted from the top (bottom). |
2161 "over") | 2164 "over") |
2162 (if isearch-wrapped "wrapped ") | 2165 (if isearch-wrapped "wrapped ") |
2163 (if isearch-word "word " "") | 2166 (if isearch-word "word " "") |
2164 (if isearch-regexp "regexp " "") | 2167 (if isearch-regexp "regexp " "") |
2165 (if multi-isearch-next-buffer-current-function "multi " "") | 2168 (if multi-isearch-next-buffer-current-function "multi " "") |
2169 (or isearch-message-prefix-add "") | |
2166 (if nonincremental "search" "I-search") | 2170 (if nonincremental "search" "I-search") |
2167 (if isearch-forward "" " backward") | 2171 (if isearch-forward "" " backward") |
2168 (if current-input-method | 2172 (if current-input-method |
2169 (concat " [" current-input-method-title "]: ") | 2173 (concat " [" current-input-method-title "]: ") |
2170 ": ") | 2174 ": ") |
2174 | 2178 |
2175 (defun isearch-message-suffix (&optional c-q-hack ellipsis) | 2179 (defun isearch-message-suffix (&optional c-q-hack ellipsis) |
2176 (concat (if c-q-hack "^Q" "") | 2180 (concat (if c-q-hack "^Q" "") |
2177 (if isearch-error | 2181 (if isearch-error |
2178 (concat " [" isearch-error "]") | 2182 (concat " [" isearch-error "]") |
2179 ""))) | 2183 "") |
2184 (or isearch-message-suffix-add ""))) | |
2180 | 2185 |
2181 | 2186 |
2182 ;; Searching | 2187 ;; Searching |
2183 | 2188 |
2184 (defvar isearch-search-fun-function nil | 2189 (defvar isearch-search-fun-function nil |