diff options
| author | Paul Eggert | 2019-07-22 18:33:39 -0700 |
|---|---|---|
| committer | Paul Eggert | 2019-07-22 18:34:16 -0700 |
| commit | 3f4a9a5a3b267fbc13a8bebc4295bbfadd6ff03e (patch) | |
| tree | 27b50199a92bcfc6668f38a63e6b5d20cce2760a /src/fns.c | |
| parent | c34496d0b956abc9d1ad55daa53ba626138233f4 (diff) | |
| download | emacs-3f4a9a5a3b267fbc13a8bebc4295bbfadd6ff03e.tar.gz emacs-3f4a9a5a3b267fbc13a8bebc4295bbfadd6ff03e.zip | |
Do not pdump user-defined hashtabs
* src/pdumper.c (dump_hash_table_stable_p):
Signal an error if a hash table has user-defined tests (Bug#36769).
* src/fns.c (hashfn_user_defined): Now extern.
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 2 |
1 files changed, 1 insertions, 1 deletions
| @@ -4017,7 +4017,7 @@ hashfn_eql (Lisp_Object key, struct Lisp_Hash_Table *h) | |||
| 4017 | /* Given HT, return a hash code for KEY which uses a user-defined | 4017 | /* Given HT, return a hash code for KEY which uses a user-defined |
| 4018 | function to compare keys. */ | 4018 | function to compare keys. */ |
| 4019 | 4019 | ||
| 4020 | static Lisp_Object | 4020 | Lisp_Object |
| 4021 | hashfn_user_defined (Lisp_Object key, struct Lisp_Hash_Table *h) | 4021 | hashfn_user_defined (Lisp_Object key, struct Lisp_Hash_Table *h) |
| 4022 | { | 4022 | { |
| 4023 | Lisp_Object args[] = { h->test.user_hash_function, key }; | 4023 | Lisp_Object args[] = { h->test.user_hash_function, key }; |