diff options
| -rw-r--r-- | etc/NEWS | 3 | ||||
| -rw-r--r-- | lisp/files.el | 21 |
2 files changed, 14 insertions, 10 deletions
@@ -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)) |