Mercurial > hg > xemacs-beta

comparison src/fns.c @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents 8e84bee8ddd0
children 6240c7796c7a
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
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 = XCDR (elt), EQ_WITH_EBOLA_NOTICE (value, tem))) 1691 if (CONSP (elt) && (tem = XCAR (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 = XCDR (elt), EQ_WITH_EBOLA_NOTICE (value, tem))) 1718 if (CONSP (elt) && (tem = XCAR (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);
1925 */ 1925 */
1926 int 1926 int
1927 plists_differ (Lisp_Object a, Lisp_Object b, int nil_means_not_present, 1927 plists_differ (Lisp_Object a, Lisp_Object b, int nil_means_not_present,
1928 int laxp, int depth) 1928 int laxp, int depth)
1929 { 1929 {
1930 int eqp = (depth == -1); /* -1 as depth means use eq, not equal. */ 1930 int eqp = (depth == -1); /* -1 as depth means us eq, not equal. */
1931 int la, lb, m, i, fill; 1931 int la, lb, m, i, fill;
1932 Lisp_Object *keys, *vals; 1932 Lisp_Object *keys, *vals;
1933 char *flags; 1933 char *flags;
1934 Lisp_Object rest; 1934 Lisp_Object rest;
1935 1935