From c70df6470a1c2cd078db25595c43b75da014163b Mon Sep 17 00:00:00 2001
From: =?utf8?q?Gerd=20M=C3=B6llmann?= <gerd@gnu.org>
Date: Tue, 23 Jan 2024 06:47:40 +0100
Subject: [PATCH] ; Fix DOHASH

(cherry picked from commit 21e272fe4f336827611c4005a56829a0ab02f3f8)
---
 src/lisp.h | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/lisp.h b/src/lisp.h
index efdb3886141..54d2f4d3dd1 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2600,7 +2600,9 @@ hash_from_key (struct Lisp_Hash_Table *h, Lisp_Object key)
    mutate TABLE in any other way.  */
 #define DOHASH(TABLE, IDXVAR)						\
   for (ptrdiff_t IDXVAR = 0; IDXVAR < (TABLE)->table_size; IDXVAR++)	\
-    if (!hash_unused_entry_key_p (HASH_KEY (TABLE, IDXVAR)))
+    if (hash_unused_entry_key_p (HASH_KEY (TABLE, IDXVAR)))             \
+      ;                                                                 \
+    else
 
 void hash_table_thaw (Lisp_Object hash_table);
 
-- 
2.39.5