Commit 924494f4 authored by Matthias Meulien's avatar Matthias Meulien Committed by Juri Linkov
Browse files

* lisp/buff-menu.el (Buffer-menu-mode-map): Bind "M-s a C-o" to

`Buffer-menu-multi-occur'.  Add it to the menu.
(Buffer-menu-mode): Document it in docstring.
(Buffer-menu-multi-occur): New command.

Fixes: debbugs:14673
parent 5aa43a3a
2013-07-03 Matthias Meulien <orontee@gmail.com>
* buff-menu.el (Buffer-menu-mode-map): Bind "M-s a C-o" to
`Buffer-menu-multi-occur'. Add it to the menu.
(Buffer-menu-mode): Document it in docstring.
(Buffer-menu-multi-occur): New command. (Bug#14673)
2013-07-03 Dmitry Gutov <dgutov@yandex.ru> 2013-07-03 Dmitry Gutov <dgutov@yandex.ru>
* progmodes/ruby-mode.el (ruby-font-lock-keywords): Highlight more * progmodes/ruby-mode.el (ruby-font-lock-keywords): Highlight more
...@@ -999,6 +1006,7 @@ ...@@ -999,6 +1006,7 @@
2013-06-18 Matthias Meulien <orontee@gmail.com> 2013-06-18 Matthias Meulien <orontee@gmail.com>
* tabify.el (untabify, tabify): With prefix, apply to entire buffer. * tabify.el (untabify, tabify): With prefix, apply to entire buffer.
<http://lists.gnu.org/archive/html/emacs-devel/2013-03/msg00545.html>
2013-06-18 Glenn Morris <rgm@gnu.org> 2013-06-18 Glenn Morris <rgm@gnu.org>
......
...@@ -129,6 +129,7 @@ commands.") ...@@ -129,6 +129,7 @@ commands.")
(define-key map "T" 'Buffer-menu-toggle-files-only) (define-key map "T" 'Buffer-menu-toggle-files-only)
(define-key map (kbd "M-s a C-s") 'Buffer-menu-isearch-buffers) (define-key map (kbd "M-s a C-s") 'Buffer-menu-isearch-buffers)
(define-key map (kbd "M-s a M-C-s") 'Buffer-menu-isearch-buffers-regexp) (define-key map (kbd "M-s a M-C-s") 'Buffer-menu-isearch-buffers-regexp)
(define-key map (kbd "M-s a C-o") 'Buffer-menu-multi-occur)
(define-key map [mouse-2] 'Buffer-menu-mouse-select) (define-key map [mouse-2] 'Buffer-menu-mouse-select)
(define-key map [follow-link] 'mouse-face) (define-key map [follow-link] 'mouse-face)
...@@ -169,6 +170,9 @@ commands.") ...@@ -169,6 +170,9 @@ commands.")
(bindings--define-key menu-map [ir] (bindings--define-key menu-map [ir]
'(menu-item "Isearch Marked Buffers..." Buffer-menu-isearch-buffers '(menu-item "Isearch Marked Buffers..." Buffer-menu-isearch-buffers
:help "Search for a string through all marked buffers using Isearch")) :help "Search for a string through all marked buffers using Isearch"))
(bindings--define-key menu-map [mo]
'(menu-item "Multi Occur Marked Buffers..." Buffer-menu-multi-occur
:help "Show lines matching a regexp in marked buffers using Occur"))
(bindings--define-key menu-map [s3] menu-bar-separator) (bindings--define-key menu-map [s3] menu-bar-separator)
(bindings--define-key menu-map [by] (bindings--define-key menu-map [by]
'(menu-item "Bury" Buffer-menu-bury '(menu-item "Bury" Buffer-menu-bury
...@@ -226,6 +230,7 @@ In Buffer Menu mode, the following commands are defined: ...@@ -226,6 +230,7 @@ In Buffer Menu mode, the following commands are defined:
buffer selected before this one in another window. buffer selected before this one in another window.
\\[Buffer-menu-isearch-buffers] Incremental search in the marked buffers. \\[Buffer-menu-isearch-buffers] Incremental search in the marked buffers.
\\[Buffer-menu-isearch-buffers-regexp] Isearch for regexp in the marked buffers. \\[Buffer-menu-isearch-buffers-regexp] Isearch for regexp in the marked buffers.
\\[Buffer-menu-multi-occur] Show lines matching regexp in the marked buffers.
\\[Buffer-menu-visit-tags-table] visit-tags-table this buffer. \\[Buffer-menu-visit-tags-table] visit-tags-table this buffer.
\\[Buffer-menu-not-modified] Clear modified-flag on that buffer. \\[Buffer-menu-not-modified] Clear modified-flag on that buffer.
\\[Buffer-menu-save] Mark that buffer to be saved, and move down. \\[Buffer-menu-save] Mark that buffer to be saved, and move down.
...@@ -477,6 +482,12 @@ If UNMARK is non-nil, unmark them." ...@@ -477,6 +482,12 @@ If UNMARK is non-nil, unmark them."
(interactive) (interactive)
(multi-isearch-buffers-regexp (Buffer-menu-marked-buffers))) (multi-isearch-buffers-regexp (Buffer-menu-marked-buffers)))
(defun Buffer-menu-multi-occur ()
"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))))
(defun Buffer-menu-visit-tags-table () (defun Buffer-menu-visit-tags-table ()
"Visit the tags table in the buffer on this line. See `visit-tags-table'." "Visit the tags table in the buffer on this line. See `visit-tags-table'."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment