Commit 76d5492b authored by Roland McGrath's avatar Roland McGrath
Browse files

(save-some-buffers): Don't give message if we queried.

parent fe07d75e
......@@ -1886,7 +1886,8 @@ Optional second argument EXITING means ask about certain non-file buffers
as well as about file buffers."
(interactive "P")
(save-window-excursion
(let ((files-done
(let* ((queried nil)
(files-done
(map-y-or-n-p
(function
(lambda (buffer)
......@@ -1900,6 +1901,7 @@ Optional second argument EXITING means ask about certain non-file buffers
(and buffer-offer-save (> (buffer-size) 0)))))
(if arg
t
(setq queried t)
(if (buffer-file-name buffer)
(format "Save file %s? "
(buffer-file-name buffer))
......@@ -1924,12 +1926,13 @@ Optional second argument EXITING means ask about certain non-file buffers
(and save-abbrevs abbrevs-changed
(progn
(if (or arg
(y-or-n-p (format "Save abbrevs in %s? " abbrev-file-name)))
(y-or-n-p (format "Save abbrevs in %s? "
abbrev-file-name)))
(write-abbrev-file nil))
;; Don't keep bothering user if he says no.
(setq abbrevs-changed nil)
t))))
(or (> files-done 0) abbrevs-done
(or queried (> files-done 0) abbrevs-done
(message "(No files need saving)")))))
(defun not-modified (&optional arg)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment