(DISP_TABLE_P): Don't use Lisp_Object as integer.

diff --git a/src/disptab.h b/src/disptab.h
index c947c5107a82296dd6079c68be3d273fa8e350e0..2edf6dcdf65def1a4fd6554da7db56c1c8efa611 100644 (file)
--- a/src/disptab.h
+++ b/src/disptab.h
@@ -22,7 +22,7 @@ Boston, MA 02111-1307, USA.  */
 
 #define DISP_TABLE_P(obj)                                                  \
   (CHAR_TABLE_P (obj)                                                      \
-   && XCHAR_TABLE (obj)->purpose == Qdisplay_table                         \
+   && EQ (XCHAR_TABLE (obj)->purpose, Qdisplay_table)                      \
    && CHAR_TABLE_EXTRA_SLOTS (XCHAR_TABLE (obj)) == DISP_TABLE_EXTRA_SLOTS)
 
 #define DISP_TABLE_EXTRA_SLOTS 6