diff options
| author | Gerd Moellmann | 1999-08-30 21:05:30 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 1999-08-30 21:05:30 +0000 |
| commit | ee0403b3f324fbdefbf228a86c1397a95484ebba (patch) | |
| tree | 59b16df028f146ff39273c00e9d6bcfd2f0b4e7b | |
| parent | 15da78536bb69e74946c09c560df969f6d145ae6 (diff) | |
| download | emacs-ee0403b3f324fbdefbf228a86c1397a95484ebba.tar.gz emacs-ee0403b3f324fbdefbf228a86c1397a95484ebba.zip | |
(QCweakness): Replaces QCweak.
(Fmake_hash_table): Ditto.
(Fmakehash): Ditto.
(syms_of_fns): Ditto.
| -rw-r--r-- | src/fns.c | 16 |
1 files changed, 8 insertions, 8 deletions
| @@ -3294,7 +3294,7 @@ Lisp_Object Vweak_hash_tables; | |||
| 3294 | /* Various symbols. */ | 3294 | /* Various symbols. */ |
| 3295 | 3295 | ||
| 3296 | Lisp_Object Qhash_table_p, Qeq, Qeql, Qequal, Qkey, Qvalue; | 3296 | Lisp_Object Qhash_table_p, Qeq, Qeql, Qequal, Qkey, Qvalue; |
| 3297 | Lisp_Object QCtest, QCsize, QCrehash_size, QCrehash_threshold, QCweak; | 3297 | Lisp_Object QCtest, QCsize, QCrehash_size, QCrehash_threshold, QCweakness; |
| 3298 | Lisp_Object Qhash_table_test; | 3298 | Lisp_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\ | |||
| 4204 | Resize the hash table when ratio of the number of entries in the table.\n\ | 4204 | Resize the hash table when ratio of the number of entries in the table.\n\ |
| 4205 | Default is 0.8.\n\ | 4205 | Default 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\ |
| 4208 | If WEAK is not nil, the table returned is a weak table. Key/value\n\ | 4208 | If WEAK is not nil, the table returned is a weak table. Key/value\n\ |
| 4209 | pairs are removed from a weak hash table when their key, value or both\n\ | 4209 | pairs 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"); |