From eef762fc0f8608ace52913b8dca6263a88e02f6d Mon Sep 17 00:00:00 2001
From: Andreas Schwab
Date: Sat, 11 May 2002 16:00:10 +0000
Subject: (intersection): Keep the elements of the returned list in the same
 order as in the first list.

---
 src/coding.c | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'src/coding.c')

diff --git a/src/coding.c b/src/coding.c
index 8c54f86e531..baf6acf08af 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -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);
 }
 
 
-- 
cgit v1.2.1