From af12fd8767b75c60071b2a029bf874b92dde21fc Mon Sep 17 00:00:00 2001 From: kaoru Date: Fri, 1 Jan 2010 15:06:23 +0000 Subject: [PATCH] * wl.el (toplevel): Use `mapc' instead of `mapcar'. Don't use `function' for lambda. --- wl/ChangeLog | 3 +++ wl/wl.el | 30 ++++++++++++++---------------- 2 files changed, 17 insertions(+), 16 deletions(-) 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 + * 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 -- 1.7.10.4