diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-04 20:44:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-04 20:44:52 +0000 |
| commit | 2e34157cd9e74150e79e0ce23236252b47fb5f1a (patch) | |
| tree | 418451da8380ec73d5d46dc648c07e6ad8af845f /src/syntax.c | |
| parent | 8c239ac3ed4f636810bc08959e1318b1a6e928ba (diff) | |
| download | emacs-2e34157cd9e74150e79e0ce23236252b47fb5f1a.tar.gz | |
Fix bugs with inappropriate mixing of Lisp_Object with int.
Diffstat (limited to 'src/syntax.c')
| -rw-r--r-- | src/syntax.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/syntax.c b/src/syntax.c index 4a60e1e0267..f39b356d731 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -190,7 +190,7 @@ update_syntax_table (pos, count, init, object) 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 @@ DEFUN ("matching-paren", Fmatching_paren, Smatching_paren, 1, 1, 0, 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 @@ DEFUN ("modify-syntax-entry", Fmodify_syntax_entry, Smodify_syntax_entry, 2, 3, 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) { |