Mercurial > emacs
comparison lisp/help.el @ 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 | a02088b980e3 |
| children | 7658be8b972d |
comparison
equal
deleted
inserted
replaced
| 20175:ea977d99058b | 20176:fb907b54fe26 |
|---|---|
| 705 If the optional third arg PATH is specified, that list of directories | 705 If the optional third arg PATH is specified, that list of directories |
| 706 is used instead of `load-path'." | 706 is used instead of `load-path'." |
| 707 (interactive (list (read-string "Locate library: ") | 707 (interactive (list (read-string "Locate library: ") |
| 708 nil nil | 708 nil nil |
| 709 t)) | 709 t)) |
| 710 (let (result | 710 (let (result) |
| 711 (jka-compr-inhibit t)) | |
| 712 (catch 'answer | 711 (catch 'answer |
| 713 (mapcar | 712 (mapcar |
| 714 (lambda (dir) | 713 (lambda (dir) |
| 715 (mapcar | 714 (mapcar |
| 716 (lambda (suf) | 715 (lambda (suf) |
| 720 (progn | 719 (progn |
| 721 (setq result try) | 720 (setq result try) |
| 722 (throw 'answer try))))) | 721 (throw 'answer try))))) |
| 723 (if nosuffix | 722 (if nosuffix |
| 724 '("") | 723 '("") |
| 725 (let ((basic '(".elc" ".el" "")) | 724 '(".elc" ".el" "") |
| 726 (compressed '(".Z" ".gz" ""))) | 725 ;;; load doesn't handle this yet. |
| 727 ;; If autocompression mode is on, | 726 ;;; (let ((basic '(".elc" ".el" "")) |
| 728 ;; consider all combinations of library suffixes | 727 ;;; (compressed '(".Z" ".gz" ""))) |
| 729 ;; and compression suffixes. | 728 ;;; ;; If autocompression mode is on, |
| 730 (if (rassq 'jka-compr-handler file-name-handler-alist) | 729 ;;; ;; consider all combinations of library suffixes |
| 731 (apply 'nconc | 730 ;;; ;; and compression suffixes. |
| 732 (mapcar (lambda (compelt) | 731 ;;; (if (rassq 'jka-compr-handler file-name-handler-alist) |
| 733 (mapcar (lambda (baselt) | 732 ;;; (apply 'nconc |
| 734 (concat baselt compelt)) | 733 ;;; (mapcar (lambda (compelt) |
| 735 basic)) | 734 ;;; (mapcar (lambda (baselt) |
| 736 compressed)) | 735 ;;; (concat baselt compelt)) |
| 737 basic))))) | 736 ;;; basic)) |
| 737 ;;; compressed)) | |
| 738 ;;; basic)) | |
| 739 ))) | |
| 738 (or path load-path))) | 740 (or path load-path))) |
| 739 (and interactive-call | 741 (and interactive-call |
| 740 (if result | 742 (if result |
| 741 (message "Library is file %s" result) | 743 (message "Library is file %s" result) |
| 742 (message "No library %s in search path" library))) | 744 (message "No library %s in search path" library))) |