X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Felhash.c;h=5bf3476893b5624b4796ea14dda3f8e1e6eadb5c;hb=aa982acf01b4e35675a624d78c9e5ee109c1203e;hp=8677f953a60f07338524a7e7886c4326d081b1c5;hpb=4836e869212eaa972d5a2bdfe61730d8af7b2c61;p=chise%2Fxemacs-chise.git

diff --git a/src/elhash.c b/src/elhash.c
index 8677f95..5bf3476 100644
--- a/src/elhash.c
+++ b/src/elhash.c
@@ -440,7 +440,7 @@ make_standard_lisp_hash_table (enum hash_table_test test,
 			       double rehash_threshold,
 			       enum hash_table_weakness weakness)
 {
-  hash_table_hash_function_t hash_function =  0;
+  hash_table_hash_function_t hash_function = 0;
   hash_table_test_function_t test_function = 0;
 
   switch (test)
@@ -500,13 +500,7 @@ make_general_lisp_hash_table (hash_table_hash_function_t hash_function,
   compute_hash_table_derived_values (ht);
 
   /* We leave room for one never-occupied sentinel hentry at the end.  */
-  ht->hentries = xnew_array (hentry, ht->size + 1);
-
-  {
-    hentry *e, *sentinel;
-    for (e = ht->hentries, sentinel = e + ht->size; e <= sentinel; e++)
-      CLEAR_HENTRY (e);
-  }
+  ht->hentries = xnew_array_and_zero (hentry, ht->size + 1);
 
   XSETHASH_TABLE (hash_table, ht);