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

[Juanma Barranquero]

On 11/22/06, Romain Francoise <address@hidden> wrote:

> As noted in <address@hidden>:
>
>     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)