From e7b1c96ef52307e1000a1f838566d39ce68d0ec7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 12 Apr 1991 23:13:55 +0000
Subject: [PATCH] Implement procedure `rename-auto-save-file!'.  Implement
 command `do-auto-save'.

---
 v7/src/edwin/autosv.scm | 41 +++++++++++++++++++++++++++++++----------
 1 file changed, 31 insertions(+), 10 deletions(-)

diff --git a/v7/src/edwin/autosv.scm b/v7/src/edwin/autosv.scm
index 4772a4c7c..ff2e9b412 100644
--- a/v7/src/edwin/autosv.scm
+++ b/v7/src/edwin/autosv.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/autosv.scm,v 1.22 1991/03/16 00:01:10 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/autosv.scm,v 1.23 1991/04/12 23:13:55 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -80,11 +80,21 @@ With arg, turn auto-saving on if arg is positive, else off."
 	      (not (buffer-auto-save-pathname buffer)))
 	  (begin
 	    (enable-buffer-auto-save! buffer)
-	    (temporary-message "Auto Save enabled"))
+	    (message "Auto Save enabled"))
 	  (begin
 	    (disable-buffer-auto-save! buffer)
-	    (temporary-message "Auto Save disabled"))))))
+	    (message "Auto Save disabled"))))))
 
+(define-command do-auto-save
+  "Auto-save all buffers that need it.
+This is all buffers that have auto-saving enabled
+and are changed since last auto-saved.
+Auto-saving writes the buffer into a file
+so that your editing is not lost if the system crashes.
+This file is not the file you visited; that changes only when you save."
+  ()
+  (lambda () (do-auto-save)))
+
 (define (setup-buffer-auto-save! buffer)
   (if (ref-variable auto-save-default)
       (enable-buffer-auto-save! buffer)
@@ -101,6 +111,23 @@ With arg, turn auto-saving on if arg is positive, else off."
 (define (disable-buffer-auto-save! buffer)
   (set-buffer-auto-save-pathname! buffer false))
 
+(define (delete-auto-save-file! buffer)
+  (if (ref-variable delete-auto-save-files)
+      (let ((pathname (buffer-auto-save-pathname buffer)))
+	(if (and pathname (file-exists? pathname))
+	    (delete-file pathname)))))
+
+(define (rename-auto-save-file! buffer)
+  (let ((old-pathname (buffer-auto-save-pathname buffer)))
+    (enable-buffer-auto-save! buffer)
+    (let ((new-pathname (buffer-auto-save-pathname buffer)))
+      (if (and old-pathname
+	       new-pathname
+	       (not (pathname=? new-pathname old-pathname))
+	       (not (pathname=? new-pathname (buffer-pathname buffer)))
+	       (file-exists? old-pathname))
+	  (rename-file old-pathname new-pathname)))))
+
 (define (do-auto-save)
   (let ((buffers
 	 (list-transform-positive (buffer-list)
@@ -119,10 +146,4 @@ With arg, turn auto-saving on if arg is positive, else off."
   (region->file (buffer-unclipped-region buffer)
 		(buffer-auto-save-pathname buffer))
   (set-buffer-save-length! buffer)
-  (set-buffer-auto-saved! buffer))
-
-(define (delete-auto-save-file! buffer)
-  (if (and (ref-variable delete-auto-save-files)
-	   (buffer-auto-save-pathname buffer)
-	   (file-exists? (buffer-auto-save-pathname buffer)))
-      (delete-file (buffer-auto-save-pathname buffer))))
\ No newline at end of file
+  (set-buffer-auto-saved! buffer))
\ No newline at end of file
-- 
2.25.1