Mercurial > emacs

changeset 87095:8f23eba1a316

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make `find-function' prefer ".el" over "" to fix a bug (see emacs-devel)
author Deepak Goel <deego@gnufans.org>
date Wed, 05 Dec 2007 22:16:17 +0000
parents 9ddfcd9ca5e3
children a99a2e8bc21e
files lisp/emacs-lisp/find-func.el
diffstat 1 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)))