# HG changeset patch
# User Deepak Goel <deego@gnufans.org>
# Date 1196892977 0
# Node ID 8f23eba1a316d5504c10ee215304e0d98daf73ca
# Parent  9ddfcd9ca5e3791f78069094c975b2b12b03f0fd
Make `find-function' prefer ".el" over "" to fix a bug (see emacs-devel)

diff -r 9ddfcd9ca5e3 -r 8f23eba1a316 lisp/emacs-lisp/find-func.el
--- a/lisp/emacs-lisp/find-func.el	Wed Dec 05 22:09:53 2007 +0000
+++ b/lisp/emacs-lisp/find-func.el	Wed Dec 05 22:16:17 2007 +0000
@@ -149,10 +149,14 @@
   ;; 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)))