diff options
| author | Juri Linkov | 2008-07-23 23:51:15 +0000 |
|---|---|---|
| committer | Juri Linkov | 2008-07-23 23:51:15 +0000 |
| commit | 3c0aa5e65b9dd3fb38ce095683423b072e42c1bd (patch) | |
| tree | c231e4189465f50b143cfcbf3a526469f0f4ffb0 | |
| parent | 29d2a698f87f091846051fc6eeb9528c8e25fb9c (diff) | |
| download | emacs-3c0aa5e65b9dd3fb38ce095683423b072e42c1bd.tar.gz emacs-3c0aa5e65b9dd3fb38ce095683423b072e42c1bd.zip | |
(isearch-message-prefix): Display "Multi" when
`multi-isearch-next-buffer-current-function' is non-nil.
(isearch-search-string): Replace `isearch-buffers-next-buffer-function'
with `multi-isearch-next-buffer-current-function', and
`isearch-buffers-current-buffer' with `multi-isearch-current-buffer'.
| -rw-r--r-- | lisp/isearch.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 130685fb882..2deb90e2f56 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -2111,6 +2111,7 @@ If there is no completion possible, say so and continue searching." | |||
| 2111 | (if isearch-wrapped "wrapped ") | 2111 | (if isearch-wrapped "wrapped ") |
| 2112 | (if isearch-word "word " "") | 2112 | (if isearch-word "word " "") |
| 2113 | (if isearch-regexp "regexp " "") | 2113 | (if isearch-regexp "regexp " "") |
| 2114 | (if multi-isearch-next-buffer-current-function "multi " "") | ||
| 2114 | (if nonincremental "search" "I-search") | 2115 | (if nonincremental "search" "I-search") |
| 2115 | (if isearch-forward "" " backward") | 2116 | (if isearch-forward "" " backward") |
| 2116 | (if current-input-method | 2117 | (if current-input-method |
| @@ -2179,9 +2180,9 @@ Can be changed via `isearch-search-fun-function' for special needs." | |||
| 2179 | (when pos1 | 2180 | (when pos1 |
| 2180 | ;; When using multiple buffers isearch, switch to the new buffer here, | 2181 | ;; When using multiple buffers isearch, switch to the new buffer here, |
| 2181 | ;; because `save-excursion' above doesn't allow doing it inside funcall. | 2182 | ;; because `save-excursion' above doesn't allow doing it inside funcall. |
| 2182 | (if (and isearch-buffers-next-buffer-function | 2183 | (if (and multi-isearch-next-buffer-current-function |
| 2183 | (buffer-live-p isearch-buffers-current-buffer)) | 2184 | (buffer-live-p multi-isearch-current-buffer)) |
| 2184 | (switch-to-buffer isearch-buffers-current-buffer)) | 2185 | (switch-to-buffer multi-isearch-current-buffer)) |
| 2185 | (goto-char pos1)) | 2186 | (goto-char pos1)) |
| 2186 | pos1)) | 2187 | pos1)) |
| 2187 | 2188 | ||