From 3dacf583b90c35ffea13e4ae54010df957f0b1b3 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 21 Jan 2023 08:35:53 +0200 Subject: [PATCH] ; 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)) -- 2.39.5