Mercurial > emacs
diff lisp/international/mule.el @ 20168:13074c25ab06
Indicate in messages if source code is being loaded.
author | Simon Marshall <simon@gnu.org> |
---|---|
date | Thu, 23 Oct 1997 14:58:25 +0000 |
parents | 0d9c6ccdc45c |
children | faf18d58a01b |
line wrap: on
line diff
--- a/lisp/international/mule.el Thu Oct 23 13:43:14 1997 +0000 +++ b/lisp/international/mule.el Thu Oct 23 14:58:25 1997 +0000 @@ -49,10 +49,14 @@ ;; We can't use `generate-new-buffer' because files.el ;; is not yet loaded. (get-buffer-create (generate-new-buffer-name " *load*")))) - (load-in-progress t)) - (or nomessage (message "Loading %s..." file)) - (if purify-flag - (setq preloaded-file-list (cons file preloaded-file-list))) + (load-in-progress t) + (source (save-match-data (string-match "\\.el\\'" fullname)))) + (unless nomessage + (if source + (message "Loading %s (source)..." file) + (message "Loading %s..." file))) + (when purify-flag + (setq preloaded-file-list (cons file preloaded-file-list))) (unwind-protect (let ((load-file-name fullname) (inhibit-file-name-operation nil)) @@ -68,10 +72,12 @@ (let (kill-buffer-hook kill-buffer-query-functions) (kill-buffer buffer))) (let ((hook (assoc file after-load-alist))) - (if hook - (mapcar (function eval) (cdr hook)))) - (or nomessage noninteractive - (message "Loading %s...done" file)) + (when hook + (mapcar (function eval) (cdr hook)))) + (unless (or nomessage noninteractive) + (if source + (message "Loading %s (source)...done" file) + (message "Loading %s...done" file))) t))) ;; API (Application Program Interface) for charsets.