--- a/src/elhash.c	Thu Nov 20 23:59:52 2008 +0900
+++ b/src/elhash.c	Tue Nov 25 10:44:16 2008 +0900
@@ -755,6 +755,7 @@
 static double
 decode_hash_table_rehash_size (Lisp_Object rehash_size)
 {
+  /* -1.0 signals make_general_lisp_hash_table to use the default. */
   return NILP (rehash_size) ? -1.0 : XFLOAT_DATA (rehash_size);
 }
 
@@ -786,6 +787,7 @@
 static double
 decode_hash_table_rehash_threshold (Lisp_Object rehash_threshold)
 {
+  /* -1.0 signals make_general_lisp_hash_table to use the default. */
   return NILP (rehash_threshold) ? -1.0 : XFLOAT_DATA (rehash_threshold);
 }
 
@@ -795,6 +797,7 @@
 {
   int len;
 
+  /* Check for improper lists while getting length. */
   GET_EXTERNAL_LIST_LENGTH (value, len);
 
   if (len & 1)
@@ -804,6 +807,7 @@
 	 value, Qhash_table, errb);
       return 0;
     }
+  
   return 1;
 }