changeset 17434:5fb0f4a5336f

(server-done): If buffer visits no file, don't offer save.
author Richard M. Stallman <rms@gnu.org>
date Sun, 13 Apr 1997 06:12:34 +0000
parents 7df65491ab5f
children b104a6fb7fa3
files lisp/server.el
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/server.el	Sun Apr 13 06:11:35 1997 +0000
+++ b/lisp/server.el	Sun Apr 13 06:12:34 1997 +0000
@@ -353,6 +353,7 @@
 		    (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)))))