From: Mattias Engdegård <mattiase@acm.org>
Date: Thu, 26 Oct 2023 16:04:11 +0000 (+0200)
Subject: * src/print.c (print_object): Don't print hash table test if `eql`.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4ba6954e69528f89dc12bf968dec845601b1b24b;p=emacs.git

* 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.
---

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);