# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 994163899 0
# Node ID 8401588c656a0cb95a40982bdc3123eaf8d89de0
# Parent  829f5676c842cda6f3f217a89a8374699c417868
(locate-library): Enable code that looks for compressed
libraries if auto-compression-mode is on.

diff -r 829f5676c842 -r 8401588c656a lisp/help.el
--- 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