Commit fef1f0f2 authored by Romain Francoise's avatar Romain Francoise
Browse files

(find-library-name): Don't strip ".el" from library name (reverts change

of 2005-10-25).
parent 2d1af8ba
2006-11-21 Romain Francoise <romain@orebokech.com>
* emacs-lisp/find-func.el (find-library-name): Don't strip ".el"
from library name (reverts change of 2005-10-25).
2006-11-21 Lennart Borgman <lennart.borgman.073@student.lu.se>
 
* tutorial.el (tutorial--default-keys): Add newline and
......@@ -147,9 +147,9 @@ See the functions `find-function' and `find-variable'."
(defun find-library-name (library)
"Return the absolute file name of the Lisp source of LIBRARY."
;; Strip off the extension to take advantage of library suffixes in
;; the call to `locate-file'.
(if (string-match "\\.el\\(c\\(\\..*\\)?\\)?\\'" library)
;; If the library is byte-compiled, try to find a source library by
;; the same name.
(if (string-match "\\.el\\(c\\(\\..*\\)?\\)\\'" library)
(setq library (replace-match "" t t library)))
(or (locate-file library
(or find-function-source-path load-path)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment