Mercurial > hg > xemacs-beta

diff src/elhash.c @ 195:a2f645c6b9f8 r20-3b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b24
author cvs
date Mon, 13 Aug 2007 09:59:05 +0200
parents b405438285a2
children e45d5e7c476e
line wrap: on
line diff
--- a/src/elhash.c	Mon Aug 13 09:58:32 2007 +0200
+++ b/src/elhash.c	Mon Aug 13 09:59:05 2007 +0200
@@ -211,7 +211,7 @@
   Lisp_Object obj1, obj2;
   CVOID_TO_LISP (obj1, x1);
   CVOID_TO_LISP (obj2, x2);
-  return FLOATP (obj1) ? !NILP (Fequal (obj1, obj2)) : EQ (obj1, obj2);
+  return FLOATP (obj1) ? internal_equal (obj1, obj2, 0) : EQ (obj1, obj2);
 }
 
 static unsigned long
@@ -231,7 +231,7 @@
   Lisp_Object obj1, obj2;
   CVOID_TO_LISP (obj1, x1);
   CVOID_TO_LISP (obj2, x2);
-  return !NILP (Fequal (obj1, obj2));
+  return internal_equal (obj1, obj2, 0);
 }
 
 static unsigned long