/[emacs]/emacs/src/coding.c
ViewVC logotype

Diff of /emacs/src/coding.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.242 by eliz, Fri May 10 08:51:44 2002 UTC revision 1.243 by schwab, Sat May 11 15:59:49 2002 UTC
# Line 6324  static Lisp_Object Line 6324  static Lisp_Object
6324  intersection (l1, l2)  intersection (l1, l2)
6325       Lisp_Object l1, l2;       Lisp_Object l1, l2;
6326  {  {
6327    Lisp_Object val;    Lisp_Object val = Fcons (Qnil, Qnil), tail;
6328    
6329    for (val = Qnil; CONSP (l1); l1 = XCDR (l1))    for (tail = val; CONSP (l1); l1 = XCDR (l1))
6330      {      {
6331        if (!NILP (Fmemq (XCAR (l1), l2)))        if (!NILP (Fmemq (XCAR (l1), l2)))
6332          val = Fcons (XCAR (l1), val);          {
6333              XSETCDR (tail, Fcons (XCAR (l1), Qnil));
6334              tail = XCDR (tail);
6335            }
6336      }      }
6337    return val;    return XCDR (val);
6338  }  }
6339    
6340    

Legend:
Removed from v.1.242  
changed lines
  Added in v.1.243

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26