From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Filipp Gunbin Newsgroups: gmane.emacs.bugs Subject: bug#20463: 25.0.50; New deletion commands in buffer-menu [PATCH] Date: Fri, 08 May 2015 14:18:24 +0300 Message-ID: References: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1431083970 26746 80.91.229.3 (8 May 2015 11:19:30 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 8 May 2015 11:19:30 +0000 (UTC) Cc: 20463@debbugs.gnu.org To: Stefan Monnier Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri May 08 13:19:15 2015 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 1YqgJG-000162-IG for geb-bug-gnu-emacs@m.gmane.org; Fri, 08 May 2015 13:19:14 +0200 Original-Received: from localhost ([::1]:54783 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YqgJA-0005WH-Tp for geb-bug-gnu-emacs@m.gmane.org; Fri, 08 May 2015 07:19:08 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:59728) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YqgJ8-0005WC-At for bug-gnu-emacs@gnu.org; Fri, 08 May 2015 07:19:07 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YqgJ5-0003wK-0Z for bug-gnu-emacs@gnu.org; Fri, 08 May 2015 07:19:06 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:56574) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YqgJ4-0003wE-NY for bug-gnu-emacs@gnu.org; Fri, 08 May 2015 07:19:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1YqgJ4-0000PI-Al for bug-gnu-emacs@gnu.org; Fri, 08 May 2015 07:19:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Filipp Gunbin Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 08 May 2015 11:19:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 20463 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch Original-Received: via spool by 20463-submit@debbugs.gnu.org id=B20463.14310839121499 (code B ref 20463); Fri, 08 May 2015 11:19:02 +0000 Original-Received: (at 20463) by debbugs.gnu.org; 8 May 2015 11:18:32 +0000 Original-Received: from localhost ([127.0.0.1]:38316 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1YqgIZ-0000O7-EU for submit@debbugs.gnu.org; Fri, 08 May 2015 07:18:31 -0400 Original-Received: from out4-smtp.messagingengine.com ([66.111.4.28]:41865) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1YqgIW-0000Nv-MS for 20463@debbugs.gnu.org; Fri, 08 May 2015 07:18:29 -0400 Original-Received: from compute1.internal (compute1.nyi.internal [10.202.2.41]) by mailout.nyi.internal (Postfix) with ESMTP id D856B209B4 for <20463@debbugs.gnu.org>; Fri, 8 May 2015 07:18:26 -0400 (EDT) Original-Received: from frontend2 ([10.202.2.161]) by compute1.internal (MEProxy); Fri, 08 May 2015 07:18:26 -0400 DKIM-Signature: v=1; a=rsa-sha1; c=relaxed/relaxed; d=fastmail.fm; h=cc :content-type:date:from:in-reply-to:message-id:mime-version :references:subject:to:x-sasl-enc:x-sasl-enc; s=mesmtp; bh=4kW3a Uy6m4RlxxPEHpemiDQHmKI=; b=G1CUa4ZdlOzdTPDDpqpapisMfh3B7HhIW6lxU 25dY2vw6Yeop5h/m3B/qoGHNpKEJAsPzq9gqNkAnphTc5iLp3gH5GQJskXj1ZWHT 5N7I26IOIuYS45uP1nlfddcjG1Xa1KVv4GZ68q8oQAo8RVBMYphp6r6rM26094N5 ENUsRU= DKIM-Signature: v=1; a=rsa-sha1; c=relaxed/relaxed; d= messagingengine.com; h=cc:content-type:date:from:in-reply-to :message-id:mime-version:references:subject:to:x-sasl-enc :x-sasl-enc; s=smtpout; bh=4kW3aUy6m4RlxxPEHpemiDQHmKI=; b=lbwLf EQ0e7BXheSzyiOHgAqHd59jiTulnWTPcpaiM0QFphtiW6rgKZkyL1qhoS0uvYOn/ eZC/hoLpdz6fci/8RoXP0iFAov4fAHu24D1DFl6kbXvgIK5HNEqsmnwWiUGpUrYc cMLMwTrSyF1l38l4WY+jNXJ7pWZnJPsDCo8kGg= X-Sasl-enc: blRBcQZLrvW91yoXja6DLZJL8G7LDunQUs9aVTljKMrr 1431083906 Original-Received: from fgunbin.local (unknown [94.25.218.10]) by mail.messagingengine.com (Postfix) with ESMTPA id 3DA7E6801EE; Fri, 8 May 2015 07:18:26 -0400 (EDT) In-Reply-To: (Stefan Monnier's message of "Fri, 01 May 2015 13:56:19 -0400") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.0.50 (darwin) 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:102593 Archived-At: --=-=-= Content-Type: text/plain On 01/05/2015 13:56 -0400, Stefan Monnier wrote: > As mentioned by someone else, we'd like to bring Ibuffer and buffer-menu > closer to each other, in terms of code and behavior. > > So I'm not opposed to adding the kind of feature you're requesting, but > as much as possible it should be done in a way that narrows the gap > between buffer-menu and Ibuffer. Code reuse would be ideal. Yes, that should be better than my proposal, I see. I thought about what I really need once again and I see two cases: 1) kill all log files 2) kill all remote files opened via ssh - they have "/ssh:" in their names So I wrote this simple function. What do you think? Sorry for the noise if no one is interested. Filipp --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=kill-matching-buffers-file-name.patch diff --git a/lisp/files.el b/lisp/files.el index ef6ac7b..a7b989f 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -5827,6 +5827,15 @@ The optional second argument indicates whether to kill internal buffers too." (string-match regexp name)) (kill-buffer-ask buffer))))) +(defun kill-matching-buffers-file-name (regexp) + "Kill buffers whose visited file name matches the specified REGEXP." + (interactive "sKill buffers visiting files matching this regular expression: ") + (dolist (buffer (buffer-list)) + (let ((file-name (buffer-file-name buffer))) + (when (and file-name + (string-match regexp file-name)) + (kill-buffer-ask buffer))))) + (defun rename-auto-save-file () "Adjust current buffer's auto save file name for current conditions. --=-=-=--