Mercurial > hg > xemacs-beta

comparison src/eval.c @ 2552:166ed8151e62

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-02-03 16:30:33 by james] Don't define this to c_this, and rename variables currently named this. See xemacs-patches message with ID <psbrb1ehjl.fsf@diannao.ittc.ku.edu>.
author james
date Thu, 03 Feb 2005 16:30:38 +0000
parents 9f70af3ac939
children 578c6447aa28
comparison
equal deleted inserted replaced
2551:9f70af3ac939 2552:166ed8151e62
585 if (! CONSP (list)) 585 if (! CONSP (list))
586 return 1; 586 return 1;
587 587
588 while (CONSP (conditions)) 588 while (CONSP (conditions))
589 { 589 {
590 Lisp_Object this, tail; 590 Lisp_Object curr, tail;
591 this = XCAR (conditions); 591 curr = XCAR (conditions);
592 for (tail = list; CONSP (tail); tail = XCDR (tail)) 592 for (tail = list; CONSP (tail); tail = XCDR (tail))
593 if (EQ (XCAR (tail), this)) 593 if (EQ (XCAR (tail), curr))
594 return 1; 594 return 1;
595 conditions = XCDR (conditions); 595 conditions = XCDR (conditions);
596 } 596 }
597 return 0; 597 return 0;
598 } 598 }