Mercurial > emacs
diff lisp/emacs-lisp/find-func.el @ 87095:8f23eba1a316
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 | 0d668376c2e1 |
children | cdd30283527d 53108e6cea98 |
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)))