1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00

(multi-occur): Made "ido-aware":

Changed prompt to use C-j instead of RET to end.
Set ido-ignore-item-temp-list to the selected buffers so far, so
they are automatically excluded from the list of choices.
Use add-to-list instead of push.
This commit is contained in:
Kim F. Storm 2002-09-02 10:41:25 +00:00
parent 69beb26d2f
commit 52698d459a

View File

@ -673,14 +673,19 @@ This function acts on multiple buffers; otherwise, it is exactly like
`occur'."
(interactive
(cons
(let ((bufs (list (read-buffer "First buffer to search: "
(current-buffer) t)))
(buf nil))
(let* ((bufs (list (read-buffer "First buffer to search: "
(current-buffer) t)))
(buf nil)
(ido-ignore-item-temp-list bufs))
(while (not (string-equal
(setq buf (read-buffer "Next buffer to search (RET to end): "
nil t))
(setq buf (read-buffer
(if (eq read-buffer-function 'ido-read-buffer)
"Next buffer to search (C-j to end): "
"Next buffer to search (RET to end): ")
nil t))
""))
(push buf bufs))
(add-to-list 'bufs buf)
(setq ido-ignore-item-temp-list bufs))
(nreverse (mapcar #'get-buffer bufs)))
(occur-read-primary-args)))
(occur-1 regexp nlines bufs))