# HG changeset patch # User Sam Steingold # Date 1180896702 0 # Node ID 094200bbe6b7d974a8936150e210a269fa32bb00 # Parent 85d05811cbe7ab6e6229bc9cdebff2b410a20547 New command kill-matching-buffers kills buffers whose name matches a regexp. diff -r 85d05811cbe7 -r 094200bbe6b7 etc/NEWS --- 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 diff -r 85d05811cbe7 -r 094200bbe6b7 lisp/ChangeLog --- 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 + + * files.el (kill-buffer-ask): New function. + (kill-some-buffers): Use it. + (kill-matching-buffers): New user command. + 2007-06-01 David Kastrup * dired.el (dired-recursive-deletes, dired-recursive-copies): diff -r 85d05811cbe7 -r 094200bbe6b7 lisp/files.el --- 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.