From: Deepak Goel <deego@gnufans.org>
Date: Wed, 5 Dec 2007 22:16:17 +0000 (+0000)
Subject: Make `find-function' prefer ".el" over "" to fix a bug (see emacs-devel)
X-Git-Tag: emacs-pretest-23.0.90~9067
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8aa8da0595964fc0a0e5980b05afed9050031abe;p=emacs.git

Make `find-function' prefer ".el" over "" to fix a bug (see emacs-devel)
---

diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index b3c7c339030..24e26827f7c 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -149,10 +149,14 @@ See the functions `find-function' and `find-variable'."
   ;; the same name.
   (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) load-file-rep-suffixes))
-      (error "Can't find library %s" library)))
+  (or 
+   (locate-file library
+		(or find-function-source-path load-path)
+		(find-library-suffixes))
+   (locate-file library
+		(or find-function-source-path load-path)
+		load-file-rep-suffixes)
+   (error "Can't find library %s" library)))
 
 (defvar find-function-C-source-directory
   (let ((dir (expand-file-name "src" source-directory)))