diff options
| author | Dave Love <fx@gnu.org> | 1999-01-29 18:27:10 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1999-01-29 18:27:10 +0000 |
| commit | 2d212d873560d74d59e50bbdcb6886f66a90f118 (patch) | |
| tree | a4d1ed856cb0dc996735a040e294a964414cd550 /lisp/finder.el | |
| parent | 1f0402c393a593d4e8285ee54d1d38ab0643ce4e (diff) | |
| download | emacs-2d212d873560d74d59e50bbdcb6886f66a90f118.tar.gz | |
(finder-commentary): Fix interactive spec. Try
appending .el to file name.
(finder-find-library, finder-commentary): Doc fixes.
Diffstat (limited to 'lisp/finder.el')
| -rw-r--r-- | lisp/finder.el | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/lisp/finder.el b/lisp/finder.el index 07d79f84220..a0216c415b6 100644 --- a/lisp/finder.el +++ b/lisp/finder.el @@ -1,6 +1,6 @@ ;;; finder.el --- topic & keyword-based code finder -;; Copyright (C) 1992, 1997, 1998 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1997, 1998, 1999 Free Software Foundation, Inc. ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> ;; Created: 16 Jun 1992 @@ -103,8 +103,8 @@ (defun finder-compile-keywords (&rest dirs) "Regenerate the keywords association list into the file `finder-inf.el'. -Optional arguments are a list of Emacs Lisp directories to compile from; no -arguments compiles from `load-path'." +Optional arguments DIRS are a list of Emacs Lisp directories to compile from; +no arguments compiles from `load-path'." (save-excursion (let ((processed nil)) (find-file "finder-inf.el") @@ -120,7 +120,7 @@ arguments compiles from `load-path'." (when (file-exists-p (directory-file-name d)) (message "Directory %s" d) (mapcar - (lambda (f) + (lambda (f) (if (and (or (string-match "^[^=].*\\.el$" f) ;; Allow compressed files also. Fixme: ;; generalize this, especially for @@ -143,7 +143,7 @@ arguments compiles from `load-path'." (insert (format " (\"%s\"\n " (if (string-match "\\.\\(gz\\|Z\\)$" f) - (file-name-sans-extension f) + (file-name-sans-extension f) f))) (prin1 summary (current-buffer)) (insert @@ -229,9 +229,9 @@ arguments compiles from `load-path'." (shrink-window-if-larger-than-buffer) (finder-summary))) -;; Search for a file named FILE on `load-path', also trying compressed -;; versions if jka-compr is in use. (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) @@ -240,9 +240,12 @@ arguments compiles from `load-path'." (locate-library (concat library "z")))))) (defun finder-commentary (file) - "Display FILE's commentary section." - (interactive) - (let* ((str (lm-commentary (finder-find-library 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))))) (if (null str) (error "Can't find any Commentary section")) (pop-to-buffer "*Finder*") @@ -294,8 +297,7 @@ arguments compiles from `load-path'." "Major mode for browsing package documentation. \\<finder-mode-map> \\[finder-select] more help for the item on the current line -\\[finder-exit] exit Finder mode and kill the Finder buffer. -" +\\[finder-exit] exit Finder mode and kill the Finder buffer." (interactive) (use-local-map finder-mode-map) (set-syntax-table emacs-lisp-mode-syntax-table) |