comparison src/syntax.c @ 13218:d2fc560c7740

(Qsyntax_table): New variable. (init_syntax_once): Call Fmake_char_table the new way. Set up Qsyntax_table. (Fsyntax_table_p): Check the `purpose' field.

13217:c3f879af05db

#include "lisp.h"
#include "commands.h"
#include "buffer.h"
#include "syntax.h"

Lisp_Object Qsyntax_table_p;

static void scan_sexps_forward ();
static int char_quoted ();

int words_include_escapes;

  "Return t if ARG is a syntax table.\n\
Currently, any char-table counts as a syntax table.")
  (obj)
     Lisp_Object obj;
{
  if (CHAR_TABLE_P (obj))
    return Qt;
  return Qnil;
}

static void

init_syntax_once ()
{
  register int i;
  Lisp_Object temp;

  temp = Fcons (make_number ((int) Swhitespace), Qnil);

  Vstandard_syntax_table = Fmake_char_table (make_number (0), temp);

  temp = Fcons (make_number ((int) Sword), Qnil);
  for (i = 'a'; i <= 'z'; i++)
    SET_RAW_SYNTAX_ENTRY (Vstandard_syntax_table, i, temp);
  for (i = 'A'; i <= 'Z'; i++)

13218:d2fc560c7740

#include "lisp.h"
#include "commands.h"
#include "buffer.h"
#include "syntax.h"

Lisp_Object Qsyntax_table_p, Qsyntax_table;

static void scan_sexps_forward ();
static int char_quoted ();

int words_include_escapes;

  "Return t if ARG is a syntax table.\n\
Currently, any char-table counts as a syntax table.")
  (obj)
     Lisp_Object obj;
{
  if (CHAR_TABLE_P (obj)
      && XCHAR_TABLE (obj)->purpose == Qsyntax_table)
    return Qt;
  return Qnil;
}

static void

init_syntax_once ()
{
  register int i;
  Lisp_Object temp;

  /* This has to be done here, before we call Fmake_char_table.  */
  Qsyntax_table = intern ("syntax-table");
  staticpro (&Qsyntax_table);

  /* Intern this now in case it isn't already done.
     Setting this variable twice is harmless.
     But don't staticpro it here--that is done in alloc.c.  */
  Qchar_table_extra_slots = intern ("char-table-extra-slots");

  /* Now we are ready to set up this property, so we can
     create syntax tables.  */
  Fput (Qsyntax_table, Qchar_table_extra_slots, make_number (0));

  temp = Fcons (make_number ((int) Swhitespace), Qnil);

  Vstandard_syntax_table = Fmake_char_table (Qsyntax_table, temp);

  temp = Fcons (make_number ((int) Sword), Qnil);
  for (i = 'a'; i <= 'z'; i++)
    SET_RAW_SYNTAX_ENTRY (Vstandard_syntax_table, i, temp);
  for (i = 'A'; i <= 'Z'; i++)