From: morioka <morioka>
Date: Wed, 3 Sep 1997 04:40:04 +0000 (+0000)
Subject: (symbol-concat): New implementation.
X-Git-Tag: semi-0_112~47
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=961f8bf51eb8a0ad4875013680afbdbe724518c4;p=elisp%2Fsemi.git

(symbol-concat): New implementation.
---

diff --git a/mime-parse.el b/mime-parse.el
index b1d1b50..75ff738 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: mime-parse.el,v 0.14 1997-07-26 15:21:11 morioka Exp $
+;; Version: $Id: mime-parse.el,v 0.15 1997-09-03 04:40:04 morioka Exp $
 ;; Keywords: parse, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -32,13 +32,12 @@
 (defsubst symbol-concat (&rest args)
   "Return a symbol whose name is concatenation of arguments ARGS
 which are string or symbol."
-  (intern (apply (function concat)
-		 (mapcar (function
-			  (lambda (s)
-			    (cond ((symbolp s) (symbol-name s))
-				  ((stringp s) s)
-				  )))
-			 args))))
+  (intern (mapconcat (function
+		      (lambda (s)
+			(cond ((symbolp s) (symbol-name s))
+			      ((stringp s) s)
+			      )))
+		     args "")))
 
 (defmacro define-structure (name &rest slots)
   (let ((pred (symbol-concat name '-p)))