From 671c71920ebe006319f5bac6bee1a70570a6bc14 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Mon, 16 Nov 1992 21:09:32 +0000
Subject: [PATCH] Move load-option from top-level to inside the
 encryption/decryption command.  In this way krypt is only loaded when first
 accessed, and not at edwin load time.

---
 v7/src/edwin/dired.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index b8eebe54b..6b0f8fdd5 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dired.scm,v 1.129 1992/11/16 16:39:12 bal Exp $
+;;;	$Id: dired.scm,v 1.130 1992/11/16 21:09:32 gjr Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-1992 Massachusetts Institute of Technology
 ;;;
@@ -580,13 +580,12 @@ Actions controlled by variables list-directory-brief-switches
 
 ;;;; Krypt File
 
-(load-option 'krypt)
-
 (define-command dired-krypt-file
   "Krypt/unkrypt a file.  If the file ends in KY, assume it is already 
 krypted and unkrypt it.  Otherwise, krypt it."
   '()
   (lambda ()
+    (load-option 'krypt)
     (let ((pathname (dired-current-pathname)))
       (if (and (pathname-type pathname)
 	       (string=? (pathname-type pathname) "KY"))
-- 
2.25.1