value `buffer' of `multi-isearch-next-buffer-current-function'.
Use `(current-buffer)' when `buffer' is nil.
(multi-isearch-next-buffer-from-list): Don't fallback to
`(current-buffer)' when `buffer' is nil. (Bug#4947)
* vc-git.el (vc-git-registered): Call vc-git-root only once.
+2009-11-30 Juri Linkov <juri@jurta.org>
+
+ * misearch.el (multi-isearch-search-fun): Always provide a non-nil
+ value `buffer' of `multi-isearch-next-buffer-current-function'.
+ Use `(current-buffer)' when `buffer' is nil.
+ (multi-isearch-next-buffer-from-list): Don't fallback to
+ `(current-buffer)' when `buffer' is nil. (Bug#4947)
+
2009-11-30 Juri Linkov <juri@jurta.org>
* misearch.el (multi-isearch-read-buffers): Move canonicalization
(while (not found)
;; Find the next buffer to search
(setq buffer (funcall multi-isearch-next-buffer-current-function
- buffer nil))
+ (or buffer (current-buffer)) nil))
(with-current-buffer buffer
(goto-char (if isearch-forward (point-min) (point-max)))
(setq isearch-barrier (point) isearch-opoint (point))
(reverse multi-isearch-buffer-list))))
(if wrap
(car buffers)
- (cadr (member (or buffer (current-buffer)) buffers)))))
+ (cadr (member buffer buffers)))))
(defun multi-isearch-read-buffers ()
"Return a list of buffers specified interactively, one by one."