* lisp/initz.el (initz-init-alist): Use `mapconcat' instead of `mapc'.

diff --git a/ChangeLog b/ChangeLog
index 003c8f4..0dfe15a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-04-30  OHASHI Akira  <bg66@koka-in.org>
+
+       * lisp/initz.el (initz-init-alist): Use `mapconcat' instead of `mapc'.
+
 2002-04-28  OHASHI Akira  <bg66@koka-in.org>
 
        * lisp/initz-list.el (initz-list-modeline-string): New constant

diff --git a/lisp/initz.el b/lisp/initz.el
index 2caad35..1780edf 100644 (file)
--- 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))))