From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 19 Jun 2006 21:54:58 +0000 (+0000)
Subject: (init_syntax_once): Give most control chars' syntax Spunct.
X-Git-Tag: emacs-pretest-22.0.90~1912
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa7b08b445a4daba668ca13d95f428217b4691fd;p=emacs.git

(init_syntax_once): Give most control chars' syntax Spunct.
---

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);