From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 8 Mar 1994 20:18:58 +0000 (+0000)
Subject: Can now define auto-save-default in krypt buffers, because that
X-Git-Tag: 20090517-FFI~7261
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2c886029048edd5c0c60fb0986fa25590b351efe;p=mit-scheme.git

Can now define auto-save-default in krypt buffers, because that
variable is declared permanent-local.
---

diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index 927577fb0..aed6ae66d 100644
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: unix.scm,v 1.40 1994/03/04 21:32:09 cph Exp $
+;;;	$Id: unix.scm,v 1.41 1994/03/08 20:18:58 cph Exp $
 ;;;
 ;;;	Copyright (c) 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -530,16 +530,12 @@ filename suffix \".KY\"."
 		(message "krypt: Checksum error!")
 		x))
      mark)
-    ;; CPH says that this doesn't work because mode initialization
-    ;; zaps the buffer's variables afterwards:
-#|
     ;; 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)
-|#
-    ))
+	(ref-variable-object auto-save-default)
+      #f)))
 
 (define (maybe-write-encrypted-file region pathname visit?)
   visit?