# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 741551998 0
# Node ID 5e740ac08e39ebfe2291b5d5508f7b8ed6412a6b
# Parent  cbdf67dd68d00b3458ae09f522860da469d72a5a
(set-visited-file-name): Rename the old auto save file.

diff -r cbdf67dd68d0 -r 5e740ac08e39 lisp/files.el
--- a/lisp/files.el	Thu Jul 01 04:04:32 1993 +0000
+++ b/lisp/files.el	Thu Jul 01 18:39:58 1993 +0000
@@ -1093,17 +1093,21 @@
        (progn
 	 (make-local-variable 'backup-inhibited)
 	 (setq backup-inhibited t)))
-  ;; If auto-save was not already on, turn it on if appropriate.
-  (if (not buffer-auto-save-file-name)
-      (and buffer-file-name auto-save-default
-	   (auto-save-mode t))
-    ;; If auto save is on, start using a new name.
-    ;; We deliberately don't rename or delete the old auto save
-    ;; for the old visited file name.  This is because perhaps
-    ;; the user wants to save the new state and then compare with the
-    ;; previous state from the auto save file.
-    (setq buffer-auto-save-file-name
-	  (make-auto-save-file-name)))
+  (let ((oauto buffer-auto-save-file-name))
+    ;; If auto-save was not already on, turn it on if appropriate.
+    (if (not buffer-auto-save-file-name)
+	(and buffer-file-name auto-save-default
+	     (auto-save-mode t))
+      ;; If auto save is on, start using a new name.
+      ;; We deliberately don't rename or delete the old auto save
+      ;; for the old visited file name.  This is because perhaps
+      ;; the user wants to save the new state and then compare with the
+      ;; previous state from the auto save file.
+      (setq buffer-auto-save-file-name
+	    (make-auto-save-file-name)))
+    ;; Rename the old auto save file if any.
+    (and oauto buffer-auto-save-file-name
+	 (rename-file oauto buffer-auto-save-file-name t)))
   (if buffer-file-name
       (set-buffer-modified-p t)))