From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Sep 1994 06:54:51 +0000 (+0000)
Subject: (concat3): New function.
X-Git-Tag: emacs-19.34~6888
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d4af3687405fc0326418d1c257226e1383247e1c;p=emacs.git

(concat3): New function.
---

diff --git a/src/fns.c b/src/fns.c
index 9afea6c59cf..aa1489afb50 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -196,6 +196,22 @@ concat2 (s1, s2)
 #endif /* NO_ARG_ARRAY */
 }
 
+/* ARGSUSED */
+Lisp_Object
+concat3 (s1, s2, s3)
+     Lisp_Object s1, s2, s3;
+{
+#ifdef NO_ARG_ARRAY
+  Lisp_Object args[3];
+  args[0] = s1;
+  args[1] = s2;
+  args[2] = s3;
+  return concat (3, args, Lisp_String, 0);
+#else
+  return concat (3, &s1, Lisp_String, 0);
+#endif /* NO_ARG_ARRAY */
+}
+
 DEFUN ("append", Fappend, Sappend, 0, MANY, 0,
   "Concatenate all the arguments and make the result a list.\n\
 The result is a list whose elements are the elements of all the arguments.\n\