Mercurial > hg > xemacs-beta

comparison src/elhash.c @ 4450:ac6231e0c1df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Automated merge with file:/Sources/xemacs-21.5-checked-out
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 07 May 2008 21:21:08 +0200
parents aae1994dfeec
children 871eb054b34a
comparison
equal deleted inserted replaced
4449:13ce402e1736 4450:ac6231e0c1df
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;