Mercurial > emacs
comparison lisp/loadhist.el @ 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 | 3bd95f4f2941 |
| children | 3fc0524ae318 5754737d1e04 |
comparison
equal
deleted
inserted
replaced
| 69164:19020d531a4a | 69165:cba71dc12c14 |
|---|---|
| 58 A library name is equivalent to the file name that `load-library' would load." | 58 A library name is equivalent to the file name that `load-library' would load." |
| 59 ;; First look for FILE as given. | 59 ;; First look for FILE as given. |
| 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)) |
| 68 | 68 |
| 69 (defun file-provides (file) | 69 (defun file-provides (file) |