Mercurial > emacs
changeset 20176:fb907b54fe26
(locate-library): Comment out the code that searches
for compressed files.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 24 Oct 1997 19:50:35 +0000 |
| parents | ea977d99058b |
| children | 6ebc3e300106 |
| files | lisp/help.el |
| diffstat | 1 files changed, 17 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Fri Oct 24 19:37:53 1997 +0000 +++ b/lisp/help.el Fri Oct 24 19:50:35 1997 +0000 @@ -707,8 +707,7 @@ (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 @@ (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