tm 7.67.

[elisp/tm.git] / tl-str.el

diff --git a/tl-str.el b/tl-str.el
index deeddb4..e4f60b3 100644 (file)
--- a/tl-str.el
+++ b/tl-str.el
@@ -1,5 +1,5 @@
 ;;;
-;;; $Id: tl-str.el,v 3.1 1994/10/29 09:48:46 morioka Exp $
+;;; $Id: tl-str.el,v 3.2 1994/12/19 10:03:57 morioka Exp $
 ;;;
 
 (provide 'tl-str)
@@ -104,18 +104,16 @@
 ;;; @@ jinn compatible functions
 ;;;
 
-(defun symbol-concat (a b)
-  (intern (concat
-          (cond ((symbolp a)
-                 (symbol-name a)
-                 )
-                ((stringp a) a)
-                )
-          (cond ((symbolp b)
-                 (symbol-name b)
-                 )
-                ((stringp b) b)
-                ))))
+(defun symbol-concat (&rest args)
+  (intern (apply (function concat)
+                (mapcar (function
+                         (lambda (s)
+                           (cond ((symbolp s) (symbol-name s))
+                                 ((stringp s) s)
+                                 )
+                           ))
+                        args)))
+  )
 
 (defun top-string-match (pat str)
   (if (string-match