diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-09-21 06:54:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-09-21 06:54:51 +0000 |
| commit | f63a9c17c90a0aff597fbb538021647570a16c99 (patch) | |
| tree | c427ef6fc45512d0ef15583c095eb0ab1d97c88c /src | |
| parent | 6ad51de2fba6e7883a43e4f4615dc06f191cbbdf (diff) | |
| download | emacs-f63a9c17c90a0aff597fbb538021647570a16c99.tar.gz | |
(concat3): New function.
Diffstat (limited to 'src')
| -rw-r--r-- | src/fns.c | 16 |
1 files changed, 16 insertions, 0 deletions
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\ |