From f1c53471a7eda50ac95f3961f57baadcd514e6e0 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 3 Jul 2001 12:39:17 +0000 Subject: [PATCH] (locate-library): Enable code that looks for compressed libraries if auto-compression-mode is on. --- lisp/ChangeLog | 5 +++++ lisp/help.el | 28 +++++++++++++--------------- 2 files changed, 18 insertions(+), 15 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e7b5c487834..e1259af3479 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-07-03 Eli Zaretskii + + * help.el (locate-library): Enable code that looks for compressed + libraries if auto-compression-mode is on. + 2001-07-02 Stefan Monnier * info.el (Info-clone-buffer-hook): Really unconditionally copy marker. diff --git a/lisp/help.el b/lisp/help.el index 945b168f881..c0447dcaedd 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -1028,21 +1028,19 @@ and the file name is displayed in the echo area." (if nosuffix '("") '(".elc" ".el" "") -;;; load doesn't handle this yet. -;;; (let ((basic '(".elc" ".el" "")) -;;; (compressed '(".Z" ".gz" ""))) -;;; ;; If autocompression mode is on, -;;; ;; consider all combinations of library suffixes -;;; ;; and compression suffixes. -;;; (if (rassq 'jka-compr-handler file-name-handler-alist) -;;; (apply 'nconc -;;; (mapcar (lambda (compelt) -;;; (mapcar (lambda (baselt) -;;; (concat baselt compelt)) -;;; basic)) -;;; compressed)) -;;; basic)) - ))) + (let ((basic '(".elc" ".el" "")) + (compressed '(".Z" ".gz" ""))) + ;; If autocompression mode is on, + ;; consider all combinations of library suffixes + ;; and compression suffixes. + (if (rassq 'jka-compr-handler file-name-handler-alist) + (apply 'nconc + (mapcar (lambda (compelt) + (mapcar (lambda (baselt) + (concat baselt compelt)) + basic)) + compressed)) + basic))))) (or path load-path))) (and interactive-call (if result -- 2.39.2