diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-10-14 05:52:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-10-14 05:52:39 +0000 |
| commit | 20327ce34bcf525e5a7665d8b1dda4e13ef2dbb4 (patch) | |
| tree | 1d4728fbb0f9d338f3ac79c05c781c10759cc1a2 /src/syntax.c | |
| parent | 7bc44e7f1d35ba447da6964c2448d41151076f49 (diff) | |
| download | emacs-20327ce34bcf525e5a7665d8b1dda4e13ef2dbb4.tar.gz | |
(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.
Diffstat (limited to 'src/syntax.c')
| -rw-r--r-- | src/syntax.c | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/src/syntax.c b/src/syntax.c index 709f8a93f67..1a74345ca0d 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -25,7 +25,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "buffer.h" #include "syntax.h" -Lisp_Object Qsyntax_table_p; +Lisp_Object Qsyntax_table_p, Qsyntax_table; static void scan_sexps_forward (); static int char_quoted (); @@ -116,7 +116,8 @@ Currently, any char-table counts as a syntax table.") (obj) Lisp_Object obj; { - if (CHAR_TABLE_P (obj)) + if (CHAR_TABLE_P (obj) + && XCHAR_TABLE (obj)->purpose == Qsyntax_table) return Qt; return Qnil; } @@ -1720,9 +1721,22 @@ 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 (make_number (0), temp); + Vstandard_syntax_table = Fmake_char_table (Qsyntax_table, temp); temp = Fcons (make_number ((int) Sword), Qnil); for (i = 'a'; i <= 'z'; i++) |