# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 808851687 0
# Node ID 4dbac3df0ec76ffb9c197ceb568a5a5bf80a3e7c
# Parent  b2a75405de3ccbf6336c3581b82d1e247456f91b
(basic-save-buffer): Confirm for overwriting old file
when a file name is specified.

diff -r b2a75405de3c -r 4dbac3df0ec7 lisp/files.el
--- a/lisp/files.el	Sat Aug 19 17:00:34 1995 +0000
+++ b/lisp/files.el	Sat Aug 19 17:01:27 1995 +0000
@@ -1716,8 +1716,14 @@
 		(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