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

[Juanma Barranquero]

On 11/22/06, Juanma Barranquero <address@hidden> wrote:

> This simple patch does fix the problem.

This one makes even more sense, because library is not modified, so
the error message still refers to the library passed to the func.

                   /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:29:12 -0000
@@ -150,7 +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)))
-  (or (locate-file library
+  (or (locate-file (replace-regexp-in-string "\\.elc\\(\\..*\\)?\\'" ".el"
+                                            library t t)
                   (or find-function-source-path load-path)
                   (append (find-library-suffixes) load-file-rep-suffixes))