[Emacs-diffs] Changes to emacs/lisp/replace.el

[Kim F. Storm]

Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.156 emacs/lisp/replace.el:1.157
*** emacs/lisp/replace.el:1.156 Fri Aug 30 07:51:42 2002
--- emacs/lisp/replace.el       Mon Sep  2 06:41:25 2002
***************
*** 673,686 ****
  `occur'."
    (interactive
     (cons
!     (let ((bufs (list (read-buffer "First buffer to search: "
!                                  (current-buffer) t)))
!         (buf nil))
        (while (not (string-equal
!                  (setq buf (read-buffer "Next buffer to search (RET to end): "
!                                         nil t))
                   ""))
!       (push buf bufs))
        (nreverse (mapcar #'get-buffer bufs)))
      (occur-read-primary-args)))
    (occur-1 regexp nlines bufs))
--- 673,691 ----
  `occur'."
    (interactive
     (cons
!     (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 
!                             (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))
                   ""))
!       (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))