From 70c5a0627d7ec78498c2746804565014fa082b35 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 2 Jun 1997 02:21:48 +0000 Subject: (Fsyntax_table_p, check_syntax_table): Use EQ. (Fmodify_syntax_entry): Use XINT to access c. (describe_syntax): Use XINT to access first. --- src/syntax.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/syntax.c') diff --git a/src/syntax.c b/src/syntax.c index 76428999ea1..0df8851c0bd 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -498,7 +498,7 @@ Currently, any char-table counts as a syntax table.") 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 @@ check_syntax_table (obj) 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 @@ 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", 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 @@ DEFUN ("modify-syntax-entry", Fmodify_syntax_entry, Smodify_syntax_entry, 2, 3, /* 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 @@ describe_syntax (value) 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; -- cgit v1.2.1