# 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