changeset 38269:8401588c656a

(locate-library): Enable code that looks for compressed libraries if auto-compression-mode is on.

--- a/lisp/help.el	Tue Jul 03 12:30:34 2001 +0000
+++ b/lisp/help.el	Tue Jul 03 12:38:19 2001 +0000
@@ -1028,21 +1028,19 @@
 	  (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