(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.

diff --git a/lisp/replace.el b/lisp/replace.el
index e47fcdec264b34e646e5a246d9a89ca9b9befa57..449d47e09b88af28e8aef3099cd6c127671a165d 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -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))