Mercurial > emacs
changeset 47610:8a24f7edde82
(find-library-name): Correctly find "f.el.gz" from "f.elc" or "f.elc.gz".
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 25 Sep 2002 18:58:37 +0000 |
| parents | 9c74f4f1d1c0 |
| children | 6bc56530304a |
| files | lisp/emacs-lisp/find-func.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/find-func.el Wed Sep 25 17:45:29 2002 +0000 +++ b/lisp/emacs-lisp/find-func.el Wed Sep 25 18:58:37 2002 +0000 @@ -121,8 +121,8 @@ "Return the full name of the elisp source of 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 1))) + (if (string-match "\\.el\\(c\\(\\..*\\)?\\)\\'" library) + (setq library (replace-match "" t t library))) (or (locate-file library (or find-function-source-path load-path) (append (find-library-suffixes) '("")))