From 9a7aa81707aaae98850d9619657a9e1518073f5e Mon Sep 17 00:00:00 2001
From: "Brian A. LaMacchia" <edu/mit/csail/zurich/bal>
Date: Wed, 29 Apr 1992 21:23:37 +0000
Subject: [PATCH] Disable auto-save when reading in an encrypted file.

---
 v7/src/edwin/unix.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

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?
-- 
2.25.1