Commit d1be9f0f authored by Richard M. Stallman's avatar Richard M. Stallman

(check_syntax_table): Check the purpose slot.

Use Qsyntax_table_p for the error message.

(Fmodify_syntax_entry): Don't fail to init MATCH.
parent a084ed10
......@@ -126,10 +126,11 @@ static void
check_syntax_table (obj)
Lisp_Object obj;
{
CHECK_CHAR_TABLE (obj, 0);
if (!(CHAR_TABLE_P (obj)
&& XCHAR_TABLE (obj)->purpose == Qsyntax_table))
wrong_type_argument (Qsyntax_table_p, obj);
}
DEFUN ("syntax-table", Fsyntax_table, Ssyntax_table, 0, 0, 0,
"Return the current syntax table.\n\
This is the one specified by the current buffer.")
......@@ -338,8 +339,12 @@ DEFUN ("modify-syntax-entry", Fmodify_syntax_entry, Smodify_syntax_entry, 2, 3,
}
if (*p)
XSETINT (match, *p++);
if (XFASTINT (match) == ' ')
{
XSETINT (match, *p++);
if (XFASTINT (match) == ' ')
match = Qnil;
}
else
match = Qnil;
val = (int) code;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment