diff options
author | Simon Marshall <simon@gnu.org> | 1997-10-23 14:58:25 +0000 |
---|---|---|
committer | Simon Marshall <simon@gnu.org> | 1997-10-23 14:58:25 +0000 |
commit | 69fffda4f0b045c1ba53e4f44eb1a962c210078d (patch) | |
tree | 783a64fb9e29a73e21775edf8ab37c1164d9f3f1 /lisp | |
parent | bf675bfda0af90a01d9c5a8ecae3c80e93f3d30b (diff) | |
download | emacs-69fffda4f0b045c1ba53e4f44eb1a962c210078d.tar.gz |
Indicate in messages if source code is being loaded.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/international/mule.el | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 5111840a0c7..15cfe9f58c9 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -49,10 +49,14 @@ Return t if file exists." ;; 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 @@ Return t if file exists." (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. |