Mercurial > emacs
changeset 4375:ebf146cb7720
(basic-save-buffer): When we read a file name,
use set-visited-file-name to put it in.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 31 Jul 1993 06:40:04 +0000 |
| parents | 1a64d641cea4 |
| children | 109294166e68 |
| files | lisp/files.el |
| diffstat | 1 files changed, 2 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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