diff 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.

--- a/lisp/international/mule.el	Wed May 24 12:05:03 2006 +0000
+++ b/lisp/international/mule.el	Wed May 24 13:22:12 2006 +0000
@@ -98,9 +98,9 @@
 			 ))
 	(let (kill-buffer-hook kill-buffer-query-functions)
 	  (kill-buffer buffer)))
-      (let ((hook (assoc file after-load-alist)))
-	(when hook
-	  (mapcar (function eval) (cdr hook))))
+      (unless purify-flag
+ 	(do-after-load-evaluation fullname))
+      
       (unless (or nomessage noninteractive)
 	(if source
 	    (message "Loading %s (source)...done" file)