Mercurial > emacs
comparison lisp/files.el @ 53394:269f007885af
(kill-some-buffers): Doc fix.
author | Eli Zaretskii <eliz@is.elta.co.il> |
---|---|
date | Mon, 29 Dec 2003 14:04:31 +0000 |
parents | c17a620e1ff3 |
children | 9bdc3d1a6a5f |
comparison
equal
deleted
inserted
replaced
53393:6658b72a5f99 | 53394:269f007885af |
---|---|
3725 '("file" "files" "recover")) | 3725 '("file" "files" "recover")) |
3726 (message "No files can be recovered from this session now"))) | 3726 (message "No files can be recovered from this session now"))) |
3727 (kill-buffer buffer)))) | 3727 (kill-buffer buffer)))) |
3728 | 3728 |
3729 (defun kill-some-buffers (&optional list) | 3729 (defun kill-some-buffers (&optional list) |
3730 "For each buffer in LIST, ask whether to kill it. | 3730 "Kill some buffers. Asks the user whether to kill each one of them. |
3731 LIST defaults to all existing live buffers." | 3731 Non-interactively, if optional argument LIST is non-`nil', it |
3732 specifies the list of buffers to kill, asking for approval for each one." | |
3732 (interactive) | 3733 (interactive) |
3733 (if (null list) | 3734 (if (null list) |
3734 (setq list (buffer-list))) | 3735 (setq list (buffer-list))) |
3735 (while list | 3736 (while list |
3736 (let* ((buffer (car list)) | 3737 (let* ((buffer (car list)) |