diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-01-31 18:09:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-01-31 18:09:24 +0000 |
| commit | 191b577e117312b4576227eb4a75e2a96d64e76b (patch) | |
| tree | 71df6711ba1483561dd27ddcf35df7402104f41c /lisp/replace.el | |
| parent | 4d84a8d01f8d07f40d681237cc10e771a0c1ce99 (diff) | |
| download | emacs-191b577e117312b4576227eb4a75e2a96d64e76b.tar.gz | |
(multi-occur): Doc fix.
(multi-occur-in-matching-buffers): Renamed from
multi-occur-by-filename-regexp. Prefix arg says match
buffer names instead of file names.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 46f672a8d1a..8a17104c599 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -973,7 +973,8 @@ the matching is case-sensitive." (defun multi-occur (bufs regexp &optional nlines) "Show all lines in buffers BUFS containing a match for REGEXP. This function acts on multiple buffers; otherwise, it is exactly like -`occur'." +`occur'. When you invoke this command interactively, you must specify +the buffer names that you want, one by one." (interactive (cons (let* ((bufs (list (read-buffer "First buffer to search: " @@ -993,15 +994,19 @@ This function acts on multiple buffers; otherwise, it is exactly like (occur-read-primary-args))) (occur-1 regexp nlines bufs)) -(defun multi-occur-by-filename-regexp (bufregexp regexp &optional nlines) - "Show all lines matching REGEXP in buffers named by BUFREGEXP. +(defun multi-occur-in-matching-buffers (bufregexp regexp &optional allbufs) + "Show all lines matching REGEXP in buffers specified by BUFREGEXP. +Normally BUFREGEXP matches against each buffer's visited file name, +but if you specify a prefix argument, it matches against the buffer name. See also `multi-occur'." (interactive (cons (let* ((default (car regexp-history)) (input (read-from-minibuffer - "List lines in buffers whose filename matches regexp: " + (if allbufs + "List lines in buffers whose names match regexp: " + "List lines in buffers whose filenames match regexp: ") nil nil nil @@ -1014,9 +1019,12 @@ See also `multi-occur'." (occur-1 regexp nlines (delq nil (mapcar (lambda (buf) - (when (and (buffer-file-name buf) - (string-match bufregexp - (buffer-file-name buf))) + (when (if allbufs + (string-match bufregexp + (buffer-name buf)) + (and (buffer-file-name buf) + (string-match bufregexp + (buffer-file-name buf)))) buf)) (buffer-list)))))) |