Mercurial > emacs
comparison src/fns.c @ 8966:cafc16f356c2
(concat3): New function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 21 Sep 1994 06:54:51 +0000 |
| parents | ab65a3dae221 |
| children | 04a702d7f662 |
comparison
equal
deleted
inserted
replaced
| 8965:a7947f88d558 | 8966:cafc16f356c2 |
|---|---|
| 191 args[0] = s1; | 191 args[0] = s1; |
| 192 args[1] = s2; | 192 args[1] = s2; |
| 193 return concat (2, args, Lisp_String, 0); | 193 return concat (2, args, Lisp_String, 0); |
| 194 #else | 194 #else |
| 195 return concat (2, &s1, Lisp_String, 0); | 195 return concat (2, &s1, Lisp_String, 0); |
| 196 #endif /* NO_ARG_ARRAY */ | |
| 197 } | |
| 198 | |
| 199 /* ARGSUSED */ | |
| 200 Lisp_Object | |
| 201 concat3 (s1, s2, s3) | |
| 202 Lisp_Object s1, s2, s3; | |
| 203 { | |
| 204 #ifdef NO_ARG_ARRAY | |
| 205 Lisp_Object args[3]; | |
| 206 args[0] = s1; | |
| 207 args[1] = s2; | |
| 208 args[2] = s3; | |
| 209 return concat (3, args, Lisp_String, 0); | |
| 210 #else | |
| 211 return concat (3, &s1, Lisp_String, 0); | |
| 196 #endif /* NO_ARG_ARRAY */ | 212 #endif /* NO_ARG_ARRAY */ |
| 197 } | 213 } |
| 198 | 214 |
| 199 DEFUN ("append", Fappend, Sappend, 0, MANY, 0, | 215 DEFUN ("append", Fappend, Sappend, 0, MANY, 0, |
| 200 "Concatenate all the arguments and make the result a list.\n\ | 216 "Concatenate all the arguments and make the result a list.\n\ |