diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-31 06:40:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-31 06:40:04 +0000 |
| commit | 2943f983f2f0e1d0320aed2b98ada4517beded24 (patch) | |
| tree | 543efe7dae3c803f4f45d415e133082050ae3744 /lisp/files.el | |
| parent | 009ef4024db6cc9360da4f5cbf8d5438782800ce (diff) | |
| download | emacs-2943f983f2f0e1d0320aed2b98ada4517beded24.tar.gz | |
(basic-save-buffer): When we read a file name,
use set-visited-file-name to put it in.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/files.el b/lisp/files.el index abdaca88fd5..fbf75041726 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 |