From 2860ae2aaaebb12c96152919956531424d4966a8 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 25 Aug 2003 00:37:00 +0000 Subject: [PATCH] * COMPILE (riece-compile-modules): Ignore errors during byte compilation. (riece-install-modules): If there lacks a compiled module, don't attempt to install it. --- lisp/COMPILE | 13 +++++++++---- lisp/ChangeLog | 5 +++++ 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/lisp/COMPILE b/lisp/COMPILE index 4b79abc..88ade99 100644 --- 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")) - (byte-compile-file source))) + (condition-case error + (byte-compile-file source) + (error)))) (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 - (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 () diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 138a701..6591663 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2003-08-25 Daiki Ueno + * 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. -- 1.7.10.4