(write-file): Query if file exists already.

diff --git a/lisp/files.el b/lisp/files.el
index be311583ec918a2bad28695a4592fb9ea994ef79..6abe596ef014f0bac71daba6129ded810988fbbf 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1344,6 +1344,9 @@ old name in that directory."
        (if (and (file-directory-p filename) buffer-file-name)
            (setq filename (concat (file-name-as-directory filename)
                                   (file-name-nondirectory buffer-file-name))))
+       (if (file-exists-p filename)
+           (or (y-or-n-p "File `%s' exists; overwrite? " filename)
+               (error "Canceled")))
        (set-visited-file-name filename)))
   (set-buffer-modified-p t)
   (save-buffer))