[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/find-func.el

[Luc Teirlinck]

Index: emacs/lisp/emacs-lisp/find-func.el
diff -u emacs/lisp/emacs-lisp/find-func.el:1.68 
emacs/lisp/emacs-lisp/find-func.el:1.69
--- emacs/lisp/emacs-lisp/find-func.el:1.68     Mon Feb  6 12:20:06 2006
+++ emacs/lisp/emacs-lisp/find-func.el  Mon Feb 27 02:03:00 2006
@@ -142,7 +142,7 @@
 
 (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 @@
       (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