changeset 69165:cba71dc12c14

(file-loadhist-lookup): Use `get-load-suffixes' instead of `load-suffixes'.
author Luc Teirlinck <teirllm@auburn.edu>
date Mon, 27 Feb 2006 01:54:42 +0000
parents 19020d531a4a
children 919e61a6e661
files lisp/loadhist.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))