Mercurial > emacs

comparison lisp/emacs-lisp/find-func.el @ 47447:85021da80289

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(find-library-name): Typo.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 12 Sep 2002 21:49:55 +0000
parents 8bd5dd6cc381
children 8a24f7edde82
comparison
equal deleted inserted replaced
47446:8bd5dd6cc381 47447:85021da80289
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 (append (find-library-suffixes) "")) 128 (append (find-library-suffixes) '("")))
129 (error "Can't find library %s" library))) 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."