From: Luc Teirlinck <teirllm@auburn.edu>
Date: Mon, 27 Feb 2006 01:54:42 +0000 (+0000)
Subject: (file-loadhist-lookup): Use `get-load-suffixes' instead of `load-suffixes'.
X-Git-Tag: emacs-pretest-22.0.90~3889
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e18ce91df465653223de913756f5eb2c769057b7;p=emacs.git

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

diff --git a/lisp/loadhist.el b/lisp/loadhist.el
index 81dc8ebe3df..dc0e4bdc3a2 100644
--- 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))