From 4ba6954e69528f89dc12bf968dec845601b1b24b Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Thu, 26 Oct 2023 18:04:11 +0200 Subject: [PATCH] * src/print.c (print_object): Don't print hash table test if `eql`. Since `eql` is the default, this ensures bidirectional compatibility while reducing the size of the external representation. --- src/print.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/print.c b/src/print.c index e22f3b6778c..0a5f2ee48d4 100644 --- a/src/print.c +++ b/src/print.c @@ -2580,7 +2580,7 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag) HASH_TABLE_SIZE (h)); strout (buf, len, len, printcharfun); - if (!NILP (h->test.name)) + if (!BASE_EQ (h->test.name, Qeql)) { print_c_string (" test ", printcharfun); print_object (h->test.name, printcharfun, escapeflag); -- 2.39.2