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

kill-matching-buffers to optionally not confirm

Browse source 
* lisp/files.el (kill-matching-buffers):
Add option to not confirm killing.  (Bug#27286)
This commit is contained in:
Glenn Morris 2017-06-19 21:31:50 -04:00
parent 087e7e96fc
commit 70d01daced
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/files.el
View file

@ -6077,16 +6077,18 @@ specifies the list of buffers to kill, asking for approval for each one."
(kill-buffer-ask buffer)))
(setq list (cdr list))))
(defun kill-matching-buffers (regexp &optional internal-too)
(defun kill-matching-buffers (regexp &optional internal-too no-ask)
"Kill buffers whose name matches the specified REGEXP.
The optional second argument indicates whether to kill internal buffers too."
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."
(interactive "sKill buffers matching this regular expression: \nP")
(dolist (buffer (buffer-list))
(let ((name (buffer-name buffer)))
(when (and name (not (string-equal name ""))
(or internal-too (/= (aref name 0) ?\s))
(string-match regexp name))
(kill-buffer-ask buffer)))))
(funcall (if no-ask 'kill-buffer 'kill-buffer-ask) buffer)))))
(defun rename-auto-save-file ()