comparison src/syntax.c @ 13513:907544cb2c7d

(check_syntax_table): Check the purpose slot. Use Qsyntax_table_p for the error message. (Fmodify_syntax_entry): Don't fail to init MATCH.

13512:738750464578

static void
check_syntax_table (obj)
     Lisp_Object obj;
{
  CHECK_CHAR_TABLE (obj, 0);
}   


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.")
  ()

      SET_RAW_SYNTAX_ENTRY (syntax_table, c, Qnil);
      return Qnil;
    }

  if (*p)
    XSETINT (match, *p++);
  if (XFASTINT (match) == ' ')
    match = Qnil;

  val = (int) code;
  while (*p)
    switch (*p++)

13513:907544cb2c7d

static void
check_syntax_table (obj)
     Lisp_Object obj;
{
  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.")
  ()

      SET_RAW_SYNTAX_ENTRY (syntax_table, c, Qnil);
      return Qnil;
    }

  if (*p)
    {
      XSETINT (match, *p++);
      if (XFASTINT (match) == ' ')
	match = Qnil;
    }
  else
    match = Qnil;

  val = (int) code;
  while (*p)
    switch (*p++)