From: Andrea Corallo <andrea.corallo@arm.com>
Date: Wed, 18 Jan 2023 14:15:51 +0000 (+0100)
Subject: Add new command `kill-matching-buffers-no-ask' (bug#60714)
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=117f90865adca03eab84778db0370ddc05ba8ae7;p=emacs.git

Add new command `kill-matching-buffers-no-ask' (bug#60714)

* lisp/files.el (kill-matching-buffers-no-ask): New function.
* etc/NEWS: Announce `kill-matching-buffers-no-ask'.
---

diff --git a/etc/NEWS b/etc/NEWS
index fc8a3ac66a0..8df540f6d8d 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -53,6 +53,10 @@ trash when deleting.  Default is nil.
 
 * Editing Changes in Emacs 30.1
 
+** New command 'kill-matching-buffers-no-ask'
+Kills buffers whose name matches a regexp without asking for
+confirmation.
+
 ** New helper variable 'transpose-sexps-function'.
 Emacs now can set this variable to customize the behavior of the
 'transpose-sexps' function.
diff --git a/lisp/files.el b/lisp/files.el
index 29ba523fa69..d308e99804d 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -7112,6 +7112,15 @@ each buffer, unless NO-ASK is non-nil."
                  (string-match regexp name))
         (funcall (if no-ask 'kill-buffer 'kill-buffer-ask) buffer)))))
 
+(defun kill-matching-buffers-no-ask (regexp &optional internal-too)
+  "Kill buffers whose name matches the specified REGEXP.
+Ignores buffers whose name starts with a space, unless optional
+prefix argument INTERNAL-TOO is non-nil.  Equivalent to
+`kill-matching-buffers' but never ask before killing each
+buffer."
+  (interactive "sKill buffers matching this regular expression: \nP")
+  (kill-matching-buffers regexp internal-too t))
+
 
 (defun rename-auto-save-file ()
   "Adjust current buffer's auto save file name for current conditions.