From 2943f983f2f0e1d0320aed2b98ada4517beded24 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 31 Jul 1993 06:40:04 +0000 Subject: [PATCH] (basic-save-buffer): When we read a file name, use set-visited-file-name to put it in. --- lisp/files.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index abdaca88fd..fbf7504172 100644 --- 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 -- 2.39.2