[Emacs-diffs] trunk r113273: * lisp/buff-menu.el (Buffer-menu-mode-map): Bind "M-s a C-o" to

[Juri Linkov]

------------------------------------------------------------
revno: 113273
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/14673
author: Matthias Meulien <address@hidden>
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Thu 2013-07-04 02:04:55 +0300
message:
  * 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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/buff-menu.el              buffmenu.el-20091113204419-o5vbwnq5f7feedwu-197

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-07-03 15:46:45 +0000
+++ b/lisp/ChangeLog    2013-07-03 23:04:55 +0000
@@ -1,3 +1,10 @@
+2013-07-03  Matthias Meulien  <address@hidden>
+
+       * 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  <address@hidden>
 
        * progmodes/ruby-mode.el (ruby-font-lock-keywords): Highlight more
@@ -999,6 +1006,7 @@
 2013-06-18  Matthias Meulien  <address@hidden>
 
        * 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  <address@hidden>
 

=== modified file 'lisp/buff-menu.el'
--- a/lisp/buff-menu.el 2013-01-01 09:11:05 +0000
+++ b/lisp/buff-menu.el 2013-07-03 23:04:55 +0000
@@ -129,6 +129,7 @@
     (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 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 [follow-link] 'mouse-face)
@@ -169,6 +170,9 @@
     (bindings--define-key menu-map [ir]
       '(menu-item "Isearch Marked Buffers..." Buffer-menu-isearch-buffers
                 :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 [by]
       '(menu-item "Bury" Buffer-menu-bury
@@ -226,6 +230,7 @@
      buffer selected before this one in another window.
 \\[Buffer-menu-isearch-buffers]    Incremental search 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-not-modified]    Clear modified-flag on that buffer.
 \\[Buffer-menu-save]    Mark that buffer to be saved, and move down.
@@ -477,6 +482,12 @@
   (interactive)
   (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 ()
   "Visit the tags table in the buffer on this line.  See `visit-tags-table'."