Mercurial > hg > xemacs-beta

comparison src/elhash.c @ 4410:aae1994dfeec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Document return values for #'puthash, #'clrhash. 2008-01-21 Aidan Kehoe <kehoea@parhasard.net> * elhash.c (Fputhash): Document the return value. (Fclrhash): Ditto.
author Aidan Kehoe <kehoea@parhasard.net>
date Mon, 21 Jan 2008 22:12:36 +0100
parents 479443c0f95a
children 871eb054b34a
comparison
equal deleted inserted replaced
4409:3ff01259c4a2 4410:aae1994dfeec
1156 1156
1157 return HTENTRY_CLEAR_P (e) ? default_ : e->value; 1157 return HTENTRY_CLEAR_P (e) ? default_ : e->value;
1158 } 1158 }
1159 1159
1160 DEFUN ("puthash", Fputhash, 3, 3, 0, /* 1160 DEFUN ("puthash", Fputhash, 3, 3, 0, /*
1161 Hash KEY to VALUE in HASH-TABLE. 1161 Hash KEY to VALUE in HASH-TABLE, and return VALUE.
1162 */ 1162 */
1163 (key, value, hash_table)) 1163 (key, value, hash_table))
1164 { 1164 {
1165 Lisp_Hash_Table *ht = xhash_table (hash_table); 1165 Lisp_Hash_Table *ht = xhash_table (hash_table);
1166 htentry *e = find_htentry (key, ht); 1166 htentry *e = find_htentry (key, ht);
1220 return Qt; 1220 return Qt;
1221 } 1221 }
1222 1222
1223 DEFUN ("clrhash", Fclrhash, 1, 1, 0, /* 1223 DEFUN ("clrhash", Fclrhash, 1, 1, 0, /*
1224 Remove all entries from HASH-TABLE, leaving it empty. 1224 Remove all entries from HASH-TABLE, leaving it empty.
1225 Return HASH-TABLE.
1225 */ 1226 */
1226 (hash_table)) 1227 (hash_table))
1227 { 1228 {
1228 Lisp_Hash_Table *ht = xhash_table (hash_table); 1229 Lisp_Hash_Table *ht = xhash_table (hash_table);
1229 htentry *e, *sentinel; 1230 htentry *e, *sentinel;