From: Glenn Morris <rgm@gnu.org>
To: 27286-done@debbugs.gnu.org
Subject: bug#27286: 25.2; kill-matching-buffers without confirmation
Date: Mon, 19 Jun 2017 21:35:53 -0400 [thread overview]
Message-ID: <i260frzbie.fsf@fencepost.gnu.org> (raw)
In-Reply-To: <1078456524.8697835.1496933777333@mail.yahoo.com> (R. Diez's message of "Thu, 8 Jun 2017 14:56:17 +0000 (UTC)")
Version: 26.1
I applied the following, though I was tempted to say that this function
should only be used interactively, and that if you want some other
behaviour, you should code your own function.
commit 70d01da
Date: Mon Jun 19 21:31:50 2017 -0400
kill-matching-buffers to optionally not confirm
* lisp/files.el (kill-matching-buffers):
Add option to not confirm killing. (Bug#27286)
diff --git a/lisp/files.el b/lisp/files.el
index 2930f30..06f49bb 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -6077,16 +6077,18 @@ specifies the list of buffers to kill, asking for approval for each one."
(kill-buffer-ask buffer)))
(setq list (cdr list))))
-(defun kill-matching-buffers (regexp &optional internal-too)
+(defun kill-matching-buffers (regexp &optional internal-too no-ask)
"Kill buffers whose name matches the specified REGEXP.
-The optional second argument indicates whether to kill internal buffers too."
+Ignores buffers whose name starts with a space, unless optional
+prefix argument INTERNAL-TOO is non-nil. Asks before killing
+each buffer, unless NO-ASK is non-nil."
(interactive "sKill buffers matching this regular expression: \nP")
(dolist (buffer (buffer-list))
(let ((name (buffer-name buffer)))
(when (and name (not (string-equal name ""))
(or internal-too (/= (aref name 0) ?\s))
(string-match regexp name))
- (kill-buffer-ask buffer)))))
+ (funcall (if no-ask 'kill-buffer 'kill-buffer-ask) buffer)))))
\f
(defun rename-auto-save-file ()
next prev parent reply other threads:[~2017-06-20 1:35 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <1078456524.8697835.1496933777333.ref@mail.yahoo.com>
2017-06-08 14:56 ` bug#27286: 25.2; kill-matching-buffers without confirmation R. Diez
2017-06-20 1:35 ` Glenn Morris [this message]
[not found] ` <handler.27286.D27286.149792256214044.notifdone@debbugs.gnu.org>
2017-06-23 12:32 ` bug#27286: closed (Re: bug#27286: 25.2; kill-matching-buffers without confirmation) R. Diez
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=i260frzbie.fsf@fencepost.gnu.org \
--to=rgm@gnu.org \
--cc=27286-done@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.