aboutsummaryrefslogtreecommitdiffstats
path: root/src/fns.c
diff options
context:
space:
mode:
authorGerd Moellmann1999-08-30 21:05:30 +0000
committerGerd Moellmann1999-08-30 21:05:30 +0000
commitee0403b3f324fbdefbf228a86c1397a95484ebba (patch)
tree59b16df028f146ff39273c00e9d6bcfd2f0b4e7b /src/fns.c
parent15da78536bb69e74946c09c560df969f6d145ae6 (diff)
downloademacs-ee0403b3f324fbdefbf228a86c1397a95484ebba.tar.gz
emacs-ee0403b3f324fbdefbf228a86c1397a95484ebba.zip
(QCweakness): Replaces QCweak.
(Fmake_hash_table): Ditto. (Fmakehash): Ditto. (syms_of_fns): Ditto.
Diffstat (limited to 'src/fns.c')
-rw-r--r--src/fns.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/src/fns.c b/src/fns.c
index a5f3afec977..37c71c25f6c 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -3294,7 +3294,7 @@ Lisp_Object Vweak_hash_tables;
3294/* Various symbols. */ 3294/* Various symbols. */
3295 3295
3296Lisp_Object Qhash_table_p, Qeq, Qeql, Qequal, Qkey, Qvalue; 3296Lisp_Object Qhash_table_p, Qeq, Qeql, Qequal, Qkey, Qvalue;
3297Lisp_Object QCtest, QCsize, QCrehash_size, QCrehash_threshold, QCweak; 3297Lisp_Object QCtest, QCsize, QCrehash_size, QCrehash_threshold, QCweakness;
3298Lisp_Object Qhash_table_test; 3298Lisp_Object Qhash_table_test;
3299 3299
3300/* Function prototypes. */ 3300/* Function prototypes. */
@@ -4204,7 +4204,7 @@ multiplying the old size with that factor. Default is 1.5.\n\
4204Resize the hash table when ratio of the number of entries in the table.\n\ 4204Resize the hash table when ratio of the number of entries in the table.\n\
4205Default is 0.8.\n\ 4205Default is 0.8.\n\
4206\n\ 4206\n\
4207:WEAK WEAK -- WEAK must be one of nil, t, `key', or `value'.\n\ 4207:WEAKNESS WEAK -- WEAK must be one of nil, t, `key', or `value'.\n\
4208If WEAK is not nil, the table returned is a weak table. Key/value\n\ 4208If WEAK is not nil, the table returned is a weak table. Key/value\n\
4209pairs are removed from a weak hash table when their key, value or both\n\ 4209pairs are removed from a weak hash table when their key, value or both\n\
4210(WEAK t) are otherwise unreferenced. Default is nil.") 4210(WEAK t) are otherwise unreferenced. Default is nil.")
@@ -4268,8 +4268,8 @@ pairs are removed from a weak hash table when their key, value or both\n\
4268 list2 (build_string ("Illegal hash table rehash threshold"), 4268 list2 (build_string ("Illegal hash table rehash threshold"),
4269 rehash_threshold)); 4269 rehash_threshold));
4270 4270
4271 /* Look for `:weak WEAK'. */ 4271 /* Look for `:weakness WEAK'. */
4272 i = get_key_arg (QCweak, nargs, args, used); 4272 i = get_key_arg (QCweakness, nargs, args, used);
4273 weak = i < 0 ? Qnil : args[i]; 4273 weak = i < 0 ? Qnil : args[i];
4274 if (!NILP (weak) 4274 if (!NILP (weak)
4275 && !EQ (weak, Qt) 4275 && !EQ (weak, Qt)
@@ -4341,7 +4341,7 @@ Default is 0.8.")
4341 if (SYMBOLP (args[i]) 4341 if (SYMBOLP (args[i])
4342 && !EQ (args[i], QCrehash_size) 4342 && !EQ (args[i], QCrehash_size)
4343 && !EQ (args[i], QCrehash_threshold) 4343 && !EQ (args[i], QCrehash_threshold)
4344 && !EQ (args[i], QCweak)) 4344 && !EQ (args[i], QCweakness))
4345 { 4345 {
4346 args2[j++] = QCtest; 4346 args2[j++] = QCtest;
4347 args2[j++] = args[i++]; 4347 args2[j++] = args[i++];
@@ -4353,7 +4353,7 @@ Default is 0.8.")
4353 || EQ (args[i], Qkey) 4353 || EQ (args[i], Qkey)
4354 || EQ (args[i], Qvalue)) 4354 || EQ (args[i], Qvalue))
4355 { 4355 {
4356 args2[j++] = QCweak; 4356 args2[j++] = QCweakness;
4357 args2[j++] = args[i++]; 4357 args2[j++] = args[i++];
4358 } 4358 }
4359 4359
@@ -4551,8 +4551,8 @@ syms_of_fns ()
4551 staticpro (&QCrehash_size); 4551 staticpro (&QCrehash_size);
4552 QCrehash_threshold = intern (":rehash-threshold"); 4552 QCrehash_threshold = intern (":rehash-threshold");
4553 staticpro (&QCrehash_threshold); 4553 staticpro (&QCrehash_threshold);
4554 QCweak = intern (":weak"); 4554 QCweakness = intern (":weakness");
4555 staticpro (&QCweak); 4555 staticpro (&QCweakness);
4556 Qkey = intern ("key"); 4556 Qkey = intern ("key");
4557 staticpro (&Qkey); 4557 staticpro (&Qkey);
4558 Qvalue = intern ("value"); 4558 Qvalue = intern ("value");