(basic-save-buffer): When we read a file name,

use set-visited-file-name to put it in.

diff --git a/lisp/files.el b/lisp/files.el
index abdaca88fd506c21f6ad56831fa417f3555d8418..fbf75041726209eaf8843d7edf6fcec3cae8f3e4 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1403,12 +1403,8 @@ the last real save, but optional arg FORCE non-nil means delete anyway."
              (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