# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 780130491 0
# Node ID cafc16f356c2817304f24fa6ee956ce2441ec56a
# Parent  a7947f88d5585b3cbbd8d46e843518c774b37952
(concat3): New function.

diff -r a7947f88d558 -r cafc16f356c2 src/fns.c
--- a/src/fns.c	Wed Sep 21 06:46:02 1994 +0000
+++ b/src/fns.c	Wed Sep 21 06:54:51 1994 +0000
@@ -196,6 +196,22 @@
 #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\