From: bg66 <bg66>
Date: Tue, 30 Apr 2002 12:53:36 +0000 (+0000)
Subject: * lisp/initz.el (initz-init-alist): Use `mapconcat' instead of `mapc'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=eb5f8c8f5b63386e1abcbb823120ae52034a975c;p=elisp%2Finitz.git

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

diff --git a/ChangeLog b/ChangeLog
index 003c8f4..0dfe15a 100644
--- 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
--- 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))))