; Fix documentation of 'kill-matching-buffers-no-ask'

* etc/NEWS: Fix wording of 'kill-matching-buffers-no-ask's entry.

* lisp/files.el (kill-matching-buffers)
(kill-matching-buffers-no-ask): Doc fix.

diff --git a/etc/NEWS b/etc/NEWS
index f71924812c9394ce40927df5851f7e671dbe41f4..f9897b3344982ffa8c41d9165685bf00af8199db 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -53,8 +53,9 @@ 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
+This works like 'kill-matching-buffers', but without asking for
 confirmation.
 
 ** New helper variable 'transpose-sexps-function'.

diff --git a/lisp/files.el b/lisp/files.el
index d308e99804d02ad558e64826b3298e4bf54f8915..9da824461123bb7f5818270373af314fb4ebb809 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -7100,10 +7100,11 @@ specifies the list of buffers to kill, asking for approval for each one."
     (setq list (cdr list))))
 
 (defun kill-matching-buffers (regexp &optional internal-too no-ask)
-  "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.  Asks before killing
-each buffer, unless NO-ASK is non-nil."
+  "Kill buffers whose names match the regular expression REGEXP.
+Interactively, prompt for REGEXP.
+Ignores buffers whose names start with a space, unless optional
+prefix argument INTERNAL-TOO(interactively, the prefix argument)
+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)))
@@ -7113,11 +7114,13 @@ each buffer, unless NO-ASK is non-nil."
         (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."
+  "Kill buffers whose names match the regular expression REGEXP.
+Interactively, prompt for REGEXP.
+Like `kill-matching-buffers', but doesn't ask for confirmation
+before killing each buffer.
+Ignores buffers whose names start with a space, unless the
+optional argument INTERNAL-TOO (interactively, the prefix argument)
+is non-nil."
   (interactive "sKill buffers matching this regular expression: \nP")
   (kill-matching-buffers regexp internal-too t))