(server-done): If buffer visits no file, don't offer save.

This commit is contained in:
Richard M. Stallman 1997-04-13 06:12:34 +00:00
parent 6811a757a5
commit ffdd27965e

View file

@ -353,6 +353,7 @@ or nil. KILLED is t if we killed the BUFFER (because it was a temp file)."
(buffer-backed-up nil))
(save-buffer))
(if (and (buffer-modified-p)
buffer-file-name
(y-or-n-p (concat "Save file " buffer-file-name "? ")))
(save-buffer buffer)))
(server-buffer-done buffer)))))