master 3dacf583b90: ; Fix documentation of 'kill-matching-buffers-no-ask'

[Eli Zaretskii]

branch: master
commit 3dacf583b90c35ffea13e4ae54010df957f0b1b3
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    ; 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.
---
 etc/NEWS      |  3 ++-
 lisp/files.el | 21 ++++++++++++---------
 2 files changed, 14 insertions(+), 10 deletions(-)

diff --git a/etc/NEWS b/etc/NEWS
index f71924812c9..f9897b33449 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -53,8 +53,9 @@ 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
+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 d308e99804d..9da82446112 100644
--- 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))