diff options
| -rw-r--r-- | lisp/files.el | 50 |
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. | |||
| 1026 | Optional second argument EXITING means ask about certain non-file buffers | 1026 | Optional 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. |