From 3a60c8832bbffb3d8bd9f9c691e5411b8e20bc21 Mon Sep 17 00:00:00 2001 From: kaoru Date: Mon, 4 Jan 2010 14:51:29 +0000 Subject: [PATCH] * WL-MK (wl-scan-source, wl-uninstall) (compile-wl-package, install-wl-package) (compile-wl-package-xmas, install-wl-package-xmas) (wl-texinfo-format, wl-texinfo-install) : Use `mapc' instead of `mapcar'. Don't quote `lambda'. --- ChangeLog | 8 ++++++++ WL-MK | 60 ++++++++++++++++++++++++++++++------------------------------ 2 files changed, 38 insertions(+), 30 deletions(-) diff --git a/ChangeLog b/ChangeLog index 1e9d30b..acb0953 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +2010-01-04 TAKAHASHI Kaoru + + * WL-MK (wl-scan-source, wl-uninstall) + (compile-wl-package, install-wl-package) + (compile-wl-package-xmas, install-wl-package-xmas) + (wl-texinfo-format, wl-texinfo-install) : Use `mapc' instead of + `mapcar'. Don't quote `lambda'. + 2008-11-25 TAKAHASHI Kaoru * INSTALL: Updated recommended version of FLIM. diff --git a/WL-MK b/WL-MK index 89d7af2..d7ab2d6 100644 --- a/WL-MK +++ b/WL-MK @@ -212,25 +212,25 @@ (defun wl-scan-source (path) (let (ret) - (mapcar - '(lambda (x) - (mapcar '(lambda (y) - (setq ret (append (list y (concat y "c")) ret))) - (directory-files x nil "\\(.+\\)\\.el$" t))) + (mapc + (lambda (x) + (mapc (lambda (y) + (setq ret (append (list y (concat y "c")) ret))) + (directory-files x nil "\\(.+\\)\\.el$" t))) path) ret)) (defun wl-uninstall (objs path) ;(message (mapconcat 'identity objs " ")) - (mapcar - '(lambda (x) - (let ((filename (expand-file-name x path))) - (if (and (file-exists-p filename) - (file-writable-p filename)) - (progn - (princ (format "%s was uninstalled.\n" filename)) - (delete-file filename))))) + (mapc + (lambda (x) + (let ((filename (expand-file-name x path))) + (if (and (file-exists-p filename) + (file-writable-p filename)) + (progn + (princ (format "%s was uninstalled.\n" filename)) + (delete-file filename))))) objs)) @@ -246,9 +246,9 @@ (defun compile-wl-package () (config-wl-package) (make-wl-news) - (mapcar - '(lambda (x) - (compile-elisp-modules (cdr x) (car x))) + (mapc + (lambda (x) + (compile-elisp-modules (cdr x) (car x))) modules-alist)) (defun install-wl-icons () @@ -269,12 +269,12 @@ (compile-wl-package) (let ((wl-install-dir (expand-file-name WL_PREFIX LISPDIR)) (elmo-install-dir (expand-file-name ELMO_PREFIX LISPDIR))) - (mapcar - '(lambda (x) - (install-elisp-modules (cdr x) (car x) - (if (string= (car x) ELMODIR) - elmo-install-dir - wl-install-dir))) + (mapc + (lambda (x) + (install-elisp-modules (cdr x) (car x) + (if (string= (car x) ELMODIR) + elmo-install-dir + wl-install-dir))) modules-alist)) (if PIXMAPDIR (install-wl-icons))) @@ -333,9 +333,9 @@ (Custom-make-dependencies) ;; WL-AUTOLOAD-MODULES (compile-elisp-modules WL-AUTOLOAD-MODULES WLDIR) - (mapcar - '(lambda (x) - (compile-elisp-modules (cdr x) (car x))) + (mapc + (lambda (x) + (compile-elisp-modules (cdr x) (car x))) modules-alist)) (defun install-wl-package-xmas () @@ -354,9 +354,9 @@ ;; copy xpm files (install-wl-icons) - (mapcar '(lambda (x) - (install-elisp-modules (cdr x) (car x) LISPDIR)) - modules-alist) + (mapc (lambda (x) + (install-elisp-modules (cdr x) (car x) LISPDIR)) + modules-alist) ;; WL-AUTOLOAD-MODULES (install-elisp-modules WL-AUTOLOAD-MODULES WLDIR LISPDIR) ;; @@ -403,7 +403,7 @@ (wl-detect-info-directory) (cond ((null wl-info-lang)) ((listp wl-info-lang) - (mapcar 'wl-texinfo-format-file wl-info-lang)) + (mapc 'wl-texinfo-format-file wl-info-lang)) ((stringp wl-info-lang) (wl-texinfo-format-file wl-info-lang)))) @@ -414,7 +414,7 @@ (defun wl-texinfo-install () (cond ((null wl-info-lang)) ((listp wl-info-lang) - (mapcar 'wl-texinfo-install-file wl-info-lang)) + (mapc 'wl-texinfo-install-file wl-info-lang)) ((stringp wl-info-lang) (wl-texinfo-install-file wl-info-lang)))) -- 1.7.10.4