diff options
author | Richard M. Stallman <rms@gnu.org> | 2006-06-19 21:54:58 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2006-06-19 21:54:58 +0000 |
commit | aa7b08b445a4daba668ca13d95f428217b4691fd (patch) | |
tree | ab3e490f6aca8458b60a69d9406886652739a7e8 | |
parent | dd73030d0109f890f8722b0b99dee406fcc96ba0 (diff) | |
download | emacs-aa7b08b445a4daba668ca13d95f428217b4691fd.tar.gz |
(init_syntax_once): Give most control chars' syntax Spunct.
-rw-r--r-- | src/syntax.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/syntax.c b/src/syntax.c index 1c8d0debbf3..9af4773a01b 100644 --- a/src/syntax.c +++ b/src/syntax.c @@ -3122,6 +3122,20 @@ init_syntax_once () Vstandard_syntax_table = Fmake_char_table (Qsyntax_table, temp); + /* Control characters should not be whitespace. */ + temp = XVECTOR (Vsyntax_code_object)->contents[(int) Spunct]; + for (i = 0; i <= ' ' - 1; i++) + SET_RAW_SYNTAX_ENTRY (Vstandard_syntax_table, i, temp); + SET_RAW_SYNTAX_ENTRY (Vstandard_syntax_table, 0177, temp); + + /* Except that a few really are whitespace. */ + temp = XVECTOR (Vsyntax_code_object)->contents[(int) Swhitespace]; + SET_RAW_SYNTAX_ENTRY (Vstandard_syntax_table, ' ', temp); + SET_RAW_SYNTAX_ENTRY (Vstandard_syntax_table, '\t', temp); + SET_RAW_SYNTAX_ENTRY (Vstandard_syntax_table, '\n', temp); + SET_RAW_SYNTAX_ENTRY (Vstandard_syntax_table, 015, temp); + SET_RAW_SYNTAX_ENTRY (Vstandard_syntax_table, 014, temp); + temp = XVECTOR (Vsyntax_code_object)->contents[(int) Sword]; for (i = 'a'; i <= 'z'; i++) SET_RAW_SYNTAX_ENTRY (Vstandard_syntax_table, i, temp); |