Mercurial > emacs

comparison lisp/emacs-lisp/find-func.el @ 47446:8bd5dd6cc381

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(find-library-name): Don't forget the empty suffix. Fix stale variable name.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 12 Sep 2002 21:48:20 +0000
parents 8268e926d8e9
children 85021da80289
comparison
equal deleted inserted replaced
47445:d54b5b9a2b77 47446:8bd5dd6cc381
123 ;; the same name. 123 ;; the same name.
124 (if (string-match "\\.el\\(c\\(\\..*\\)\\)\\'" library) 124 (if (string-match "\\.el\\(c\\(\\..*\\)\\)\\'" library)
125 (setq library (replace-match "" t t library 1))) 125 (setq library (replace-match "" t t library 1)))
126 (or (locate-file library 126 (or (locate-file library
127 (or find-function-source-path load-path) 127 (or find-function-source-path load-path)
128 (find-library-suffixes)) 128 (append (find-library-suffixes) ""))
129 (error "Can't find library %s" file))) 129 (error "Can't find library %s" library)))
130 130
131 ;;;###autoload 131 ;;;###autoload
132 (defun find-library (library) 132 (defun find-library (library)
133 "Find the elisp source of LIBRARY." 133 "Find the elisp source of LIBRARY."
134 (interactive 134 (interactive