diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-11-18 04:49:51 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-11-18 04:49:51 +0000 |
| commit | 3e7383ebfa1b3b068b52ccd1b73e6872317d1c40 (patch) | |
| tree | 23666eb75aa0e358b63e3a1f529a30fefba770e5 /src/fns.c | |
| parent | 602b4a3e927e0825a2b6da4b7b6d828cbbfb8c3a (diff) | |
| download | emacs-3e7383ebfa1b3b068b52ccd1b73e6872317d1c40.tar.gz | |
(Fvconcat, concat): Use Lisp_Vectorlike.
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/fns.c b/src/fns.c index 7df032086a8..0ef7ed3c9e7 100644 --- a/src/fns.c +++ b/src/fns.c @@ -242,7 +242,7 @@ Each argument may be a list, vector or string.") int nargs; Lisp_Object *args; { - return concat (nargs, args, Lisp_Vector, 0); + return concat (nargs, args, Lisp_Vectorlike, 0); } DEFUN ("copy-sequence", Fcopy_sequence, Scopy_sequence, 1, 1, 0, @@ -308,7 +308,7 @@ concat (nargs, args, target_type, last_special) if (target_type == Lisp_Cons) val = Fmake_list (len, Qnil); - else if (target_type == Lisp_Vector) + else if (target_type == Lisp_Vectorlike) val = Fmake_vector (len, Qnil); else val = Fmake_string (len, len); |