From ffeea9318efaf2e9eab52c66bb1fcc36876e9283 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Fri, 4 Feb 2005 18:42:34 +0000 Subject: [PATCH] Only copy existing *.xpm files. --- lisp/COMPILE | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) 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 () -- 2.25.1