# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 744100804 0
# Node ID ebf146cb7720f976cbbe1fe6aa11287a633a347d
# Parent  1a64d641cea4cc33377480a1d4c1d354decee2ce
(basic-save-buffer): When we read a file name,
use set-visited-file-name to put it in.

diff -r 1a64d641cea4 -r ebf146cb7720 lisp/files.el
--- a/lisp/files.el	Sat Jul 31 06:10:44 1993 +0000
+++ b/lisp/files.el	Sat Jul 31 06:40:04 1993 +0000
@@ -1403,12 +1403,8 @@
 	      (rename-buffer buffer-new-name)))
 	;; If buffer has no file name, ask user for one.
 	(or buffer-file-name
-	    (progn
-	      (setq buffer-file-name
-		    (expand-file-name (read-file-name "File to save in: ") nil)
-		    default-directory (file-name-directory buffer-file-name))
-	      (and auto-save-default (not buffer-auto-save-file-name)
-		   (auto-save-mode t))))
+	    (set-visited-file-name
+	     (expand-file-name (read-file-name "File to save in: ") nil)))
 	(or (verify-visited-file-modtime (current-buffer))
 	    (not (file-exists-p buffer-file-name))
 	    (yes-or-no-p