* WL-MK (install-wl-icons): Use install-files to set file mode.

diff --git a/ChangeLog b/ChangeLog
index 2891585..fd334be 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-08-21  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * WL-MK (install-wl-icons): Use install-files to set file mode.
+
 2004-08-09  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * INSTALL, INSTALL.ja: Updated recommended version of APEL,

diff --git a/WL-MK b/WL-MK
index 4c8a102..19c9c38 100644 (file)
--- a/WL-MK
+++ b/WL-MK
@@ -246,23 +246,15 @@
   (if (not (file-directory-p PIXMAPDIR))
       (make-directory PIXMAPDIR t))
   (let* ((case-fold-search t)
-        (icons (directory-files ICONDIR t
+        (icons (directory-files ICONDIR nil
                                 (cond ((featurep 'xemacs)
                                        "\\.x[bp]m$")
                                       ((and (boundp 'emacs-major-version)
                                             (>= emacs-major-version 21))
                                        "\\.img$\\|\\.x[bp]m$")
                                       ((featurep 'mule)
-                                       "\\.img$\\|\\.xbm$"))))
-        icon dest)
-    (while icons
-      (setq icon (car icons)
-           icons (cdr icons)
-           dest (expand-file-name (file-name-nondirectory icon) PIXMAPDIR))
-      (princ (format "%s -> %s\n"
-                    (file-name-nondirectory icon)
-                    (substring (file-name-directory dest) 0 -1)))
-      (copy-file icon dest t))))
+                                       "\\.img$\\|\\.xbm$")))))
+    (install-files icons ICONDIR PIXMAPDIR nil 'overwrite)))
 
 (defun install-wl-package ()
   (compile-wl-package)