Mercurial > emacs
changeset 18113:9f7fdb0f76f3
(Fsyntax_table_p, check_syntax_table): Use EQ.
(Fmodify_syntax_entry): Use XINT to access c.
(describe_syntax): Use XINT to access first.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 02 Jun 1997 02:21:48 +0000 |
| parents | fa7208c8ac02 |
| children | 0a684c540f66 |
| files | src/syntax.c |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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;