mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases Activity

(basic-save-buffer): Confirm for overwriting old file

Browse Source 
when a file name is specified.
This commit is contained in:
Richard M. Stallman 1995-08-19 17:01:27 +00:00
parent 308444156d
commit 182891ef3d
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/files.el
View File

@ -1716,8 +1716,14 @@ 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
(set-visited-file-name
(expand-file-name (read-file-name "File to save in: ") nil)))
(let ((filename
(expand-file-name
(read-file-name "File to save in: ") nil)))
(and (file-exists-p filename)
(or (y-or-n-p (format "File `%s' exists; overwrite? "
filename))
(error "Canceled")))
(set-visited-file-name filename)))
(or (verify-visited-file-modtime (current-buffer))
(not (file-exists-p buffer-file-name))
(yes-or-no-p