mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 22:41:06 -08:00
Code Issues Projects Releases Wiki Activity

(find-library-suffixes): Use get-load-suffixes' instead of load-suffixes'.

Browse source 
(find-library-name): Use `load-file-rep-suffixes' instead of '("").
This commit is contained in:
Luc Teirlinck 2006-02-27 02:03:00 +00:00
parent 667b73dcdf
commit f352b9d773
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -142,7 +142,7 @@ See the functions `find-function' and `find-variable'."
(defun find-library-suffixes ()
(let ((suffixes nil))
(dolist (suffix load-suffixes (nreverse suffixes))
(dolist (suffix (get-load-suffixes) (nreverse suffixes))
(unless (string-match "elc" suffix) (push suffix suffixes)))))
(defun find-library-name (library)
@ -153,7 +153,7 @@ See the functions `find-function' and `find-variable'."
(setq library (replace-match "" t t library)))
(or (locate-file library
(or find-function-source-path load-path)
(append (find-library-suffixes) '("")))
(append (find-library-suffixes) load-file-rep-suffixes))
(error "Can't find library %s" library)))
(defvar find-function-C-source-directory