From unknown Sat Jun 21 05:15:36 2025 X-Loop: help-debbugs@gnu.org Subject: bug#14673: Fwd: Show all lines in marked buffers matching a regexp (with patch) 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 To: 14673@debbugs.gnu.org X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.137174098821007 (code B ref -1); Thu, 20 Jun 2013 15:10:08 +0000 Received: (at submit) by debbugs.gnu.org; 20 Jun 2013 15:09:48 +0000 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 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 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 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.0 required=5.0 tests=BAYES_40,FREEMAIL_FROM, T_DKIM_INVALID autolearn=disabled version=3.3.2 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 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 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 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 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) 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) Message-ID: <51C2AF8C.1010005@gmail.com> Date: Thu, 20 Jun 2013 09:30:20 +0200 From: Matthias Meulien User-Agent: Mozilla/5.0 (Windows NT 6.0; rv:17.0) Gecko/20130509 Thunderbird/17.0.6 MIME-Version: 1.0 References: <87a9mn0vxh.fsf_-_@gmail.com> In-Reply-To: <87a9mn0vxh.fsf_-_@gmail.com> X-Forwarded-Message-Id: <87a9mn0vxh.fsf_-_@gmail.com> Content-Type: multipart/mixed; boundary="------------020206010207030505040909" 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-Received-From: 2001:4830:134:3::11 X-Spam-Score: -4.3 (----) 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 List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -4.3 (----) 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-- From unknown Sat Jun 21 05:15:36 2025 X-Loop: help-debbugs@gnu.org Subject: bug#14673: Fwd: Show all lines in marked buffers matching a regexp (with patch) Resent-From: Juri Linkov Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 20 Jun 2013 23:12:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 14673 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch To: Matthias Meulien Cc: 14673@debbugs.gnu.org Received: via spool by 14673-submit@debbugs.gnu.org id=B14673.137176992024580 (code B ref 14673); Thu, 20 Jun 2013 23:12:01 +0000 Received: (at 14673) by debbugs.gnu.org; 20 Jun 2013 23:12:00 +0000 Received: from localhost ([127.0.0.1]:59493 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Upo1H-0006ON-SR for submit@debbugs.gnu.org; Thu, 20 Jun 2013 19:12:00 -0400 Received: from ps18281.dreamhost.com ([69.163.218.105]:45158 helo=ps18281.dreamhostps.com) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Upo1G-0006OF-6F for 14673@debbugs.gnu.org; Thu, 20 Jun 2013 19:11:58 -0400 Received: from localhost (ps18281.dreamhostps.com [69.163.218.105]) by ps18281.dreamhostps.com (Postfix) with ESMTP id 019E5258B9E915; Thu, 20 Jun 2013 16:11:56 -0700 (PDT) From: Juri Linkov Organization: JURTA References: <87a9mn0vxh.fsf_-_@gmail.com> <51C2AF8C.1010005@gmail.com> Date: Fri, 21 Jun 2013 02:10:40 +0300 In-Reply-To: <51C2AF8C.1010005@gmail.com> (Matthias Meulien's message of "Thu, 20 Jun 2013 09:30:20 +0200") Message-ID: <874ncswf7z.fsf@mail.jurta.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (x86_64-pc-linux-gnu) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: 0.0 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: 0.0 (/) > Severity: wishlist > Tags: patch > > Here is a patch to lisp/buff-menu.el that adds such a command with > key binding `M-s a C-o'. Provided there no objections I could commit it in a few days. From unknown Sat Jun 21 05:15:36 2025 MIME-Version: 1.0 X-Mailer: MIME-tools 5.503 (Entity 5.503) X-Loop: help-debbugs@gnu.org From: help-debbugs@gnu.org (GNU bug Tracking System) To: Matthias Meulien Subject: bug#14673: closed (Re: bug#14673: Fwd: Show all lines in marked buffers matching a regexp (with patch)) Message-ID: References: <8761wr9rdc.fsf@mail.jurta.org> <51C2AF8C.1010005@gmail.com> X-Gnu-PR-Message: they-closed 14673 X-Gnu-PR-Package: emacs X-Gnu-PR-Keywords: patch Reply-To: 14673@debbugs.gnu.org Date: Wed, 03 Jul 2013 23:06:03 +0000 Content-Type: multipart/mixed; boundary="----------=_1372892763-14212-1" This is a multi-part message in MIME format... ------------=_1372892763-14212-1 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="utf-8" Your bug report #14673: Fwd: Show all lines in marked buffers matching a regexp (with patch) which was filed against the emacs package, has been closed. The explanation is attached below, along with your original report. If you require more details, please reply to 14673@debbugs.gnu.org. --=20 14673: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D14673 GNU Bug Tracking System Contact help-debbugs@gnu.org with problems ------------=_1372892763-14212-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at 14673-done) by debbugs.gnu.org; 3 Jul 2013 23:05:51 +0000 Received: from localhost ([127.0.0.1]:55639 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1UuW7S-0003ga-IH for submit@debbugs.gnu.org; Wed, 03 Jul 2013 19:05:50 -0400 Received: from ps18281.dreamhost.com ([69.163.218.105]:45618 helo=ps18281.dreamhostps.com) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1UuW7R-0003gN-AB for 14673-done@debbugs.gnu.org; Wed, 03 Jul 2013 19:05:49 -0400 Received: from localhost (ps18281.dreamhostps.com [69.163.218.105]) by ps18281.dreamhostps.com (Postfix) with ESMTP id DA6A8258B9E915; Wed, 3 Jul 2013 16:05:47 -0700 (PDT) From: Juri Linkov To: Matthias Meulien Subject: Re: bug#14673: Fwd: Show all lines in marked buffers matching a regexp (with patch) Organization: JURTA References: <87a9mn0vxh.fsf_-_@gmail.com> <51C2AF8C.1010005@gmail.com> Date: Thu, 04 Jul 2013 02:05:19 +0300 In-Reply-To: <51C2AF8C.1010005@gmail.com> (Matthias Meulien's message of "Thu, 20 Jun 2013 09:30:20 +0200") Message-ID: <8761wr9rdc.fsf@mail.jurta.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (x86_64-pc-linux-gnu) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 14673-done Cc: 14673-done@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: 0.0 (/) Version: 24.3.50 > Severity: wishlist > Tags: patch > Here is a patch to lisp/buff-menu.el that adds such a command with > key binding `M-s a C-o'. Thanks, your patch is applied now. ------------=_1372892763-14212-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at submit) by debbugs.gnu.org; 20 Jun 2013 15:09:48 +0000 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 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 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 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.0 required=5.0 tests=BAYES_40,FREEMAIL_FROM, T_DKIM_INVALID autolearn=disabled version=3.3.2 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 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 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 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 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) 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) Message-ID: <51C2AF8C.1010005@gmail.com> Date: Thu, 20 Jun 2013 09:30:20 +0200 From: Matthias Meulien User-Agent: Mozilla/5.0 (Windows NT 6.0; rv:17.0) Gecko/20130509 Thunderbird/17.0.6 MIME-Version: 1.0 To: bug-gnu-emacs@gnu.org Subject: Fwd: Show all lines in marked buffers matching a regexp (with patch) References: <87a9mn0vxh.fsf_-_@gmail.com> In-Reply-To: <87a9mn0vxh.fsf_-_@gmail.com> X-Forwarded-Message-Id: <87a9mn0vxh.fsf_-_@gmail.com> Content-Type: multipart/mixed; boundary="------------020206010207030505040909" 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-Received-From: 2001:4830:134:3::11 X-Spam-Score: -4.3 (----) X-Debbugs-Envelope-To: submit 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 List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -4.3 (----) 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-- ------------=_1372892763-14212-1--