(kill-some-buffers): New arg LIST says buffers to maybe kill.

1 files changed, 17 insertions, 15 deletions

diff --git a/lisp/files.el b/lisp/files.el
index 154ec33098c..84dd9391846 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2378,22 +2378,24 @@ This command is used in the special Dired buffer created by
 	    (message "No files can be recovered from this session now")))
       (kill-buffer buffer))))
 
-(defun kill-some-buffers ()
-  "For each buffer, ask whether to kill it."
+(defun kill-some-buffers (&optional list)
+  "For each buffer in LIST, ask whether to kill it.
+LIST defaults to all existing live buffers."
   (interactive)
-  (let ((list (buffer-list)))
-    (while list
-      (let* ((buffer (car list))
-	     (name (buffer-name buffer)))
-	(and (not (string-equal name ""))
-	     (/= (aref name 0) ? )
-	     (yes-or-no-p
-	      (format "Buffer %s %s.  Kill? "
-		      name
-		      (if (buffer-modified-p buffer)
-			  "HAS BEEN EDITED" "is unmodified")))
-	     (kill-buffer buffer)))
-      (setq list (cdr list)))))
+  (if (null list)
+      (setq list (buffer-list)))
+  (while list
+    (let* ((buffer (car list))
+	   (name (buffer-name buffer)))
+      (and (not (string-equal name ""))
+	   (/= (aref name 0) ? )
+	   (yes-or-no-p
+	    (format "Buffer %s %s.  Kill? "
+		    name
+		    (if (buffer-modified-p buffer)
+			"HAS BEEN EDITED" "is unmodified")))
+	   (kill-buffer buffer)))
+    (setq list (cdr list))))
 
 (defun auto-save-mode (arg)
   "Toggle auto-saving of contents of current buffer.