From: ueno Date: Fri, 4 Feb 2005 23:52:17 +0000 (+0000) Subject: Fixed. X-Git-Tag: riece-1_0_7~20 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ed71d3092df7cc6db227fb264b2f34f35ac922fb;p=elisp%2Friece.git Fixed. --- diff --git a/lisp/COMPILE b/lisp/COMPILE index 4b3d57a..53dce51 100644 --- a/lisp/COMPILE +++ b/lisp/COMPILE @@ -122,13 +122,13 @@ (unless (or just-print (file-exists-p dest)) (make-directory dest t)) (while icons - (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)))) + (let ((name (symbol-name (car icons)))) + (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 ()