From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 20 Jan 1998 02:35:36 +0000 (+0000)
Subject: Don't disable compressed and encrypted files.  Info needs compressed
X-Git-Tag: 20090517-FFI~4892
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=eb2a9bd9360de77a6c52f486f8ac1b5010555d8e;p=mit-scheme.git

Don't disable compressed and encrypted files.  Info needs compressed
files to do its job properly.
---

diff --git a/v7/src/6001/edextra.scm b/v7/src/6001/edextra.scm
index cb8dfea26..0124e81b5 100644
--- a/v7/src/6001/edextra.scm
+++ b/v7/src/6001/edextra.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edextra.scm,v 1.24 1998/01/03 18:12:52 cph Exp $
+$Id: edextra.scm,v 1.25 1998/01/20 02:35:36 cph Exp $
 
 Copyright (c) 1992-98 Massachusetts Institute of Technology
 
@@ -400,13 +400,6 @@ option the file from the problem set will not be installed.
 (set-variable! repl-error-decision true)
 (set-variable! version-control true)
 (set-variable! trim-versions-without-asking true)
-(let ((variable-bound?
-       (lambda (name)
-	 (string-table-get editor-variables (symbol->string name)))))
-  (if (variable-bound? 'enable-compressed-files)
-      (set-variable! enable-compressed-files false))
-  (if (variable-bound? 'enable-encrypted-files)
-      (set-variable! enable-encrypted-files false)))
 
 (if (eq? 'UNIX microcode-id/operating-system)
     (set-variable!