; Fix DOHASH

diff --git a/src/lisp.h b/src/lisp.h
index efdb38861413c88e661c3474ea0da1e020cb0e17..54d2f4d3dd1690134a4d0926acd21aad593a9ce7 100644 (file)
--- 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);