mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 23:10:47 -08:00
Code Issues Projects Releases Wiki Activity

Indicate in messages if source code is being loaded.

Browse source
This commit is contained in:
Simon Marshall 1997-10-23 14:58:25 +00:00
parent 837984b11b
commit db5cae4b2d
2 changed files with 22 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/international/mule.el
View file

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

16
src/lread.c
View file

@ -534,12 +534,12 @@ Return t if file exists.")
if (NILP (nomessage))
{
if (newer)
if (!compiled)
message ("Loading %s (source)...", XSTRING (file)->data);
else if (newer)
message ("Loading %s (compiled; note, source file is newer)...",
XSTRING (file)->data);
else if (compiled)
message ("Loading %s (compiled)...", XSTRING (file)->data);
else
else /* The typical case; compiled file newer than source file. */
message ("Loading %s...", XSTRING (file)->data);
}
@ -570,12 +570,12 @@ Return t if file exists.")
if (!noninteractive && NILP (nomessage))
{
if (newer)
if (!compiled)
message ("Loading %s (source)...done", XSTRING (file)->data);
else if (newer)
message ("Loading %s (compiled; note, source file is newer)...done",
XSTRING (file)->data);
else if (compiled)
message ("Loading %s (compiled)...done", XSTRING (file)->data);
else
else /* The typical case; compiled file newer than source file. */
message ("Loading %s...done", XSTRING (file)->data);
}
return Qt;