procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Automatically detect cyclic lists in some Haiku functions

Browse source 
* src/haikuselect.c (haiku_lisp_to_message): Use FOR_EACH_TAIL
to iterate over message data.
This commit is contained in:
Po Lu 2022-06-28 05:43:13 +00:00
parent b78508696b
commit 748e6c1e80
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/haikuselect.c
View file

@ -441,10 +441,10 @@ haiku_lisp_to_message (Lisp_Object obj, void *message)
int rc;
specpdl_ref ref;
CHECK_LIST (obj);
for (tem = obj; CONSP (tem); tem = XCDR (tem))
tem = obj;
FOR_EACH_TAIL (tem)
{
maybe_quit ();
t1 = XCAR (tem);
CHECK_CONS (t1);
@ -490,9 +490,9 @@ haiku_lisp_to_message (Lisp_Object obj, void *message)
signal_error ("Unknown data type", type_sym);
CHECK_LIST (t1);
for (t2 = XCDR (t1); CONSP (t2); t2 = XCDR (t2))
t2 = XCDR (t1);
FOR_EACH_TAIL (t2)
{
maybe_quit ();
data = XCAR (t2);
if (FIXNUMP (type_sym) || BIGNUMP (type_sym))