carbon2-commit: Document non-obvious usages.
changeset: 4626:871eb054b34a021924f195dc208af255505350cd
user: Stephen J. Turnbull <stephen(a)xemacs.org>
date: Tue Nov 25 10:44:16 2008 +0900
files: src/ChangeLog src/elhash.c
description:
Document non-obvious usages.
diff -r 56e67d42eb04dc62fd3c8d5950209f941e0f21ee -r
871eb054b34a021924f195dc208af255505350cd src/ChangeLog
--- a/src/ChangeLog Thu Nov 20 23:59:52 2008 +0900
+++ b/src/ChangeLog Tue Nov 25 10:44:16 2008 +0900
＠＠ -136,6 +136,13 ＠＠ 2008-11-02 Stephen J. Turnbull <stephe
* input-method-xlib.c:
Use Xt_RESOURCE.
+
+2008-11-25 Stephen J. Turnbull <stephen(a)xemacs.org>
+
+ * elhash.c (hash_table_data_validate):
+ * elhash.c (decode_hash_table_rehash_size):
+ * elhash.c (decode_hash_table_rehash_threshold):
+ Document side effects used in these functions.
2008-11-20 Stephen J. Turnbull <stephen(a)xemacs.org>
diff -r 56e67d42eb04dc62fd3c8d5950209f941e0f21ee -r
871eb054b34a021924f195dc208af255505350cd src/elhash.c
--- 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
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
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 ＠＠ hash_table_data_validate (Lisp_Object UN
{
int len;
+ /* Check for improper lists while getting length. */
GET_EXTERNAL_LIST_LENGTH (value, len);
if (len & 1)
＠＠ -804,6 +807,7 ＠＠ hash_table_data_validate (Lisp_Object UN
value, Qhash_table, errb);
return 0;
}
+
return 1;
}
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches