Re: find-library-name fails if file (with no extension) exists.

["Juanma Barranquero" <lekktu@gmail.com>]

On 11/22/06, Romain Francoise <romain@orebokech.com> wrote:

> As noted in <8764d8u085.fsf@pacem.orebokech.com>:
>
>     Note that the same problem existed before my change with files
>     ending in ".elc".
>
> This problem is still there, since I just reverted my change.
>
> But frankly, I doubt it'll bother anyone.

This simple patch does fix the problem. Am I overlooking something
obvious? (The patch is really one-line; the change in the regexp is
just to remove leftover parentheses.)

                    /L/e/k/t/u



Index: lisp/emacs-lisp/find-func.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/find-func.el,v
retrieving revision 1.78
diff -u -2 -r1.78 find-func.el
--- lisp/emacs-lisp/find-func.el	21 Nov 2006 20:06:53 -0000	1.78
+++ lisp/emacs-lisp/find-func.el	22 Nov 2006 12:05:07 -0000
@@ -150,6 +150,6 @@
   ;; 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)))
+  (if (string-match "\\.elc\\(\\..*\\)?\\'" library)
+      (setq library (replace-match ".el" t t library)))
   (or (locate-file library
 		   (or find-function-source-path load-path)