Mercurial > emacs
changeset 74117:db85df5747ae
(find-library-name): Don't strip ".el" from library name (reverts change
of 2005-10-25).
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Tue, 21 Nov 2006 20:06:53 +0000 |
| parents | 0c249832f2a3 |
| children | bee73d83d967 |
| files | lisp/ChangeLog lisp/emacs-lisp/find-func.el |
| diffstat | 2 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Nov 21 17:27:51 2006 +0000 +++ b/lisp/ChangeLog Tue Nov 21 20:06:53 2006 +0000 @@ -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
--- a/lisp/emacs-lisp/find-func.el Tue Nov 21 17:27:51 2006 +0000 +++ b/lisp/emacs-lisp/find-func.el Tue Nov 21 20:06:53 2006 +0000 @@ -147,9 +147,9 @@ (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)