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 |