Mercurial > emacs
changeset 47419:0e00286fe517
(finder-find-library): Remove.
(finder-commentary): Use find-library-name and add completion.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 11 Sep 2002 21:28:51 +0000 |
| parents | 249d9450f2d0 |
| children | b7a8fec8113c |
| files | lisp/finder.el |
| diffstat | 1 files changed, 8 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/finder.el Wed Sep 11 21:19:25 2002 +0000 +++ b/lisp/finder.el Wed Sep 11 21:28:51 2002 +0000 @@ -39,6 +39,7 @@ ;;; Code: (require 'lisp-mnt) +(require 'find-func) ;for find-library(-suffixes) ;; Use `load' rather than `require' so that it doesn't get loaded ;; during byte-compilation (at which point it might be missing). (load "finder-inf" nil t) @@ -259,24 +260,17 @@ (shrink-window-if-larger-than-buffer) (finder-summary))) -(defun finder-find-library (library) - "Search for file LIBRARY on `load-path'. -Try compressed versions if jka-compr is in use." - (or (locate-library library t) - (if (rassq 'jka-compr-handler file-name-handler-alist) - (or (locate-library (concat library ".gz") t) - (locate-library (concat library ".Z") t) - ;; last resort for MS-DOG et al - (locate-library (concat library "z")))))) - ;;;###autoload (defun finder-commentary (file) "Display FILE's commentary section. FILE should be in a form suitable for passing to `locate-library'." - (interactive "sLibrary name: ") - (let* ((str (lm-commentary (or (finder-find-library file) - (finder-find-library (concat file ".el")) - (error "Can't find library %s" file))))) + (interactive + (list + (completing-read "Library name: " + 'locate-file-completion + (cons (or find-function-source-path load-path) + (find-library-suffixes))))) + (let* ((str (lm-commentary (find-library-name file)))) (if (null str) (error "Can't find any Commentary section")) (pop-to-buffer "*Finder*")