Mercurial > emacs
comparison lisp/international/mule.el @ 70879:238e43ed886e
startup.el (command-line): For names of preloaded files, don't append
".elc" (now done in Fload), and call file-truename on the lisp directory.
subr.el (eval-after-load): Fix the doc-string. Allow FILE to match ANY
loaded file with the right name, not just those in load-path. Put a
regexp matching the file name into after-load-alist, rather than the name
itself.
subr.el: New functions load-history-regexp,
load-history-filename-element, do-after-load-evaluation.
international/mule.el (load-with-code-conversion): Do the eval-after-load
stuff by calling do-after-load-evaluation.
author | Alan Mackenzie <acm@muc.de> |
---|---|
date | Wed, 24 May 2006 13:22:12 +0000 |
parents | 73aaf604b854 |
children | 48b2a1baa586 |
comparison
equal
deleted
inserted
replaced
70878:8740ce7e1367 | 70879:238e43ed886e |
---|---|
96 ;; (not default-enable-multibyte-characters) | 96 ;; (not default-enable-multibyte-characters) |
97 nil t | 97 nil t |
98 )) | 98 )) |
99 (let (kill-buffer-hook kill-buffer-query-functions) | 99 (let (kill-buffer-hook kill-buffer-query-functions) |
100 (kill-buffer buffer))) | 100 (kill-buffer buffer))) |
101 (let ((hook (assoc file after-load-alist))) | 101 (unless purify-flag |
102 (when hook | 102 (do-after-load-evaluation fullname)) |
103 (mapcar (function eval) (cdr hook)))) | 103 |
104 (unless (or nomessage noninteractive) | 104 (unless (or nomessage noninteractive) |
105 (if source | 105 (if source |
106 (message "Loading %s (source)...done" file) | 106 (message "Loading %s (source)...done" file) |
107 (message "Loading %s...done" file))) | 107 (message "Loading %s...done" file))) |
108 t))) | 108 t))) |