diff options
| author | Paul Eggert | 2019-07-20 19:40:03 -0700 |
|---|---|---|
| committer | Paul Eggert | 2019-07-20 20:13:45 -0700 |
| commit | df5024dbaef5e1f7e39a2a8268523f9fc1af3118 (patch) | |
| tree | 198160b55edc6d82ca64fcb3271333cc5d1f0a75 /src/alloc.c | |
| parent | b0908a0fe6dc4f878b05a8b26ed3ff0c702e26c7 (diff) | |
| download | emacs-df5024dbaef5e1f7e39a2a8268523f9fc1af3118.tar.gz emacs-df5024dbaef5e1f7e39a2a8268523f9fc1af3118.zip | |
Rename ‘pure’ to ‘purecopy’
* src/lisp.h (struct Lisp_Hash_Table): Rename ‘pure’ member to
‘purecopy’, as the old name was quite confusing (it did not
mean the hash table was pure). All uses changed.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/alloc.c b/src/alloc.c index 7a0611dd3e2..8649d4e0f4c 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -5329,7 +5329,7 @@ static struct Lisp_Hash_Table * | |||
| 5329 | purecopy_hash_table (struct Lisp_Hash_Table *table) | 5329 | purecopy_hash_table (struct Lisp_Hash_Table *table) |
| 5330 | { | 5330 | { |
| 5331 | eassert (NILP (table->weak)); | 5331 | eassert (NILP (table->weak)); |
| 5332 | eassert (table->pure); | 5332 | eassert (table->purecopy); |
| 5333 | 5333 | ||
| 5334 | struct Lisp_Hash_Table *pure = pure_alloc (sizeof *pure, Lisp_Vectorlike); | 5334 | struct Lisp_Hash_Table *pure = pure_alloc (sizeof *pure, Lisp_Vectorlike); |
| 5335 | struct hash_table_test pure_test = table->test; | 5335 | struct hash_table_test pure_test = table->test; |
| @@ -5346,7 +5346,7 @@ purecopy_hash_table (struct Lisp_Hash_Table *table) | |||
| 5346 | pure->index = purecopy (table->index); | 5346 | pure->index = purecopy (table->index); |
| 5347 | pure->count = table->count; | 5347 | pure->count = table->count; |
| 5348 | pure->next_free = table->next_free; | 5348 | pure->next_free = table->next_free; |
| 5349 | pure->pure = table->pure; | 5349 | pure->purecopy = table->purecopy; |
| 5350 | pure->rehash_threshold = table->rehash_threshold; | 5350 | pure->rehash_threshold = table->rehash_threshold; |
| 5351 | pure->rehash_size = table->rehash_size; | 5351 | pure->rehash_size = table->rehash_size; |
| 5352 | pure->key_and_value = purecopy (table->key_and_value); | 5352 | pure->key_and_value = purecopy (table->key_and_value); |
| @@ -5410,7 +5410,7 @@ purecopy (Lisp_Object obj) | |||
| 5410 | /* Do not purify hash tables which haven't been defined with | 5410 | /* Do not purify hash tables which haven't been defined with |
| 5411 | :purecopy as non-nil or are weak - they aren't guaranteed to | 5411 | :purecopy as non-nil or are weak - they aren't guaranteed to |
| 5412 | not change. */ | 5412 | not change. */ |
| 5413 | if (!NILP (table->weak) || !table->pure) | 5413 | if (!NILP (table->weak) || !table->purecopy) |
| 5414 | { | 5414 | { |
| 5415 | /* Instead, add the hash table to the list of pinned objects, | 5415 | /* Instead, add the hash table to the list of pinned objects, |
| 5416 | so that it will be marked during GC. */ | 5416 | so that it will be marked during GC. */ |