Mercurial > hg > xemacs-beta

comparison src/fns.c @ 310:851ff35f137f r21-0b53

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b53
author cvs
date Mon, 13 Aug 2007 10:43:28 +0200
parents c9fe270a4101
children 8e84bee8ddd0
comparison
equal deleted inserted replaced
309:7f3a3eb0558c 310:851ff35f137f
1686 while (!NILP (tail)) 1686 while (!NILP (tail))
1687 { 1687 {
1688 REGISTER Lisp_Object elt, tem; 1688 REGISTER Lisp_Object elt, tem;
1689 CONCHECK_CONS (tail); 1689 CONCHECK_CONS (tail);
1690 elt = XCAR (tail); 1690 elt = XCAR (tail);
1691 if (CONSP (elt) && (tem = XCAR (elt), EQ_WITH_EBOLA_NOTICE (value, tem))) 1691 if (CONSP (elt) && (tem = XCDR (elt), EQ_WITH_EBOLA_NOTICE (value, tem)))
1692 { 1692 {
1693 if (NILP (prev)) 1693 if (NILP (prev))
1694 list = XCDR (tail); 1694 list = XCDR (tail);
1695 else 1695 else
1696 XCDR (prev) = XCDR (tail); 1696 XCDR (prev) = XCDR (tail);
1713 1713
1714 while (CONSP (tail)) 1714 while (CONSP (tail))
1715 { 1715 {
1716 REGISTER Lisp_Object elt, tem; 1716 REGISTER Lisp_Object elt, tem;
1717 elt = XCAR (tail); 1717 elt = XCAR (tail);
1718 if (CONSP (elt) && (tem = XCAR (elt), EQ_WITH_EBOLA_NOTICE (value, tem))) 1718 if (CONSP (elt) && (tem = XCDR (elt), EQ_WITH_EBOLA_NOTICE (value, tem)))
1719 { 1719 {
1720 if (NILP (prev)) 1720 if (NILP (prev))
1721 list = XCDR (tail); 1721 list = XCDR (tail);
1722 else 1722 else
1723 XCDR (prev) = XCDR (tail); 1723 XCDR (prev) = XCDR (tail);