Mercurial > emacs
comparison src/fns.c @ 10006:402c87cbc4fa
(Fvconcat, concat): Use Lisp_Vectorlike.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Fri, 18 Nov 1994 04:49:51 +0000 |
parents | f68eab303ddb |
children | c1b138be512e |
comparison
equal
deleted
inserted
replaced
10005:9424b278cd6a | 10006:402c87cbc4fa |
---|---|
240 Each argument may be a list, vector or string.") | 240 Each argument may be a list, vector or string.") |
241 (nargs, args) | 241 (nargs, args) |
242 int nargs; | 242 int nargs; |
243 Lisp_Object *args; | 243 Lisp_Object *args; |
244 { | 244 { |
245 return concat (nargs, args, Lisp_Vector, 0); | 245 return concat (nargs, args, Lisp_Vectorlike, 0); |
246 } | 246 } |
247 | 247 |
248 DEFUN ("copy-sequence", Fcopy_sequence, Scopy_sequence, 1, 1, 0, | 248 DEFUN ("copy-sequence", Fcopy_sequence, Scopy_sequence, 1, 1, 0, |
249 "Return a copy of a list, vector or string.\n\ | 249 "Return a copy of a list, vector or string.\n\ |
250 The elements of a list or vector are not copied; they are shared\n\ | 250 The elements of a list or vector are not copied; they are shared\n\ |
306 | 306 |
307 XSETFASTINT (len, leni); | 307 XSETFASTINT (len, leni); |
308 | 308 |
309 if (target_type == Lisp_Cons) | 309 if (target_type == Lisp_Cons) |
310 val = Fmake_list (len, Qnil); | 310 val = Fmake_list (len, Qnil); |
311 else if (target_type == Lisp_Vector) | 311 else if (target_type == Lisp_Vectorlike) |
312 val = Fmake_vector (len, Qnil); | 312 val = Fmake_vector (len, Qnil); |
313 else | 313 else |
314 val = Fmake_string (len, len); | 314 val = Fmake_string (len, len); |
315 | 315 |
316 /* In append, if all but last arg are nil, return last arg */ | 316 /* In append, if all but last arg are nil, return last arg */ |