Mercurial > hg > xemacs-beta

comparison src/fns.c @ 373:6240c7796c7a r21-2b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b2
author cvs
date Mon, 13 Aug 2007 11:04:06 +0200
parents cc15677e0335
children d883f39b8495
comparison
equal deleted inserted replaced
372:49e1ed2d7ed8 373:6240c7796c7a
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);