Mercurial > emacs
comparison lisp/subr.el @ 66315:167ad3f64775
(eval-after-load): Convert library name to an absolute file name using
locate-library, since load-history no longer has library names in it.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Sat, 22 Oct 2005 17:34:49 +0000 |
| parents | cf092daa39de |
| children | ecdadc99bf8c b31326248cf6 |
comparison
equal
deleted
inserted
replaced
| 66314:2cf0575a01cb | 66315:167ad3f64775 |
|---|---|
| 1348 (if (if (symbolp file) | 1348 (if (if (symbolp file) |
| 1349 (featurep file) | 1349 (featurep file) |
| 1350 ;; Make sure `load-history' contains the files dumped with | 1350 ;; Make sure `load-history' contains the files dumped with |
| 1351 ;; Emacs for the case that FILE is one of them. | 1351 ;; Emacs for the case that FILE is one of them. |
| 1352 ;; (load-symbol-file-load-history) | 1352 ;; (load-symbol-file-load-history) |
| 1353 (assoc file load-history)) | 1353 (when (locate-library file) |
| 1354 (assoc (locate-library file) load-history))) | |
| 1354 (eval form)))) | 1355 (eval form)))) |
| 1355 form) | 1356 form) |
| 1356 | 1357 |
| 1357 (defun eval-next-after-load (file) | 1358 (defun eval-next-after-load (file) |
| 1358 "Read the following input sexp, and run it whenever FILE is loaded. | 1359 "Read the following input sexp, and run it whenever FILE is loaded. |