Commit eef762fc authored by Andreas Schwab's avatar Andreas Schwab
Browse files

(intersection): Keep the elements of the returned list

in the same order as in the first list.
parent b670783a
2002-05-11 Andreas Schwab <schwab@suse.de>
* coding.c (intersection): Keep the elements of the returned list
in the same order as in the first list.
2002-05-11 Kim F. Storm <storm@cua.dk>
* keymap.c (current_minor_maps): Fixed resizing of cmm_maps;
......
......@@ -6324,14 +6324,17 @@ static Lisp_Object
intersection (l1, l2)
Lisp_Object l1, l2;
{
Lisp_Object val;
Lisp_Object val = Fcons (Qnil, Qnil), tail;
for (val = Qnil; CONSP (l1); l1 = XCDR (l1))
for (tail = val; CONSP (l1); l1 = XCDR (l1))
{
if (!NILP (Fmemq (XCAR (l1), l2)))
val = Fcons (XCAR (l1), val);
{
XSETCDR (tail, Fcons (XCAR (l1), Qnil));
tail = XCDR (tail);
}
return val;
}
return XCDR (val);
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment