# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1141005282 0
# Node ID cba71dc12c1447589817cd8cd64121c5eaefd6d2
# Parent  19020d531a4a05162676b70d73cb5f30b6a362d2
(file-loadhist-lookup): Use `get-load-suffixes' instead of `load-suffixes'.

diff -r 19020d531a4a -r cba71dc12c14 lisp/loadhist.el
--- a/lisp/loadhist.el	Mon Feb 27 01:53:28 2006 +0000
+++ b/lisp/loadhist.el	Mon Feb 27 01:54:42 2006 +0000
@@ -60,8 +60,8 @@
   (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))