diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-10-26 18:12:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-10-26 18:12:01 +0000 |
| commit | 5f65549e3f9db70dfffe763c9a037dbf010a8a8c (patch) | |
| tree | 1ad29dce170dd56a833e566c42a47801b48ed057 /lisp | |
| parent | b691df0c08b37358cd4e083898989fdde197aef1 (diff) | |
| download | emacs-5f65549e3f9db70dfffe763c9a037dbf010a8a8c.tar.gz emacs-5f65549e3f9db70dfffe763c9a037dbf010a8a8c.tar.bz2 emacs-5f65549e3f9db70dfffe763c9a037dbf010a8a8c.zip | |
(set-visited-file-name): Doc fix.
(write-file): Use CONFIRM when calling set-visited-file-name.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index 2de1dd5dee9..3dce4be9354 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1438,7 +1438,7 @@ Remember to delete the initial contents of the minibuffer if you wish to pass an empty string as the argument. The optional second argument NO-QUERY, if non-nil, inhibits asking for -confirmation in the case where the file FILENAME already exists." +confirmation in the case where another buffer is already visiting FILENAME." (interactive "FSet visited file name: ") (if (buffer-base-buffer) (error "An indirect buffer cannot visit a file")) @@ -1553,7 +1553,7 @@ Interactively, confirmation is required unless you supply a prefix argument." (file-exists-p filename) (or (y-or-n-p (format "File `%s' exists; overwrite? " filename)) (error "Canceled"))) - (set-visited-file-name filename))) + (set-visited-file-name filename (not confirm)))) (set-buffer-modified-p t) (save-buffer)) |