From dd557bb8a2195c072896a379c48a586235a98be2 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 24 Oct 1997 19:50:35 +0000 Subject: [PATCH] (locate-library): Comment out the code that searches for compressed files. --- lisp/help.el | 32 +++++++++++++++++--------------- 1 file changed, 17 insertions(+), 15 deletions(-) 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 -- 2.39.2