From: tmorioka <tmorioka>
Date: Thu, 27 Feb 1997 13:43:38 +0000 (+0000)
Subject: (symbol-concat): New inline-function; copied from tl-str.el.
X-Git-Tag: Hokutetsu-Ishikawa-new~242
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=777bde87d1387683f0ef37a1dd449dd9a73e093b;p=elisp%2Fsemi.git

(symbol-concat): New inline-function; copied from tl-str.el.
---

diff --git a/mime-parse.el b/mime-parse.el
index 45447cc..c380312 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.4 1997-02-27 13:36:22 tmorioka Exp $
+;; Version: $Id: mime-parse.el,v 0.5 1997-02-27 13:43:38 tmorioka Exp $
 ;; Keywords: parse, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -28,6 +28,17 @@
 (require 'std11)
 (require 'mime-def)
 
+(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))))
+
 (defmacro define-structure (name &rest slots)
   (let ((pred (symbol-concat name '-p)))
     (cons 'progn