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

[elisp/initz.git] / lisp / initz.el

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))))