diff options
| author | Tino Calancha | 2016-06-05 01:06:12 +0300 |
|---|---|---|
| committer | Juri Linkov | 2016-06-05 01:06:12 +0300 |
| commit | 700afe62a4cbd9ecf24551ddc4747e6319fb51a2 (patch) | |
| tree | c7e8588595c4de3895dccf72fe6b8c9eecbb4b3b | |
| parent | abfe07ad61d6f95c3dc0b1aee179a397f1d0f9fc (diff) | |
| download | emacs-700afe62a4cbd9ecf24551ddc4747e6319fb51a2.tar.gz emacs-700afe62a4cbd9ecf24551ddc4747e6319fb51a2.zip | |
isearch-edit-string resumes multi isearches
* lisp/isearch.el (with-isearch-suspended): Remember and restore
multi-isearch variables. (Bug#21663)
| -rw-r--r-- | lisp/isearch.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 7360a0b3742..eabf05b0b17 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -1259,6 +1259,11 @@ You can update the global isearch variables by setting new values to | |||
| 1259 | (isearch-adjusted isearch-adjusted) | 1259 | (isearch-adjusted isearch-adjusted) |
| 1260 | (isearch-yank-flag isearch-yank-flag) | 1260 | (isearch-yank-flag isearch-yank-flag) |
| 1261 | (isearch-error isearch-error) | 1261 | (isearch-error isearch-error) |
| 1262 | |||
| 1263 | (multi-isearch-file-list-new multi-isearch-file-list) | ||
| 1264 | (multi-isearch-buffer-list-new multi-isearch-buffer-list) | ||
| 1265 | (multi-isearch-next-buffer-function multi-isearch-next-buffer-current-function) | ||
| 1266 | (multi-isearch-current-buffer-new multi-isearch-current-buffer) | ||
| 1262 | ;;; Don't bind this. We want isearch-search, below, to set it. | 1267 | ;;; Don't bind this. We want isearch-search, below, to set it. |
| 1263 | ;;; And the old value won't matter after that. | 1268 | ;;; And the old value won't matter after that. |
| 1264 | ;;; (isearch-other-end isearch-other-end) | 1269 | ;;; (isearch-other-end isearch-other-end) |
| @@ -1313,7 +1318,10 @@ You can update the global isearch variables by setting new values to | |||
| 1313 | isearch-message isearch-new-message | 1318 | isearch-message isearch-new-message |
| 1314 | isearch-forward isearch-new-forward | 1319 | isearch-forward isearch-new-forward |
| 1315 | isearch-regexp-function isearch-new-regexp-function | 1320 | isearch-regexp-function isearch-new-regexp-function |
| 1316 | isearch-case-fold-search isearch-new-case-fold) | 1321 | isearch-case-fold-search isearch-new-case-fold |
| 1322 | multi-isearch-current-buffer multi-isearch-current-buffer-new | ||
| 1323 | multi-isearch-file-list multi-isearch-file-list-new | ||
| 1324 | multi-isearch-buffer-list multi-isearch-buffer-list-new) | ||
| 1317 | 1325 | ||
| 1318 | ;; Restore the minibuffer message before moving point. | 1326 | ;; Restore the minibuffer message before moving point. |
| 1319 | (funcall (or isearch-message-function #'isearch-message) nil t) | 1327 | (funcall (or isearch-message-function #'isearch-message) nil t) |