Mercurial > emacs
diff src/syntax.c @ 18613:614b916ff5bf
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) {