From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Matthias Meulien Newsgroups: gmane.emacs.bugs Subject: bug#14673: Fwd: Show all lines in marked buffers matching a regexp (with patch) Date: Thu, 20 Jun 2013 09:30:20 +0200 Message-ID: <51C2AF8C.1010005@gmail.com> References: <87a9mn0vxh.fsf_-_@gmail.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------020206010207030505040909" X-Trace: ger.gmane.org 1371741039 21530 80.91.229.3 (20 Jun 2013 15:10:39 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 20 Jun 2013 15:10:39 +0000 (UTC) To: 14673@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Thu Jun 20 17:10:39 2013 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1UpgVS-0006tp-Hq for geb-bug-gnu-emacs@m.gmane.org; Thu, 20 Jun 2013 17:10:38 +0200 Original-Received: from localhost ([::1]:41704 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UpgVK-0001Qv-5x for geb-bug-gnu-emacs@m.gmane.org; Thu, 20 Jun 2013 11:10:30 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:43938) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UpgV9-0001FK-H9 for bug-gnu-emacs@gnu.org; Thu, 20 Jun 2013 11:10:26 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UpgV0-0007Xu-4C for bug-gnu-emacs@gnu.org; Thu, 20 Jun 2013 11:10:19 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:36169) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UpgV0-0007Xq-14 for bug-gnu-emacs@gnu.org; Thu, 20 Jun 2013 11:10:10 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1UpgUy-0005Tz-Ur for bug-gnu-emacs@gnu.org; Thu, 20 Jun 2013 11:10:09 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Matthias Meulien Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 20 Jun 2013 15:10:08 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 14673 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.137174098821007 (code B ref -1); Thu, 20 Jun 2013 15:10:08 +0000 Original-Received: (at submit) by debbugs.gnu.org; 20 Jun 2013 15:09:48 +0000 Original-Received: from localhost ([127.0.0.1]:58713 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1UpgUc-0005Sk-Kc for submit@debbugs.gnu.org; Thu, 20 Jun 2013 11:09:47 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:37150) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1UpZKU-0008AN-7z for submit@debbugs.gnu.org; Thu, 20 Jun 2013 03:30:50 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UpZKL-0006eD-Px for submit@debbugs.gnu.org; Thu, 20 Jun 2013 03:30:44 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:49801) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UpZKL-0006e7-MR for submit@debbugs.gnu.org; Thu, 20 Jun 2013 03:30:41 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:38853) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UpZKI-00086b-Jm for bug-gnu-emacs@gnu.org; Thu, 20 Jun 2013 03:30:41 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UpZKD-0006cy-Fp for bug-gnu-emacs@gnu.org; Thu, 20 Jun 2013 03:30:38 -0400 Original-Received: from mail-bk0-x22f.google.com ([2a00:1450:4008:c01::22f]:56909) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UpZKD-0006c9-2a for bug-gnu-emacs@gnu.org; Thu, 20 Jun 2013 03:30:33 -0400 Original-Received: by mail-bk0-f47.google.com with SMTP id jg1so2671389bkc.6 for ; Thu, 20 Jun 2013 00:30:31 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=message-id:date:from:user-agent:mime-version:to:subject:references :in-reply-to:x-forwarded-message-id:content-type; bh=aGIyNazozAVNs9h2TV6oAnd+rk+gZMFc6Y2arFWl5dI=; b=M42MQVAKpdsoYTGUuS8UioxH79tehYmIZxgLdvTFy5BFLoSha2+fUIPCeBOAMvuUdM VXM1cthRAXlPpzbT3owZy6V9aLCrStfGQITfnk7yosj+pqlbsRJxTYUctHbRE+u2BdNK rI6cOAe6UmDXunP7OaFPMqhgc6X7Vi/nBKZ1OrAcywPb8kv5a8tdNYQugPDd7SNl+3VL xYyOHshwaxi7oxZk4UIoMTfxrff4jm/7lASIehG0hv6FZHoX6NxaBXuUYn8hgESUcPeK v8kCZBg8TZKdZTcJAXDkstrj64+7ILntvl9vPJxZrg3J+4Fy8v0Kts7O/zSe1bessFDK 5q8w== X-Received: by 10.204.58.137 with SMTP id g9mr882315bkh.119.1371713431259; Thu, 20 Jun 2013 00:30:31 -0700 (PDT) Original-Received: from [192.168.10.20] (LPuteaux-156-15-41-99.w82-127.abo.wanadoo.fr. [82.127.68.99]) by mx.google.com with ESMTPSA id da16sm8864048bkb.2.2013.06.20.00.30.30 for (version=TLSv1 cipher=ECDHE-RSA-RC4-SHA bits=128/128); Thu, 20 Jun 2013 00:30:30 -0700 (PDT) User-Agent: Mozilla/5.0 (Windows NT 6.0; rv:17.0) Gecko/20130509 Thunderbird/17.0.6 In-Reply-To: <87a9mn0vxh.fsf_-_@gmail.com> X-Forwarded-Message-Id: <87a9mn0vxh.fsf_-_@gmail.com> X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-Mailman-Approved-At: Thu, 20 Jun 2013 11:09:44 -0400 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:75394 Archived-At: This is a multi-part message in MIME format. --------------020206010207030505040909 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit Severity: wishlist Tags: patch -------- Message original -------- Return-Path: Received: from choubidou.localdomain (jau31-3-82-239-20-84.fbx.proxad.net. [82.239.20.84]) by mx.google.com with ESMTPSA id ev19sm5719919wid.2.2013.06.18.17.42.47 for (version=TLSv1.2 cipher=RC4-SHA bits=128/128); Tue, 18 Jun 2013 17:42:48 -0700 (PDT) From: Matthias Meulien To: emacs-devel@gnu.org Subject: Show all lines in marked buffers matching a regexp (with patch) References: <20130618.092933.35336000126336498.kazu@iij.ad.jp> <20130618.112719.2252126271017151770.kazu@iij.ad.jp> <8338sfs5ct.fsf@gnu.org> <20130619.064010.988324446963344956.kazu@iij.ad.jp> Date: Wed, 19 Jun 2013 02:46:18 +0200 In-Reply-To: <20130619.064010.988324446963344956.kazu@iij.ad.jp> ("Kazu Yamamoto \=\?utf-8\?B\?KOWxseacrOWSjOW9pikiJ3M\=\?\= message of "Wed, 19 Jun 2013 06:40:10 +0900 (JST)") Message-ID: <87a9mn0vxh.fsf_-_@gmail.com> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Don't you think the Buffer List should have a command to show all lines in marked buffers matching a regexp? An analog of `M-s a C-s' and `M-s a M-C-s' but using Multi Occur in place of ISearch. Here is a patch to lisp/buff-menu.el that adds such a command with key binding `M-s a C-o'. -- Matthias --------------020206010207030505040909 Content-Type: text/x-patch; name="0001-Extend-buffer-menu-with-command-to-show-lines-in-mar.patch" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename*0="0001-Extend-buffer-menu-with-command-to-show-lines-in-mar.pa"; filename*1="tch" >From a4f8d342ebad3f357ba470c8e7b56a36e57c4379 Mon Sep 17 00:00:00 2001 From: Matthias Meulien Date: Wed, 19 Jun 2013 02:28:22 +0200 Subject: [PATCH] Extend buffer menu with command to show lines in marked buffers matching a regexp --- lisp/buff-menu.el | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 6c02233..0ac109d 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -129,7 +129,8 @@ commands.") (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 @@ commands.") (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 @@ In Buffer Menu mode, the following commands are defined: 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,13 @@ If UNMARK is non-nil, unmark them." (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'." -- 1.8.3.1 --------------020206010207030505040909 Content-Type: text/plain; charset=windows-1252; name="Portion de message joint" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="Portion de message joint" Comments welcome, -- Matthias --------------020206010207030505040909--