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 fc8a3ac66a022023795730d7ac7c5402889187c7..8df540f6d8dfa163335921fb0bfcac5d30d7cfff 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -53,6 +53,10 @@ trash when deleting.  Default is nil.
 \f
 * 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 29ba523fa69efe6a8a8925347542b40baa8c8fd6..d308e99804d02ad558e64826b3298e4bf54f8915 100644 (file)
--- 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))
+
 \f
 (defun rename-auto-save-file ()
   "Adjust current buffer's auto save file name for current conditions.