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

1997-04-10 21:16:33 +00:00
parent 8bb6ca1467
commit 10ffbb91cf
1 changed files with 1 additions and 1 deletions
--- 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