diff options
| author | Chong Yidong | 2009-02-11 02:25:06 +0000 |
|---|---|---|
| committer | Chong Yidong | 2009-02-11 02:25:06 +0000 |
| commit | 352f6bff86d820ead574ef9d5dbcfde81caa7184 (patch) | |
| tree | 0b30bbba5b52ffa20e9e577c07c54afa1ca8832a | |
| parent | e6a5a411837f7ea38de2bf8ae691ebedf055475a (diff) | |
| download | emacs-352f6bff86d820ead574ef9d5dbcfde81caa7184.tar.gz emacs-352f6bff86d820ead574ef9d5dbcfde81caa7184.zip | |
(find-library-name, find-library): Doc fixes.
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 9be76080ee0..d33742d9629 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el | |||
| @@ -143,7 +143,8 @@ See the functions `find-function' and `find-variable'." | |||
| 143 | (unless (string-match "elc" suffix) (push suffix suffixes))))) | 143 | (unless (string-match "elc" suffix) (push suffix suffixes))))) |
| 144 | 144 | ||
| 145 | (defun find-library-name (library) | 145 | (defun find-library-name (library) |
| 146 | "Return the absolute file name of the Lisp source of LIBRARY." | 146 | "Return the absolute file name of the Emacs Lisp source of LIBRARY. |
| 147 | LIBRARY should be a string (the name of the library)." | ||
| 147 | ;; If the library is byte-compiled, try to find a source library by | 148 | ;; If the library is byte-compiled, try to find a source library by |
| 148 | ;; the same name. | 149 | ;; the same name. |
| 149 | (if (string-match "\\.el\\(c\\(\\..*\\)?\\)\\'" library) | 150 | (if (string-match "\\.el\\(c\\(\\..*\\)?\\)\\'" library) |
| @@ -207,7 +208,8 @@ TYPE should be nil to find a function, or `defvar' to find a variable." | |||
| 207 | 208 | ||
| 208 | ;;;###autoload | 209 | ;;;###autoload |
| 209 | (defun find-library (library) | 210 | (defun find-library (library) |
| 210 | "Find the elisp source of LIBRARY." | 211 | "Find the Emacs Lisp source of LIBRARY. |
| 212 | LIBRARY should be a string (the name of the library)." | ||
| 211 | (interactive | 213 | (interactive |
| 212 | (let* ((dirs (or find-function-source-path load-path)) | 214 | (let* ((dirs (or find-function-source-path load-path)) |
| 213 | (suffixes (find-library-suffixes)) | 215 | (suffixes (find-library-suffixes)) |