procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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.
This commit is contained in:
Eli Zaretskii 2023-01-21 08:35:53 +02:00
parent 623fdf30ff
commit 3dacf583b9
2 changed files with 14 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
etc/NEWS
View file

@ -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'.

21
lisp/files.el
View file

@ -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))