Fixed.

[riece] / lisp / COMPILE

diff --git a/lisp/COMPILE b/lisp/COMPILE
index 5937bbb..53dce51 100644 (file)
--- a/lisp/COMPILE
+++ b/lisp/COMPILE
@@ -80,8 +80,11 @@
 
 (defvar riece-icons
   '(riece-command-quit
+    riece-command-join
+    riece-command-part
     riece-command-previous-channel
     riece-command-next-channel
+    riece-command-change-layout
     riece-submit-bug-report))
 
 (defun riece-compile-modules (modules)
@@ -120,11 +123,12 @@
     (make-directory dest t))
   (while icons
     (let ((name (symbol-name (car icons))))
-      (princ (format "%s.xpm -> %s\n" name dest))
-      (unless just-print
-       (copy-file (expand-file-name (concat name ".xpm"))
-                  (expand-file-name (concat name ".xpm") dest)
-                  t t)))
+      (when (file-exists-p (expand-file-name (concat name ".xpm")))
+       (princ (format "%s.xpm -> %s\n" name dest))
+       (unless just-print
+         (copy-file (expand-file-name (concat name ".xpm"))
+                    (expand-file-name (concat name ".xpm") dest)
+                    t t))))
     (setq icons (cdr icons))))
 
 (defun riece-install-just-print-p ()