From: kaoru <kaoru>
Date: Fri, 1 Jan 2010 15:06:23 +0000 (+0000)
Subject: * wl.el (toplevel): Use `mapc' instead of `mapcar'. Don't use `function' for lambda.
X-Git-Tag: elmo-imap4-compliance-root~58
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=af12fd8767b75c60071b2a029bf874b92dde21fc;p=elisp%2Fwanderlust.git

* wl.el (toplevel): Use `mapc' instead of `mapcar'. Don't use `function' for lambda.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c4d9427..69ba0b3 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2010-01-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* wl.el (toplevel): Use `mapc' instead of `mapcar'. Don't use
+	`function' for lambda.
+
 	* wl.el (wl-plugged-server-indent): Change from macro to function.
 
 	* wl-score.el (wl-score-put-alike): Explicit add `alike' argument.
diff --git a/wl/wl.el b/wl/wl.el
index 83f1e7f..e8d1bab 100644
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -904,23 +904,21 @@ If ARG (prefix argument) is specified, folder checkings are skipped."
 
 ;; Define some autoload functions WL might use.
 (eval-and-compile
-  ;; This little mapcar goes through the list below and marks the
+  ;; This little mapc goes through the list below and marks the
   ;; symbols in question as autoloaded functions.
-  (mapcar
-   (function
-    (lambda (package)
-      (let ((interactive (nth 1 (memq ':interactive package))))
-	(mapcar
-	 (function
-	  (lambda (function)
-	    (let (keymap)
-	      (when (consp function)
-		(setq keymap (car (memq 'keymap function)))
-		(setq function (car function)))
-	      (autoload function (car package) nil interactive keymap))))
-	 (if (eq (nth 1 package) ':interactive)
-	     (cdddr package)
-	   (cdr package))))))
+  (mapc
+   (lambda (package)
+     (let ((interactive (nth 1 (memq ':interactive package))))
+       (mapc
+	(lambda (function)
+	  (let (keymap)
+	    (when (consp function)
+	      (setq keymap (car (memq 'keymap function)))
+	      (setq function (car function)))
+	    (autoload function (car package) nil interactive keymap)))
+	(if (eq (nth 1 package) ':interactive)
+	    (cdddr package)
+	  (cdr package)))))
    '(("wl-fldmgr" :interactive t
       wl-fldmgr-access-display-all wl-fldmgr-access-display-normal
       wl-fldmgr-add wl-fldmgr-clear-cut-entity-list wl-fldmgr-copy