mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

(save-some-buffers): Turn EXITING into the more general

Browse Source 
PRED argument to allow specifying a subset of buffers.
This commit is contained in:
Stefan Monnier 1999-12-07 06:31:32 +00:00
parent a1eb02bddb
commit 707ad06002
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/files.el
View File

@ -2517,11 +2517,14 @@ After saving the buffer, this function runs `after-save-hook'."
buffer-file-name nil t buffer-file-truename)))
setmodes))
(defun save-some-buffers (&optional arg exiting)
(defun save-some-buffers (&optional arg pred)
"Save some modified file-visiting buffers. Asks user about each one.
Optional argument (the prefix) non-nil means save all with no questions.
Optional second argument EXITING means ask about certain non-file buffers
as well as about file buffers."
Optional second argument PRED determines which buffers are considered:
If PRED is nil, all the file-visiting buffers are considered.
If PRED is t, then certain non-file buffers will also be considered.
If PRED is a zero-argument function, it indicates for each buffer whether
to consider it or not."
(interactive "P")
(save-window-excursion
(let* ((queried nil)
@ -2533,10 +2536,12 @@ Optional second argument EXITING means ask about certain non-file buffers
(not (buffer-base-buffer buffer))
(or
(buffer-file-name buffer)
(and exiting
(and pred
(progn
(set-buffer buffer)
(and buffer-offer-save (> (buffer-size) 0)))))
(or (not (functionp pred))
(with-current-buffer buffer (funcall pred)))
(if arg
t
(setq queried t)