(file-loadhist-lookup): Use `get-load-suffixes' instead of `load-suffixes'.

diff --git a/lisp/loadhist.el b/lisp/loadhist.el
index 81dc8eb..dc0e4bd 100644 (file)
--- a/lisp/loadhist.el
+++ b/lisp/loadhist.el
@@ -60,8 +60,8 @@ A library name is equivalent to the file name that `load-library' would load."
   (let ((symbols (assoc file load-history)))
     ;; Try converting a library name to an absolute file name.
     (and (null symbols)
-        (let ((absname 
-               (locate-file file load-path load-suffixes)))
+        (let ((absname
+               (locate-file file load-path (get-load-suffixes))))
           (and absname (not (equal absname file))
                (setq symbols (cdr (assoc absname load-history))))))
     symbols))