mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-03 04:21:28 -08:00
Code Issues Projects Releases Wiki Activity

* fns.c (Fcopy_sequence): Simplify XTYPE calculation.

Browse source
This commit is contained in:
Paul Eggert 2013-06-15 00:41:42 -07:00
parent b86a85ca5e
commit 210272cebb
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/ChangeLog
View file

@ -1,3 +1,7 @@
2013-06-15 Paul Eggert <eggert@cs.ucla.edu>
* fns.c (Fcopy_sequence): Simplify XTYPE calculation.
2013-06-13 Stefan Monnier <monnier@iro.umontreal.ca>
* lread.c (syms_of_lread):

2
src/fns.c
View file

@ -445,7 +445,7 @@ with the original. */)
if (!CONSP (arg) && !VECTORP (arg) && !STRINGP (arg))
wrong_type_argument (Qsequencep, arg);
return concat (1, &arg, CONSP (arg) ? Lisp_Cons : XTYPE (arg), 0);
return concat (1, &arg, XTYPE (arg), 0);
}
/* This structure holds information of an argument of `concat' that is