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)))