mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Roland McGrath 1992-05-05 22:12:04 +00:00
parent 6e280b45c6
commit b5e86cb3e1
1 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
lisp/files.el
View File

@ -1026,31 +1026,31 @@ 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."
(interactive "P")
(if (zerop (map-y-or-n-p
(function
(lambda (buffer)
(and (buffer-modified-p buffer)
(or
(buffer-file-name buffer)
(and exiting
(save-excursion
(set-buffer buffer)
(and buffer-offer-save (> (buffer-size) 0)))))
(if arg
t
(if (buffer-file-name buffer)
(format "Save file %s? "
(buffer-file-name buffer))
(format "Save buffer %s? "
(buffer-name buffer)))))))
(function
(lambda (buffer)
(save-excursion
(set-buffer buffer)
(save-buffer))))
(buffer-list)
'("buffer" "buffers" "save")))
(message "(No files need saving)")))
(save-excursion
(if (zerop (map-y-or-n-p
(function
(lambda (buffer)
(and (buffer-modified-p buffer)
(or
(buffer-file-name buffer)
(and exiting
(progn
(set-buffer buffer)
(and buffer-offer-save (> (buffer-size) 0)))))
(if arg
t
(if (buffer-file-name buffer)
(format "Save file %s? "
(buffer-file-name buffer))
(format "Save buffer %s? "
(buffer-name buffer)))))))
(function
(lambda (buffer)
(set-buffer buffer)
(save-buffer)))
(buffer-list)
'("buffer" "buffers" "save")))
(message "(No files need saving)"))))
(defun not-modified (&optional arg)
"Mark current buffer as unmodified, not needing to be saved.