From xemacs-m  Tue Aug 12 02:52:53 1997
Received: from kurims.kurims.kyoto-u.ac.jp (kurims.kurims.kyoto-u.ac.jp [130.54.16.1])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id CAA27868
	for <xemacs-beta@xemacs.org>; Tue, 12 Aug 1997 02:52:45 -0500 (CDT)
Received: from orion.kurims.kyoto-u.ac.jp (orion.kurims.kyoto-u.ac.jp [130.54.16.5]) by kurims.kurims.kyoto-u.ac.jp (8.8.5/3.4W2) with SMTP id QAA07365 for <xemacs-beta@xemacs.org>; Tue, 12 Aug 1997 16:52:13 +0900 (JST)
Received: (from petersen@localhost) by orion.kurims.kyoto-u.ac.jp (SMI-8.6/3.5Wbeta) id QAA20168; Tue, 12 Aug 1997 16:52:13 +0900
To: XEmacs Beta List <xemacs-beta@xemacs.org>
Subject: make `locate-library' test for crypt too
X-Emacs: 20.3 "Bucharest" XEmacs  Lucid (beta17) with mule
Mime-Version: 1.0 (generated by SEMI MIME-Edit 0.86 "Naka-Tsurugi")
Content-Type: text/plain; charset=US-ASCII
From: Jens-Ulrik Holger Petersen <petersen@kurims.kyoto-u.ac.jp>
Date: 12 Aug 1997 16:52:12 +0900
Message-ID: <lbzpqnu9cj.fsf@orion.kurims.kyoto-u.ac.jp>
Lines: 29

I am not using crypt myself (yet): though Steve tells is more file
coding system friendly than jka-compr...

Anyway here is a patch to make `locate-library' check for the presence 
of crypt (in addition to the current jka-compr check).

Presumably noone, who uses crypt, has used `locate-library' on compressed
elisp libraries much so far?

Jens


1997-08-12  Jens-Ulrik Holger Petersen  <petersen@kurims.kyoto-u.ac.jp>

	* prim/packages.el (locate-library): test also for crypt, in
	addition to jka-compr.

--- lisp/prim/packages.el~	Fri Aug  1 12:28:04 1997
+++ lisp/prim/packages.el	Tue Aug 12 16:10:06 1997
@@ -112,7 +112,8 @@
               ;; If autocompression mode is on,
               ;; consider all combinations of library suffixes
               ;; and compression suffixes.
-              (if (rassq 'jka-compr-handler file-name-handler-alist)
+              (if (or (rassq 'jka-compr-handler file-name-handler-alist)
+                      (member 'crypt-find-file-hook find-file-hooks))
                   (apply 'nconc
                          (mapcar (lambda (compelt)
                                    (mapcar (lambda (baselt)

