Mercurial > hg > xemacs-beta

comparison src/elhash.c @ 4957:db2db229ee82

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Thu, 28 Jan 2010 02:48:45 -0600
parents 19a72041c5ed 6772ce4d982b
children e813cf16c015
comparison
equal deleted inserted replaced
4956:3461165c79be 4957:db2db229ee82
205 #endif /* 0 */ 205 #endif /* 0 */
206 206
207 static int 207 static int
208 lisp_object_eql_equal (Lisp_Object obj1, Lisp_Object obj2) 208 lisp_object_eql_equal (Lisp_Object obj1, Lisp_Object obj2)
209 { 209 {
210 return EQ (obj1, obj2) || (FLOATP (obj1) && internal_equal (obj1, obj2, 0)); 210 return EQ (obj1, obj2) ||
211 (NON_FIXNUM_NUMBER_P (obj1) && internal_equal (obj1, obj2, 0));
211 } 212 }
212 213
213 static Hashcode 214 static Hashcode
214 lisp_object_eql_hash (Lisp_Object obj) 215 lisp_object_eql_hash (Lisp_Object obj)
215 { 216 {
216 return FLOATP (obj) ? internal_hash (obj, 0) : LISP_HASH (obj); 217 return NON_FIXNUM_NUMBER_P (obj) ? internal_hash (obj, 0) : LISP_HASH (obj);
217 } 218 }
218 219
219 static int 220 static int
220 lisp_object_equal_equal (Lisp_Object obj1, Lisp_Object obj2) 221 lisp_object_equal_equal (Lisp_Object obj1, Lisp_Object obj2)
221 { 222 {