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

diff --git a/lisp/COMPILE b/lisp/COMPILE
index 53dce51..05d2262 100644 (file)
--- 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 (file)
--- 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.