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> 2002-05-11 Kim F. Storm <storm@cua.dk>
* keymap.c (current_minor_maps): Fixed resizing of cmm_maps; * keymap.c (current_minor_maps): Fixed resizing of cmm_maps;
......
...@@ -6324,14 +6324,17 @@ static Lisp_Object ...@@ -6324,14 +6324,17 @@ static Lisp_Object
intersection (l1, l2) intersection (l1, l2)
Lisp_Object 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))) 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