Mercurial > emacs

diff src/syntax.c @ 18613:614b916ff5bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bugs with inappropriate mixing of Lisp_Object with int.
author Richard M. Stallman <rms@gnu.org>
date Fri, 04 Jul 1997 20:44:52 +0000
parents bf0d449581c8
children bcc43754d3bc
line wrap: on
line diff
--- a/src/syntax.c	Fri Jul 04 20:43:49 1997 +0000
+++ b/src/syntax.c	Fri Jul 04 20:44:52 1997 +0000
@@ -190,7 +190,7 @@
 
   gl_state.current_syntax_table = tmp_table;
   gl_state.old_prop = tmp_table;
-  if (Fsyntax_table_p (tmp_table) == Qt)
+  if (EQ (Fsyntax_table_p (tmp_table), Qt))
     {
       gl_state.use_global = 0;
     } 
@@ -665,7 +665,7 @@
   char_int = XINT (character);
   code = SYNTAX (char_int);
   if (code == Sopen || code == Sclose)
-    return make_number (SYNTAX_MATCH (char_int));
+    return SYNTAX_MATCH (char_int);
   return Qnil;
 }
 
@@ -735,7 +735,7 @@
   p = XSTRING (newentry)->data;
   code = (enum syntaxcode) syntax_spec_code[*p++];
   if (((int) code & 0377) == 0377)
-    error ("invalid syntax description letter: %c", XINT (c));
+    error ("invalid syntax description letter: %c", p[-1]);
 
   if (code == Sinherit)
     {