aboutsummaryrefslogtreecommitdiffstats
path: root/src/fns.c
diff options
context:
space:
mode:
authorPaul Eggert2019-07-22 18:33:39 -0700
committerPaul Eggert2019-07-22 18:34:16 -0700
commit3f4a9a5a3b267fbc13a8bebc4295bbfadd6ff03e (patch)
tree27b50199a92bcfc6668f38a63e6b5d20cce2760a /src/fns.c
parentc34496d0b956abc9d1ad55daa53ba626138233f4 (diff)
downloademacs-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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/fns.c b/src/fns.c
index 8eefa7c72b2..734a2e253c7 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -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
4020static Lisp_Object 4020Lisp_Object
4021hashfn_user_defined (Lisp_Object key, struct Lisp_Hash_Table *h) 4021hashfn_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 };