Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/src/fns.c	Mon Aug 13 11:01:58 2007 +0200
+++ b/src/fns.c	Mon Aug 13 11:03:08 2007 +0200
@@ -1688,7 +1688,7 @@
       REGISTER Lisp_Object elt, tem;
       CONCHECK_CONS (tail);
       elt = XCAR (tail);
-      if (CONSP (elt) && (tem = XCDR (elt), EQ_WITH_EBOLA_NOTICE (value, tem)))
+      if (CONSP (elt) && (tem = XCAR (elt), EQ_WITH_EBOLA_NOTICE (value, tem)))
 	{
 	  if (NILP (prev))
 	    list = XCDR (tail);
@@ -1715,7 +1715,7 @@
     {
       REGISTER Lisp_Object elt, tem;
       elt = XCAR (tail);
-      if (CONSP (elt) && (tem = XCDR (elt), EQ_WITH_EBOLA_NOTICE (value, tem)))
+      if (CONSP (elt) && (tem = XCAR (elt), EQ_WITH_EBOLA_NOTICE (value, tem)))
 	{
 	  if (NILP (prev))
 	    list = XCDR (tail);
@@ -1927,7 +1927,7 @@
 plists_differ (Lisp_Object a, Lisp_Object b, int nil_means_not_present,
 	       int laxp, int depth)
 {
-  int eqp = (depth == -1);	/* -1 as depth means use eq, not equal. */
+  int eqp = (depth == -1);	/* -1 as depth means us eq, not equal. */
   int la, lb, m, i, fill;
   Lisp_Object *keys, *vals;
   char *flags;