# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 860911954 0
# Node ID 5fb0f4a5336f959ac97e02c10a2f2923cde61bcd
# Parent  7df65491ab5f095abcc3786ab31767211e9c4031
(server-done): If buffer visits no file, don't offer save.

diff -r 7df65491ab5f -r 5fb0f4a5336f lisp/server.el
--- 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)))))