X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2FCOMPILE;h=0b5240d475dc6b9c8570a1900ac433d8e455e699;hp=8a1e625cd8e691b86ce3f9c0ece22e3accc43467;hb=94931c0566611012f49aebb45a0116a1fc9eac7c;hpb=fe7ce5e9a344721b1ecdd4d9ec1adce5dc908a49 diff --git a/lisp/COMPILE b/lisp/COMPILE index 8a1e625..0b5240d 100644 --- a/lisp/COMPILE +++ b/lisp/COMPILE @@ -8,11 +8,11 @@ '(riece-globals riece-options riece-version - riece-inlines - riece-highlight riece-coding riece-complete + riece-addon + riece-mode ;; riece-identity -+-> riece-channel ;; +-> riece-user riece-identity @@ -20,6 +20,10 @@ riece-user riece-misc + riece-signal + + ;; riece-layout ---> riece-display + riece-layout riece-display riece-server @@ -38,7 +42,35 @@ riece-500 riece-commands - riece)))) + riece-irc + riece + + ;; add-ons + riece-ctcp + riece-highlight + riece-log + riece-mini + riece-rdcc + riece-url + riece-unread + riece-doctor + riece-alias + riece-skk-kakutei + riece-foolproof + riece-guess + riece-history + riece-button + riece-keyword + riece-menu + riece-icon + riece-async + riece-lsdb + riece-xface + riece-ctlseq + riece-ignore + riece-hangman + riece-biff + riece-kakasi)))) (defun riece-compile-modules (modules) (let ((load-path (cons nil load-path))) @@ -46,7 +78,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) @@ -61,9 +95,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 () @@ -82,13 +119,14 @@ (riece-install-just-print-p))) (defun riece-compile-package () - (riece-compile) (setq autoload-package-name "riece") (add-to-list 'command-line-args-left ".") (batch-update-directory) (add-to-list 'command-line-args-left ".") (Custom-make-dependencies) - (riece-compile-modules (list 'auto-autoloads 'custom-load))) + (riece-compile-modules + (append riece-modules + '(auto-autoloads custom-load)))) (defun riece-install-package () (riece-install-modules