From a8e2d61b444f9be2db4e78189a2c13968c886e46 Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 6 Mar 2005 00:32:18 +0000 Subject: [PATCH] * COMPILE (riece-compile-modules): Print summary. --- lisp/COMPILE | 18 +++++++++++++++--- lisp/ChangeLog | 4 ++++ 2 files changed, 19 insertions(+), 3 deletions(-) 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 + + * COMPILE (riece-compile-modules): Print summary. + 2005-03-05 Daiki Ueno * riece-version.el: Bind emacs-program-version. -- 1.7.10.4