Mercurial > emacs

comparison lisp/files.el @ 15963:5b10dc4cd791

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(kill-some-buffers): New arg LIST says buffers to maybe kill.
author Richard M. Stallman <rms@gnu.org>
date Thu, 29 Aug 1996 01:27:18 +0000
parents c2ef756791fe
children f51aa92862ac
comparison
equal deleted inserted replaced
15962:37baba8d7fbc 15963:5b10dc4cd791
2376 files 2376 files
2377 '("file" "files" "recover")) 2377 '("file" "files" "recover"))
2378 (message "No files can be recovered from this session now"))) 2378 (message "No files can be recovered from this session now")))
2379 (kill-buffer buffer)))) 2379 (kill-buffer buffer))))
2380 2380
2381 (defun kill-some-buffers () 2381 (defun kill-some-buffers (&optional list)
2382 "For each buffer, ask whether to kill it." 2382 "For each buffer in LIST, ask whether to kill it.
2383 LIST defaults to all existing live buffers."
2383 (interactive) 2384 (interactive)
2384 (let ((list (buffer-list))) 2385 (if (null list)
2385 (while list 2386 (setq list (buffer-list)))
2386 (let* ((buffer (car list)) 2387 (while list
2387 (name (buffer-name buffer))) 2388 (let* ((buffer (car list))
2388 (and (not (string-equal name "")) 2389 (name (buffer-name buffer)))
2389 (/= (aref name 0) ? ) 2390 (and (not (string-equal name ""))
2390 (yes-or-no-p 2391 (/= (aref name 0) ? )
2391 (format "Buffer %s %s. Kill? " 2392 (yes-or-no-p
2392 name 2393 (format "Buffer %s %s. Kill? "
2393 (if (buffer-modified-p buffer) 2394 name
2394 "HAS BEEN EDITED" "is unmodified"))) 2395 (if (buffer-modified-p buffer)
2395 (kill-buffer buffer))) 2396 "HAS BEEN EDITED" "is unmodified")))
2396 (setq list (cdr list))))) 2397 (kill-buffer buffer)))
2398 (setq list (cdr list))))
2397 2399
2398 (defun auto-save-mode (arg) 2400 (defun auto-save-mode (arg)
2399 "Toggle auto-saving of contents of current buffer. 2401 "Toggle auto-saving of contents of current buffer.
2400 With prefix argument ARG, turn auto-saving on if positive, else off." 2402 With prefix argument ARG, turn auto-saving on if positive, else off."
2401 (interactive "P") 2403 (interactive "P")