# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 860706993 0
# Node ID 0fe9203c7a06a0108d2b4527eac7c80fbadc0d7b
# Parent  87db7dfa4a964d9d6385376fff6d3b959a48916b
(DISP_TABLE_P): Don't use Lisp_Object as integer.

diff -r 87db7dfa4a96 -r 0fe9203c7a06 src/disptab.h
--- a/src/disptab.h	Thu Apr 10 21:15:53 1997 +0000
+++ b/src/disptab.h	Thu Apr 10 21:16:33 1997 +0000
@@ -22,7 +22,7 @@
 
 #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