diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2006-02-27 01:54:42 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2006-02-27 01:54:42 +0000 |
| commit | e18ce91df465653223de913756f5eb2c769057b7 (patch) | |
| tree | 9fcc7d354cd71002b03159c630f04f03aaeb0a8a /lisp/loadhist.el | |
| parent | 9f6fdbf0a2c2d9bb1196a14f2561df44c78cf0e1 (diff) | |
| download | emacs-e18ce91df465653223de913756f5eb2c769057b7.tar.gz emacs-e18ce91df465653223de913756f5eb2c769057b7.tar.bz2 emacs-e18ce91df465653223de913756f5eb2c769057b7.zip | |
(file-loadhist-lookup): Use `get-load-suffixes' instead of `load-suffixes'.
Diffstat (limited to 'lisp/loadhist.el')
| -rw-r--r-- | lisp/loadhist.el | 4 |
1 files 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)) |