diff options
| author | Alan Mackenzie <acm@muc.de> | 2006-05-24 13:22:12 +0000 |
|---|---|---|
| committer | Alan Mackenzie <acm@muc.de> | 2006-05-24 13:22:12 +0000 |
| commit | 33d74677e73926286cf179457dacebcea3306418 (patch) | |
| tree | 3b684b304b42a5ede630273ecec8fe510108d46d /lisp/international/mule.el | |
| parent | a386b0959d81786a197f2c71170ba716c71702df (diff) | |
| download | emacs-33d74677e73926286cf179457dacebcea3306418.tar.gz | |
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.
Diffstat (limited to 'lisp/international/mule.el')
| -rw-r--r-- | lisp/international/mule.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 350b6347b42..72198bb1258 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -98,9 +98,9 @@ Return t if file exists." )) (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) |