comparison lisp/replace.el @ 47204:539aabdebd62

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

47203:d7ff55da60cd

  "Show all lines in buffers BUFS containing a match for REGEXP.
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))
      (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))

(defun multi-occur-by-filename-regexp (bufregexp regexp &optional nlines)

47204:539aabdebd62

  "Show all lines in buffers BUFS containing a match for REGEXP.
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)
	   (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))

(defun multi-occur-by-filename-regexp (bufregexp regexp &optional nlines)