From: ueno <ueno>
Date: Sun, 6 Mar 2005 00:32:18 +0000 (+0000)
Subject: * COMPILE (riece-compile-modules): Print summary.
X-Git-Tag: riece-1_0_8~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a8e2d61b444f9be2db4e78189a2c13968c886e46;p=elisp%2Friece.git

* COMPILE (riece-compile-modules): Print summary.
---

diff --git a/lisp/COMPILE b/lisp/COMPILE
index 53dce51..05d2262 100644
--- a/lisp/COMPILE
+++ b/lisp/COMPILE
@@ -88,15 +88,27 @@
     riece-submit-bug-report))
 
 (defun riece-compile-modules (modules)
-  (let ((load-path (cons nil load-path)))
+  (let ((load-path (cons nil load-path))
+	error-modules)
     (while modules
       (let ((source (expand-file-name
 		     (concat (symbol-name (car modules)) ".el"))))
 	(if (file-newer-than-file-p source (concat source "c"))
 	    (condition-case error
 		(byte-compile-file source)
-	      (error))))
-      (setq modules (cdr modules)))))
+	      (error
+	       (setq error-modules (cons (car modules) error-modules))))))
+      (setq modules (cdr modules)))
+    (if error-modules
+	(princ (concat "\n\
+  WARNING: ---------------------------------------------------------
+  WARNING: Couldn't compile following modules:
+  WARNING: 
+  WARNING:   " (mapconcat #'symbol-name error-modules ", ") "\n\
+  WARNING: 
+  WARNING: You should probably stop here, try \"make distclean\" to clear
+  WARNING: the last build, and then reconfigure.
+  WARNING: ---------------------------------------------------------\n\n")))))
 
 (defun riece-install-modules (modules dest just-print)
   (unless (or just-print (file-exists-p dest))
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e6a5db8..0de86b8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-03-06  Daiki Ueno  <ueno@unixuser.org>
+
+	* COMPILE (riece-compile-modules): Print summary.
+
 2005-03-05  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-version.el: Bind emacs-program-version.