- (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))))