diff options
Diffstat (limited to 'lisp/misearch.el')
| -rw-r--r-- | lisp/misearch.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/misearch.el b/lisp/misearch.el index 0c4cd4ea323..36b826b862a 100644 --- a/lisp/misearch.el +++ b/lisp/misearch.el @@ -262,11 +262,11 @@ whose names match the specified regexp." (multi-isearch-read-matching-buffers) (multi-isearch-read-buffers)))) (let ((multi-isearch-next-buffer-function - 'multi-isearch-next-buffer-from-list) - (multi-isearch-buffer-list (mapcar #'get-buffer buffers))) + 'multi-isearch-next-buffer-from-list)) + (setq multi-isearch-buffer-list (mapcar #'get-buffer buffers)) (switch-to-buffer (car multi-isearch-buffer-list)) (goto-char (if isearch-forward (point-min) (point-max))) - (isearch-forward))) + (isearch-forward nil t))) ;;;###autoload (defun multi-isearch-buffers-regexp (buffers) @@ -280,11 +280,11 @@ whose names match the specified regexp." (multi-isearch-read-matching-buffers) (multi-isearch-read-buffers)))) (let ((multi-isearch-next-buffer-function - 'multi-isearch-next-buffer-from-list) - (multi-isearch-buffer-list (mapcar #'get-buffer buffers))) + 'multi-isearch-next-buffer-from-list)) + (setq multi-isearch-buffer-list (mapcar #'get-buffer buffers)) (switch-to-buffer (car multi-isearch-buffer-list)) (goto-char (if isearch-forward (point-min) (point-max))) - (isearch-forward-regexp))) + (isearch-forward-regexp nil t))) ;;; Global multi-file search invocations @@ -346,11 +346,11 @@ whose file names match the specified wildcard." (multi-isearch-read-matching-files) (multi-isearch-read-files)))) (let ((multi-isearch-next-buffer-function - 'multi-isearch-next-file-buffer-from-list) - (multi-isearch-file-list (mapcar #'expand-file-name files))) + 'multi-isearch-next-file-buffer-from-list)) + (setq multi-isearch-file-list (mapcar #'expand-file-name files)) (find-file (car multi-isearch-file-list)) (goto-char (if isearch-forward (point-min) (point-max))) - (isearch-forward))) + (isearch-forward nil t))) ;;;###autoload (defun multi-isearch-files-regexp (files) @@ -365,11 +365,11 @@ whose file names match the specified wildcard." (multi-isearch-read-matching-files) (multi-isearch-read-files)))) (let ((multi-isearch-next-buffer-function - 'multi-isearch-next-file-buffer-from-list) - (multi-isearch-file-list (mapcar #'expand-file-name files))) + 'multi-isearch-next-file-buffer-from-list)) + (setq multi-isearch-file-list (mapcar #'expand-file-name files)) (find-file (car multi-isearch-file-list)) (goto-char (if isearch-forward (point-min) (point-max))) - (isearch-forward-regexp))) + (isearch-forward-regexp nil t))) (provide 'multi-isearch) |