diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2019-07-20 19:40:03 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-07-20 20:13:45 -0700 |
| commit | df5024dbaef5e1f7e39a2a8268523f9fc1af3118 (patch) | |
| tree | 198160b55edc6d82ca64fcb3271333cc5d1f0a75 /src/fns.c | |
| parent | b0908a0fe6dc4f878b05a8b26ed3ff0c702e26c7 (diff) | |
| download | emacs-df5024dbaef5e1f7e39a2a8268523f9fc1af3118.tar.gz emacs-df5024dbaef5e1f7e39a2a8268523f9fc1af3118.tar.bz2 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/fns.c')
| -rw-r--r-- | src/fns.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/fns.c b/src/fns.c index 4c99d974bd9..d4f6842f276 100644 --- a/src/fns.c +++ b/src/fns.c @@ -4055,7 +4055,7 @@ allocate_hash_table (void) Lisp_Object make_hash_table (struct hash_table_test test, EMACS_INT size, float rehash_size, float rehash_threshold, - Lisp_Object weak, bool pure) + Lisp_Object weak, bool purecopy) { struct Lisp_Hash_Table *h; Lisp_Object table; @@ -4094,7 +4094,7 @@ make_hash_table (struct hash_table_test test, EMACS_INT size, h->next = make_vector (size, make_fixnum (-1)); h->index = make_vector (index_size, make_fixnum (-1)); h->next_weak = NULL; - h->pure = pure; + h->purecopy = purecopy; /* Set up the free list. */ for (i = 0; i < size - 1; ++i) @@ -4748,7 +4748,7 @@ usage: (make-hash-table &rest KEYWORD-ARGS) */) (ptrdiff_t nargs, Lisp_Object *args) { Lisp_Object test, weak; - bool pure; + bool purecopy; struct hash_table_test testdesc; ptrdiff_t i; USE_SAFE_ALLOCA; @@ -4784,7 +4784,7 @@ usage: (make-hash-table &rest KEYWORD-ARGS) */) /* See if there's a `:purecopy PURECOPY' argument. */ i = get_key_arg (QCpurecopy, nargs, args, used); - pure = i && !NILP (args[i]); + purecopy = i && !NILP (args[i]); /* See if there's a `:size SIZE' argument. */ i = get_key_arg (QCsize, nargs, args, used); Lisp_Object size_arg = i ? args[i] : Qnil; @@ -4835,7 +4835,7 @@ usage: (make-hash-table &rest KEYWORD-ARGS) */) SAFE_FREE (); return make_hash_table (testdesc, size, rehash_size, rehash_threshold, weak, - pure); + purecopy); } |