From 1a40d81d1a511d2c0bb6be6e2149f6a3e84aa06c Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 25 Sep 2002 18:58:37 +0000 Subject: [PATCH] (find-library-name): Correctly find "f.el.gz" from "f.elc" or "f.elc.gz". --- lisp/emacs-lisp/find-func.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index c05167cc3c9..1ca39b461f7 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -121,8 +121,8 @@ See the functions `find-function' and `find-variable'." "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) '(""))) -- 2.39.2