From eb5f8c8f5b63386e1abcbb823120ae52034a975c Mon Sep 17 00:00:00 2001 From: bg66 Date: Tue, 30 Apr 2002 12:53:36 +0000 Subject: [PATCH] * lisp/initz.el (initz-init-alist): Use `mapconcat' instead of `mapc'. --- ChangeLog | 4 ++++ lisp/initz.el | 17 ++++++----------- 2 files changed, 10 insertions(+), 11 deletions(-) diff --git a/ChangeLog b/ChangeLog index 003c8f4..0dfe15a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2002-04-30 OHASHI Akira + + * lisp/initz.el (initz-init-alist): Use `mapconcat' instead of `mapc'. + 2002-04-28 OHASHI Akira * lisp/initz-list.el (initz-list-modeline-string): New constant diff --git a/lisp/initz.el b/lisp/initz.el index 2caad35..1780edf 100644 --- a/lisp/initz.el +++ b/lisp/initz.el @@ -79,17 +79,12 @@ If ARG is specified, don't display code name." (defconst initz-init-alist `((argument . ("argument" - ,(let ((args initz-null-string)) - (mapc - (function (lambda (arg) - (unless (string= args initz-null-string) - (setq args (concat args - initz-separator-string))) - (setq arg (initz-trim-separator arg)) - (setq args (concat args arg)))) - (cdr command-line-args)) - args))) - (flavor . ("flavor" ,initz-flavor)) + ,(mapconcat + (function (lambda (arg) + (initz-trim-separator arg))) + (cdr command-line-args) + initz-separator-string))) + ( flavor . ("flavor" ,initz-flavor)) (host . ("host" ,(system-name))) (system . ("system" ,(symbol-name system-type))) (misc . (,initz-null-string ,initz-null-string)))) -- 1.7.10.4