procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Deepak Goel 2007-12-05 22:16:17 +00:00
parent b36fbf817e
commit 8aa8da0595
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/find-func.el
View file

@ -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)))