Mercurial > emacs
changeset 81132:094200bbe6b7
New command kill-matching-buffers kills buffers whose name matches a regexp.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Sun, 03 Jun 2007 18:51:42 +0000 |
| parents | 85d05811cbe7 |
| children | 1b2ee4e66d28 |
| files | etc/NEWS lisp/ChangeLog lisp/files.el |
| diffstat | 3 files changed, 29 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/etc/NEWS Sun Jun 03 01:05:49 2007 +0000 +++ b/etc/NEWS Sun Jun 03 18:51:42 2007 +0000 @@ -28,6 +28,8 @@ * Editing Changes in Emacs 23.1 +** New command kill-matching-buffers kills buffers whose name matches a regexp. + * New Modes and Packages in Emacs 23.1
--- a/lisp/ChangeLog Sun Jun 03 01:05:49 2007 +0000 +++ b/lisp/ChangeLog Sun Jun 03 18:51:42 2007 +0000 @@ -1,3 +1,9 @@ +2007-06-03 Sam Steingold <sds@gnu.org> + + * files.el (kill-buffer-ask): New function. + (kill-some-buffers): Use it. + (kill-matching-buffers): New user command. + 2007-06-01 David Kastrup <dak@gnu.org> * dired.el (dired-recursive-deletes, dired-recursive-copies):
--- a/lisp/files.el Sun Jun 03 01:05:49 2007 +0000 +++ b/lisp/files.el Sun Jun 03 18:51:42 2007 +0000 @@ -4389,6 +4389,14 @@ (message "No files can be recovered from this session now"))) (kill-buffer buffer)))) +(defun kill-buffer-ask (buffer) + "Kill buffer if confirmed." + (when (yes-or-no-p + (format "Buffer %s %s. Kill? " (buffer-name buffer) + (if (buffer-modified-p buffer) + "HAS BEEN EDITED" "is unmodified"))) + (kill-buffer buffer))) + (defun kill-some-buffers (&optional list) "Kill some buffers. Asks the user whether to kill each one of them. Non-interactively, if optional argument LIST is non-nil, it @@ -4403,13 +4411,20 @@ ; if we killed the base buffer. (not (string-equal name "")) (/= (aref name 0) ?\s) - (yes-or-no-p - (format "Buffer %s %s. Kill? " - name - (if (buffer-modified-p buffer) - "HAS BEEN EDITED" "is unmodified"))) - (kill-buffer buffer))) + (kill-buffer-ask buffer))) (setq list (cdr list)))) + +(defun kill-matching-buffers (regexp &optional internal-too) + "Kill buffers whose name matches the specified regexp. +The optional second argument indicates whether to kill internal buffers too." + (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))))) + (defun auto-save-mode (arg) "Toggle auto-saving of contents of current buffer.