Mercurial > hg > xemacs-beta

comparison src/elhash.c @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 9ee227acff29
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
303 if (NILP (sym)) 303 if (NILP (sym))
304 return HASHTABLE_EQL; 304 return HASHTABLE_EQL;
305 305
306 CHECK_SYMBOL (sym); 306 CHECK_SYMBOL (sym);
307 307
308 if (EQ (sym, Qeq)) 308 if (EQ (sym, Qeq)) return HASHTABLE_EQ;
309 return HASHTABLE_EQ; 309 if (EQ (sym, Qequal)) return HASHTABLE_EQUAL;
310 if (EQ (sym, Qequal)) 310 if (EQ (sym, Qeql)) return HASHTABLE_EQL;
311 return HASHTABLE_EQUAL; 311
312 if (EQ (sym, Qeql))
313 return HASHTABLE_EQL;
314 signal_simple_error ("Invalid hashtable test fun", sym); 312 signal_simple_error ("Invalid hashtable test fun", sym);
315 return 0; /* not reached */ 313 return HASHTABLE_EQ; /* not reached */
316 } 314 }
317 315
318 DEFUN ("make-hashtable", Fmake_hashtable, Smake_hashtable, 1, 2, 0 /* 316 DEFUN ("make-hashtable", Fmake_hashtable, Smake_hashtable, 1, 2, 0 /*
319 Make a hashtable of initial size SIZE. 317 Make a hashtable of initial size SIZE.
320 Comparison between keys is done with TEST-FUN, which must be one of 318 Comparison between keys is done with TEST-FUN, which must be one of
909 } 907 }
910 908
911 void 909 void
912 vars_of_elhash (void) 910 vars_of_elhash (void)
913 { 911 {
914 /* This must not be staticpro'd */ 912 /* This must NOT be staticpro'd */
915 Vall_weak_hashtables = Qnil; 913 Vall_weak_hashtables = Qnil;
916 } 914 }