Commit 73ba610a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 5b6575b7
......@@ -2378,10 +2378,12 @@ 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)))
(if (null list)
(setq list (buffer-list)))
(while list
(let* ((buffer (car list))
(name (buffer-name buffer)))
......@@ -2393,7 +2395,7 @@ This command is used in the special Dired buffer created by
(if (buffer-modified-p buffer)
"HAS BEEN EDITED" "is unmodified")))
(kill-buffer buffer)))
(setq list (cdr list)))))
(setq list (cdr list))))
(defun auto-save-mode (arg)
"Toggle auto-saving of contents of current buffer.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment