Mercurial > emacs
changeset 8966:cafc16f356c2
(concat3): New function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 21 Sep 1994 06:54:51 +0000 |
| parents | a7947f88d558 |
| children | 80b92977ed08 |
| files | src/fns.c |
| diffstat | 1 files changed, 16 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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\