Fixed.
authorueno <ueno>
Fri, 4 Feb 2005 23:52:17 +0000 (23:52 +0000)
committerueno <ueno>
Fri, 4 Feb 2005 23:52:17 +0000 (23:52 +0000)
lisp/COMPILE

index 4b3d57a..53dce51 100644 (file)
   (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 ()