diff options
| author | Juri Linkov <juri@jurta.org> | 2013-07-04 02:11:58 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2013-07-04 02:11:58 +0300 |
| commit | 96673afeb28274a4495c35e49435ad25e3005a48 (patch) | |
| tree | 45f91006cd698dee44a42acf5a8b9db75732da96 /lisp/buff-menu.el | |
| parent | 924494f4c00822767ec350aab7466a928c05d168 (diff) | |
* lisp/buff-menu.el (Buffer-menu-multi-occur): Add args and move the
call of `occur-read-primary-args' to interactive spec.
* lisp/ibuffer.el (ibuffer-mode-map): Bind "M-s a C-o" to
`ibuffer-do-occur' like in buff-menu.el.
Fixes: debbugs:14673
Diffstat (limited to 'lisp/buff-menu.el')
| -rw-r--r-- | lisp/buff-menu.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 1eda9f1962..1db9b7229f 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -482,11 +482,10 @@ If UNMARK is non-nil, unmark them." (interactive) (multi-isearch-buffers-regexp (Buffer-menu-marked-buffers))) -(defun Buffer-menu-multi-occur () +(defun Buffer-menu-multi-occur (regexp &optional nlines) "Show all lines in marked buffers containing a match for a regexp." - (interactive) - (let ((regexp (occur-read-primary-args))) - (multi-occur (Buffer-menu-marked-buffers) (car regexp)))) + (interactive (occur-read-primary-args)) + (multi-occur (Buffer-menu-marked-buffers) regexp nlines)) (defun Buffer-menu-visit-tags-table () |