Mercurial > hg > xemacs-beta
diff src/elhash.c @ 2:ac2d302a0011 r19-15b2
Import from CVS: tag r19-15b2
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:46:35 +0200 |
parents | 376386a54a3c |
children | 9ee227acff29 |
line wrap: on
line diff
--- a/src/elhash.c Mon Aug 13 08:45:53 2007 +0200 +++ b/src/elhash.c Mon Aug 13 08:46:35 2007 +0200 @@ -305,14 +305,12 @@ CHECK_SYMBOL (sym); - if (EQ (sym, Qeq)) - return HASHTABLE_EQ; - if (EQ (sym, Qequal)) - return HASHTABLE_EQUAL; - if (EQ (sym, Qeql)) - return HASHTABLE_EQL; + if (EQ (sym, Qeq)) return HASHTABLE_EQ; + if (EQ (sym, Qequal)) return HASHTABLE_EQUAL; + if (EQ (sym, Qeql)) return HASHTABLE_EQL; + signal_simple_error ("Invalid hashtable test fun", sym); - return 0; /* not reached */ + return HASHTABLE_EQ; /* not reached */ } DEFUN ("make-hashtable", Fmake_hashtable, Smake_hashtable, 1, 2, 0 /* @@ -911,6 +909,6 @@ void vars_of_elhash (void) { - /* This must not be staticpro'd */ + /* This must NOT be staticpro'd */ Vall_weak_hashtables = Qnil; }