aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/files.el50
1 files changed, 25 insertions, 25 deletions
diff --git a/lisp/files.el b/lisp/files.el
index d3827b4126d..2e81fd6fdb0 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1026,31 +1026,31 @@ Optional argument (the prefix) non-nil means save all with no questions.
1026Optional second argument EXITING means ask about certain non-file buffers 1026Optional second argument EXITING means ask about certain non-file buffers
1027 as well as about file buffers." 1027 as well as about file buffers."
1028 (interactive "P") 1028 (interactive "P")
1029 (if (zerop (map-y-or-n-p 1029 (save-excursion
1030 (function 1030 (if (zerop (map-y-or-n-p
1031 (lambda (buffer) 1031 (function
1032 (and (buffer-modified-p buffer) 1032 (lambda (buffer)
1033 (or 1033 (and (buffer-modified-p buffer)
1034 (buffer-file-name buffer) 1034 (or
1035 (and exiting 1035 (buffer-file-name buffer)
1036 (save-excursion 1036 (and exiting
1037 (set-buffer buffer) 1037 (progn
1038 (and buffer-offer-save (> (buffer-size) 0))))) 1038 (set-buffer buffer)
1039 (if arg 1039 (and buffer-offer-save (> (buffer-size) 0)))))
1040 t 1040 (if arg
1041 (if (buffer-file-name buffer) 1041 t
1042 (format "Save file %s? " 1042 (if (buffer-file-name buffer)
1043 (buffer-file-name buffer)) 1043 (format "Save file %s? "
1044 (format "Save buffer %s? " 1044 (buffer-file-name buffer))
1045 (buffer-name buffer))))))) 1045 (format "Save buffer %s? "
1046 (function 1046 (buffer-name buffer)))))))
1047 (lambda (buffer) 1047 (function
1048 (save-excursion 1048 (lambda (buffer)
1049 (set-buffer buffer) 1049 (set-buffer buffer)
1050 (save-buffer)))) 1050 (save-buffer)))
1051 (buffer-list) 1051 (buffer-list)
1052 '("buffer" "buffers" "save"))) 1052 '("buffer" "buffers" "save")))
1053 (message "(No files need saving)"))) 1053 (message "(No files need saving)"))))
1054 1054
1055(defun not-modified (&optional arg) 1055(defun not-modified (&optional arg)
1056 "Mark current buffer as unmodified, not needing to be saved. 1056 "Mark current buffer as unmodified, not needing to be saved.