Mercurial > emacs
changeset 100737:ee29f2a93b76
(multi-isearch-next-buffer-function): Doc fix.
(multi-isearch-search-fun): Set the second arg WRAP to nil explicitly.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sun, 28 Dec 2008 23:45:53 +0000 |
| parents | a25212f9719b |
| children | fdd1168c1df6 |
| files | lisp/misearch.el |
| diffstat | 1 files changed, 11 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/misearch.el Sun Dec 28 13:58:10 2008 +0000 +++ b/lisp/misearch.el Sun Dec 28 23:45:53 2008 +0000 @@ -66,14 +66,19 @@ to the next buffer in the series and continues searching for the next occurrence. +This function should return the next buffer (it doesn't need to switch +to it), or nil if it can't find the next buffer (when it reaches the +end of the search space). + The first argument of this function is the current buffer where the search is currently searching. It defines the base buffer relative to which this function should find the next buffer. When the isearch direction is backward (when `isearch-forward' is nil), this function -should return the previous buffer to search. If the second argument of -this function WRAP is non-nil, then it should return the first buffer -in the series; and for the backward search, it should return the last -buffer in the series.") +should return the previous buffer to search. + +If the second argument of this function WRAP is non-nil, then it +should return the first buffer in the series; and for the backward +search, it should return the last buffer in the series.") ;;;###autoload (defvar multi-isearch-next-buffer-current-function nil @@ -153,7 +158,7 @@ (while (not found) ;; Find the next buffer to search (setq buffer (funcall multi-isearch-next-buffer-current-function - buffer)) + buffer nil)) (with-current-buffer buffer (goto-char (if isearch-forward (point-min) (point-max))) (setq isearch-barrier (point) isearch-opoint (point)) @@ -167,6 +172,7 @@ ;; Return point of the new search result found) ;; Return nil when multi-isearch-next-buffer-current-function fails + ;; (`with-current-buffer' raises an error for nil returned from it). (error nil)) (signal 'search-failed (list string "Repeat for next buffer"))))))))