From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 14 May 1991 02:03:05 +0000 (+0000)
Subject: Handle errors that occur during auto-save.
X-Git-Tag: 20090517-FFI~10594
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8777d8285b9330d03b994a0ea2fba56bcb74207b;p=mit-scheme.git

Handle errors that occur during auto-save.
---

diff --git a/v7/src/edwin/autosv.scm b/v7/src/edwin/autosv.scm
index 0ab336f3f..29ed66b84 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.26 1991/05/02 01:12:10 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/autosv.scm,v 1.27 1991/05/14 02:03:05 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -150,11 +150,22 @@ This file is not the file you visited; that changes only when you save."
 	(begin
 	  (temporary-message "Auto saving...")
 	  (for-each auto-save-buffer buffers)
-	  (append-message "done")))))
+	  (temporary-message "Auto saving...done")))))
 
 (define (auto-save-buffer buffer)
-  (write-region (buffer-unclipped-region buffer)
-		(buffer-auto-save-pathname buffer)
-		false)
-  (set-buffer-save-length! buffer)
-  (set-buffer-auto-saved! buffer))
\ No newline at end of file
+  (catch-file-errors
+   (lambda ()
+     (editor-beep)
+     (let ((name (buffer-name buffer)))
+       (message "Autosaving...error for " name)
+       (sleep-for 500)
+       (message "Autosaving...error!for " name)
+       (sleep-for 500)
+       (message "Autosaving...error for " name)
+       (sleep-for 500)))
+   (lambda ()
+     (write-region (buffer-unclipped-region buffer)
+		   (buffer-auto-save-pathname buffer)
+		   false)
+     (set-buffer-save-length! buffer)
+     (set-buffer-auto-saved! buffer))))
\ No newline at end of file