From e18ce91df465653223de913756f5eb2c769057b7 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Mon, 27 Feb 2006 01:54:42 +0000 Subject: [PATCH] (file-loadhist-lookup): Use `get-load-suffixes' instead of `load-suffixes'. --- lisp/loadhist.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 2.39.5