# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 865218108 0
# Node ID 9f7fdb0f76f3aaa05c68598d28f723844a35a9ca
# Parent  fa7208c8ac02302188e0c5d937ee9974ade4939d
(Fsyntax_table_p, check_syntax_table): Use EQ.
(Fmodify_syntax_entry): Use XINT to access c.
(describe_syntax): Use XINT to access first.

diff -r fa7208c8ac02 -r 9f7fdb0f76f3 src/syntax.c
--- a/src/syntax.c	Mon Jun 02 02:19:29 1997 +0000
+++ b/src/syntax.c	Mon Jun 02 02:21:48 1997 +0000
@@ -498,7 +498,7 @@
      Lisp_Object object;
 {
   if (CHAR_TABLE_P (object)
-      && XCHAR_TABLE (object)->purpose == Qsyntax_table)
+      && EQ (XCHAR_TABLE (object)->purpose, Qsyntax_table))
     return Qt;
   return Qnil;
 }
@@ -508,7 +508,7 @@
      Lisp_Object obj;
 {
   if (!(CHAR_TABLE_P (obj)
-	&& XCHAR_TABLE (obj)->purpose == Qsyntax_table))
+	&& EQ (XCHAR_TABLE (obj)->purpose, Qsyntax_table)))
     wrong_type_argument (Qsyntax_table_p, obj);
 }   
 
@@ -735,11 +735,11 @@
   p = XSTRING (newentry)->data;
   code = (enum syntaxcode) syntax_spec_code[*p++];
   if (((int) code & 0377) == 0377)
-    error ("invalid syntax description letter: %c", c);
+    error ("invalid syntax description letter: %c", XINT (c));
 
   if (code == Sinherit)
     {
-      SET_RAW_SYNTAX_ENTRY (syntax_table, c, Qnil);
+      SET_RAW_SYNTAX_ENTRY (syntax_table, XINT (c), Qnil);
       return Qnil;
     }
 
@@ -791,7 +791,7 @@
     /* Since we can't use a shared object, let's make a new one.  */
     newentry = Fcons (make_number (val), match);
     
-  SET_RAW_SYNTAX_ENTRY (syntax_table, c, newentry);
+  SET_RAW_SYNTAX_ENTRY (syntax_table, XINT (c), newentry);
 
   return Qnil;
 }
@@ -836,7 +836,7 @@
       return;
     }
 
-  code = (enum syntaxcode) (first & 0377);
+  code = (enum syntaxcode) (XINT (first) & 0377);
   start1 = (XINT (first) >> 16) & 1;
   start2 = (XINT (first) >> 17) & 1;
   end1 = (XINT (first) >> 18) & 1;