From: ueno <ueno>
Date: Fri, 4 Feb 2005 18:42:34 +0000 (+0000)
Subject: Only copy existing *.xpm files.
X-Git-Tag: riece-1_0_7~25
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=09d90c509b7040b04d96caaa3bff6e3e391165dc;p=elisp%2Friece.git

Only copy existing *.xpm files.
---

diff --git a/lisp/COMPILE b/lisp/COMPILE
index 5937bbb..4b3d57a 100644
--- 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)
@@ -119,12 +122,13 @@
   (unless (or just-print (file-exists-p dest))
     (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)))
+    (if (file-exists-p (expand-file-name (concat name ".xpm")))
+	(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))))
     (setq icons (cdr icons))))
 
 (defun riece-install-just-print-p ()