# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1032980317 0
# Node ID 8a24f7edde829b82408bcc0b247309fcb535b396
# Parent  9c74f4f1d1c0101e495b930e2bc3b19214b052a2
(find-library-name): Correctly find "f.el.gz" from "f.elc" or "f.elc.gz".

diff -r 9c74f4f1d1c0 -r 8a24f7edde82 lisp/emacs-lisp/find-func.el
--- 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) '("")))