From: Luc Teirlinck <teirllm@auburn.edu>
Date: Mon, 27 Feb 2006 02:03:00 +0000 (+0000)
Subject: (find-library-suffixes): Use `get-load-suffixes' instead of `load-suffixes'.
X-Git-Tag: emacs-pretest-22.0.90~3885
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f352b9d7735eb10f2c604aa9ba0bc8f8ee964d1b;p=emacs.git

(find-library-suffixes): Use `get-load-suffixes' instead of `load-suffixes'.
(find-library-name): Use `load-file-rep-suffixes' instead of '("").
---

diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index 8776d4522c2..4f961df0791 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -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