[Emacs-diffs] Changes to emacs/src/coding.c

[Andreas Schwab]

Index: emacs/src/coding.c
diff -c emacs/src/coding.c:1.242 emacs/src/coding.c:1.243
*** emacs/src/coding.c:1.242    Fri May 10 04:51:44 2002
--- emacs/src/coding.c  Sat May 11 11:59:49 2002
***************
*** 6324,6337 ****
  intersection (l1, l2)
       Lisp_Object l1, l2;
  {
!   Lisp_Object val;
  
!   for (val = Qnil; CONSP (l1); l1 = XCDR (l1))
      {
        if (!NILP (Fmemq (XCAR (l1), l2)))
!       val = Fcons (XCAR (l1), val);
      }
!   return val;
  }
  
  
--- 6324,6340 ----
  intersection (l1, l2)
       Lisp_Object l1, l2;
  {
!   Lisp_Object val = Fcons (Qnil, Qnil), tail;
  
!   for (tail = val; CONSP (l1); l1 = XCDR (l1))
      {
        if (!NILP (Fmemq (XCAR (l1), l2)))
!       {
!         XSETCDR (tail, Fcons (XCAR (l1), Qnil));
!         tail = XCDR (tail);
!       }
      }
!   return XCDR (val);
  }