mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(save-some-buffers): At each map-y-or-n-p iteration,

Browse Source 
check whether the buffer is still alive.
This commit is contained in:
Chong Yidong 2008-12-09 23:43:11 +00:00
parent 39af3de2c1
commit be9acc2629
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/files.el
View File

@ -4351,7 +4351,10 @@ change the additional actions you can take on files."
(setq files-done
(map-y-or-n-p
(lambda (buffer)
(and (buffer-modified-p buffer)
;; Note that killing some buffers may kill others via
;; hooks (e.g. Rmail and its viewing buffer).
(and (buffer-live-p buffer)
(buffer-modified-p buffer)
(not (buffer-base-buffer buffer))
(or
(buffer-file-name buffer)