From: Brian A. LaMacchia <edu/mit/csail/zurich/bal>
Date: Wed, 29 Apr 1992 21:23:37 +0000 (+0000)
Subject: Disable auto-save when reading in an encrypted file.
X-Git-Tag: 20090517-FFI~9454
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9a7aa81707aaae98850d9619657a9e1518073f5e;p=mit-scheme.git

Disable auto-save when reading in an encrypted file.
---

diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index 89d123b63..e0b1fbfe9 100644
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/unix.scm,v 1.25 1992/04/22 20:26:41 mhwu Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/unix.scm,v 1.26 1992/04/29 21:23:37 bal Exp $
 ;;;
 ;;;	Copyright (c) 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -458,7 +458,13 @@ filename suffix \".KY\"."
 		(editor-beep)
 		(message "krypt: Checksum error!")
 		x))
-     mark)))
+     mark)
+    ;; Disable auto-save here since we don't want to
+    ;; auto-save the unencrypted contents of the 
+    ;; encrypted file.
+    (define-variable-local-value! (mark-buffer mark)
+      (name->variable 'auto-save-default) #f)
+    ))
 
 (define (maybe-write-encrypted-file region pathname visit?)
   visit?