Mercurial > emacs
comparison lisp/files.el @ 632:4f093eb16009
*** empty log message ***
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Tue, 05 May 1992 22:12:04 +0000 |
| parents | 5f36058e31f9 |
| children | 40b255f55df3 |
comparison
equal
deleted
inserted
replaced
| 631:3c7da8664d12 | 632:4f093eb16009 |
|---|---|
| 1024 "Save some modified file-visiting buffers. Asks user about each one. | 1024 "Save some modified file-visiting buffers. Asks user about each one. |
| 1025 Optional argument (the prefix) non-nil means save all with no questions. | 1025 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. |
| 1057 With prefix arg, mark buffer as modified, so \\[save-buffer] will save." | 1057 With prefix arg, mark buffer as modified, so \\[save-buffer] will save." |
| 1058 (interactive "P") | 1058 (interactive "P") |