diff options
| author | Luc Teirlinck | 2006-02-27 01:54:42 +0000 |
|---|---|---|
| committer | Luc Teirlinck | 2006-02-27 01:54:42 +0000 |
| commit | e18ce91df465653223de913756f5eb2c769057b7 (patch) | |
| tree | 9fcc7d354cd71002b03159c630f04f03aaeb0a8a | |
| parent | 9f6fdbf0a2c2d9bb1196a14f2561df44c78cf0e1 (diff) | |
| download | emacs-e18ce91df465653223de913756f5eb2c769057b7.tar.gz emacs-e18ce91df465653223de913756f5eb2c769057b7.zip | |
(file-loadhist-lookup): Use `get-load-suffixes' instead of `load-suffixes'.
| -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." | |||
| 60 | (let ((symbols (assoc file load-history))) | 60 | (let ((symbols (assoc file load-history))) |
| 61 | ;; Try converting a library name to an absolute file name. | 61 | ;; Try converting a library name to an absolute file name. |
| 62 | (and (null symbols) | 62 | (and (null symbols) |
| 63 | (let ((absname | 63 | (let ((absname |
| 64 | (locate-file file load-path load-suffixes))) | 64 | (locate-file file load-path (get-load-suffixes)))) |
| 65 | (and absname (not (equal absname file)) | 65 | (and absname (not (equal absname file)) |
| 66 | (setq symbols (cdr (assoc absname load-history)))))) | 66 | (setq symbols (cdr (assoc absname load-history)))))) |
| 67 | symbols)) | 67 | symbols)) |