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.