Mercurial > emacs
changeset 632:4f093eb16009
*** empty log message ***
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Tue, 05 May 1992 22:12:04 +0000 |
| parents | 3c7da8664d12 |
| children | 379b94c9f29e |
| files | lisp/files.el |
| diffstat | 1 files changed, 25 insertions(+), 25 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Tue May 05 18:40:03 1992 +0000 +++ b/lisp/files.el Tue May 05 22:12:04 1992 +0000 @@ -1026,31 +1026,31 @@ 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.