From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 10 Apr 1997 21:16:33 +0000 (+0000)
Subject: (DISP_TABLE_P): Don't use Lisp_Object as integer.
X-Git-Tag: emacs-20.1~2582
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=10ffbb91cfc3498755a8a855effe9fa93f1709c0;p=emacs.git

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

diff --git a/src/disptab.h b/src/disptab.h
index c947c5107a8..2edf6dcdf65 100644
--- 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