* COMPILE (riece-compile-modules): Ignore errors during byte

compilation.
(riece-install-modules): If there lacks a compiled module, don't
attempt to install it.

diff --git a/lisp/COMPILE b/lisp/COMPILE
index 4b79abc..88ade99 100644 (file)
--- a/lisp/COMPILE
+++ b/lisp/COMPILE
@@ -58,7 +58,9 @@
       (let ((source (expand-file-name
                     (concat (symbol-name (car modules)) ".el"))))
        (if (file-newer-than-file-p source (concat source "c"))
       (let ((source (expand-file-name
                     (concat (symbol-name (car modules)) ".el"))))
        (if (file-newer-than-file-p source (concat source "c"))

-           (byte-compile-file source)))
+           (condition-case error
+               (byte-compile-file source)
+             (error))))

       (setq modules (cdr modules)))))
 
 (defun riece-install-modules (modules dest just-print)
       (setq modules (cdr modules)))))
 
 (defun riece-install-modules (modules dest just-print)


@@ -73,9 +75,12 @@
                   t t))
       (princ (format "%s.elc -> %s\n" name dest))
       (unless just-print
                   t t))
       (princ (format "%s.elc -> %s\n" name dest))
       (unless just-print

-       (copy-file (expand-file-name (concat name ".elc"))
-                  (expand-file-name (concat name ".elc") dest)
-                  t t)))
+       (if (file-exists-p (expand-file-name (concat name ".elc")))
+           (copy-file (expand-file-name (concat name ".elc"))
+                      (expand-file-name (concat name ".elc") dest)
+                      t t)
+         (princ (format "(%s was not successfully compiled, ignored)\n"
+                        name)))))

     (setq modules (cdr modules))))
 
 (defun riece-install-just-print-p ()
     (setq modules (cdr modules))))
 
 (defun riece-install-just-print-p ()

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 138a701..6591663 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2003-08-25  Daiki Ueno  <ueno@unixuser.org>
 
 2003-08-25  Daiki Ueno  <ueno@unixuser.org>
 

+       * COMPILE (riece-compile-modules): Ignore errors during byte
+       compilation.
+       (riece-install-modules): If there lacks a compiled module, don't
+       attempt to install it.
+

        * riece-options.el (riece-quit-timeout): Default to 10.
 
        * riece.el (riece-dialogue-mode-map): Bind riece-command-change-layout.
        * riece-options.el (riece-quit-timeout): Default to 10.
 
        * riece.el (riece-dialogue-mode-map): Bind riece-command-change-layout.