procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
of 2005-10-25).
This commit is contained in:
Romain Francoise 2006-11-21 20:06:53 +00:00
parent 2d1af8babf
commit fef1f0f2a5
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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

6
lisp/emacs-lisp/find-func.el
View file

@ -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)