From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 24 Oct 1997 19:50:35 +0000 (+0000)
Subject: (locate-library): Comment out the code that searches
X-Git-Tag: emacs-20.3~2897
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dd557bb8a2195c072896a379c48a586235a98be2;p=emacs.git

(locate-library): Comment out the code that searches
for compressed files.
---

diff --git a/lisp/help.el b/lisp/help.el
index cc322482f14..8fdcc7c8d48 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -707,8 +707,7 @@ is used instead of `load-path'."
   (interactive (list (read-string "Locate library: ")
 		     nil nil
 		     t))
-  (let (result
-	(jka-compr-inhibit t))
+  (let (result)
     (catch 'answer
       (mapcar
        (lambda (dir)
@@ -722,19 +721,22 @@ is used instead of `load-path'."
 		     (throw 'answer try)))))
 	  (if nosuffix
 	      '("")
-	    (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)))))
+	    '(".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))
+	    )))
        (or path load-path)))
     (and interactive-call
 	 (if result