; * src/json.c (json_parse_object): Call make_hash_table directly.

(cherry picked from commit 8bddf7f93e671bccec8103cecd99629bcc05f071)

diff --git a/src/json.c b/src/json.c
index c64d44b4bacda464c5ae912fe370a6f0ed425483..486253581ffc5a258ae23d5dc6477de7ca99c390 100644 (file)
--- a/src/json.c
+++ b/src/json.c
@@ -1599,8 +1599,7 @@ json_parse_object (struct json_parser *parser)
     case json_object_hashtable:
       {
        EMACS_INT value = (parser->object_workspace_current - first) / 2;
-       result = CALLN (Fmake_hash_table, QCtest, Qequal, QCsize,
-                       make_fixed_natnum (value));
+       result = make_hash_table (&hashtest_equal, value, Weak_None, false);
        struct Lisp_Hash_Table *h = XHASH_TABLE (result);
        for (size_t i = first; i < parser->object_workspace_current; i += 2)
          {