Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
194:2947057885e5 195:a2f645c6b9f8
209 lisp_object_eql_equal (CONST void *x1, CONST void *x2) 209 lisp_object_eql_equal (CONST void *x1, CONST void *x2)
210 { 210 {
211 Lisp_Object obj1, obj2; 211 Lisp_Object obj1, obj2;
212 CVOID_TO_LISP (obj1, x1); 212 CVOID_TO_LISP (obj1, x1);
213 CVOID_TO_LISP (obj2, x2); 213 CVOID_TO_LISP (obj2, x2);
214 return FLOATP (obj1) ? !NILP (Fequal (obj1, obj2)) : EQ (obj1, obj2); 214 return FLOATP (obj1) ? internal_equal (obj1, obj2, 0) : EQ (obj1, obj2);
215 } 215 }
216 216
217 static unsigned long 217 static unsigned long
218 lisp_object_eql_hash (CONST void *x) 218 lisp_object_eql_hash (CONST void *x)
219 { 219 {
229 lisp_object_equal_equal (CONST void *x1, CONST void *x2) 229 lisp_object_equal_equal (CONST void *x1, CONST void *x2)
230 { 230 {
231 Lisp_Object obj1, obj2; 231 Lisp_Object obj1, obj2;
232 CVOID_TO_LISP (obj1, x1); 232 CVOID_TO_LISP (obj1, x1);
233 CVOID_TO_LISP (obj2, x2); 233 CVOID_TO_LISP (obj2, x2);
234 return !NILP (Fequal (obj1, obj2)); 234 return internal_equal (obj1, obj2, 0);
235 } 235 }
236 236
237 static unsigned long 237 static unsigned long
238 lisp_object_equal_hash (CONST void *x) 238 lisp_object_equal_hash (CONST void *x)
239 { 239 {