(locate-library): Enable code that looks for compressed

libraries if auto-compression-mode is on.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7b5c487834f9faca38ce1a4ac511bb1cf4bb375..e1259af34792b33cf36b72400eef4935c8650e68 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-03  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * help.el (locate-library): Enable code that looks for compressed
+       libraries if auto-compression-mode is on.
+
 2001-07-02  Stefan Monnier  <monnier@cs.yale.edu>
 
        * info.el (Info-clone-buffer-hook): Really unconditionally copy marker.

diff --git a/lisp/help.el b/lisp/help.el
index 945b168f881060636338018f426d31a53021a294..c0447dcaedd7f8b0d0af951821a5fbe57b610623 100644 (file)
--- 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