diff options
| author | Stefan Monnier | 2007-06-29 03:48:22 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2007-06-29 03:48:22 +0000 |
| commit | 6c661ec965ca0f1c9cf2b7e33ebe85eabef2e6fb (patch) | |
| tree | 647ee14d8e5675af3f8cff86cefdb387c6973ecc /src/lisp.h | |
| parent | 2706ceb633bedd382772741c0b73baef116d8eda (diff) | |
| download | emacs-6c661ec965ca0f1c9cf2b7e33ebe85eabef2e6fb.tar.gz emacs-6c661ec965ca0f1c9cf2b7e33ebe85eabef2e6fb.zip | |
* fns.c (weak_hash_tables): Rename from Vweak_hash_tables and change its type.
(make_hash_table, copy_hash_table, sweep_weak_hash_tables, init_fns):
Update to the new type of weak_hash_tables and next_weak.
* lisp.h (struct Lisp_Hash_Table): Change next_weak from Lisp_Object to
a plain C pointer to Lisp_Hash_Table.
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/lisp.h b/src/lisp.h index c8ca4c49ec6..9f144c4c973 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -1026,16 +1026,16 @@ struct Lisp_Hash_Table | |||
| 1026 | hash table size to reduce collisions. */ | 1026 | hash table size to reduce collisions. */ |
| 1027 | Lisp_Object index; | 1027 | Lisp_Object index; |
| 1028 | 1028 | ||
| 1029 | /* Next weak hash table if this is a weak hash table. The head | ||
| 1030 | of the list is in Vweak_hash_tables. */ | ||
| 1031 | Lisp_Object next_weak; | ||
| 1032 | |||
| 1033 | /* User-supplied hash function, or nil. */ | 1029 | /* User-supplied hash function, or nil. */ |
| 1034 | Lisp_Object user_hash_function; | 1030 | Lisp_Object user_hash_function; |
| 1035 | 1031 | ||
| 1036 | /* User-supplied key comparison function, or nil. */ | 1032 | /* User-supplied key comparison function, or nil. */ |
| 1037 | Lisp_Object user_cmp_function; | 1033 | Lisp_Object user_cmp_function; |
| 1038 | 1034 | ||
| 1035 | /* Next weak hash table if this is a weak hash table. The head | ||
| 1036 | of the list is in weak_hash_tables. */ | ||
| 1037 | struct Lisp_Hash_Table *next_weak; | ||
| 1038 | |||
| 1039 | /* C function to compare two keys. */ | 1039 | /* C function to compare two keys. */ |
| 1040 | int (* cmpfn) P_ ((struct Lisp_Hash_Table *, Lisp_Object, | 1040 | int (* cmpfn) P_ ((struct Lisp_Hash_Table *, Lisp_Object, |
| 1041 | unsigned, Lisp_Object, unsigned)); | 1041 | unsigned, Lisp_Object, unsigned)); |