aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChong Yidong2009-02-11 02:25:06 +0000
committerChong Yidong2009-02-11 02:25:06 +0000
commit352f6bff86d820ead574ef9d5dbcfde81caa7184 (patch)
tree0b30bbba5b52ffa20e9e577c07c54afa1ca8832a
parente6a5a411837f7ea38de2bf8ae691ebedf055475a (diff)
downloademacs-352f6bff86d820ead574ef9d5dbcfde81caa7184.tar.gz
emacs-352f6bff86d820ead574ef9d5dbcfde81caa7184.zip
(find-library-name, find-library): Doc fixes.
-rw-r--r--lisp/emacs-lisp/find-func.el6
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.
147LIBRARY 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.
212LIBRARY 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))