diff options
| author | Richard M. Stallman | 1994-01-05 20:33:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-01-05 20:33:23 +0000 |
| commit | 6cb71bf6c64e1701b5d6105db0420ddf1536252b (patch) | |
| tree | 1c56a696057f1d34f1602089b4c6141d8062aa49 /src/syntax.c | |
| parent | c8cdcb16ad52a122fc28fa4ddc3a62e1e0654e22 (diff) | |
| download | emacs-6cb71bf6c64e1701b5d6105db0420ddf1536252b.tar.gz emacs-6cb71bf6c64e1701b5d6105db0420ddf1536252b.zip | |
(describe_syntax): Handle Sinherit.
(syntax_code_spec, syntax_spec_code): Add entry for @ and Sinherit.
Diffstat (limited to 'src/syntax.c')
| -rw-r--r-- | src/syntax.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/syntax.c b/src/syntax.c index e119e7f8d7f..cae5eb49893 100644 --- a/src/syntax.c +++ b/src/syntax.c | |||
| @@ -197,7 +197,7 @@ unsigned char syntax_spec_code[0400] = | |||
| 197 | 0377, 0377, 0377, 0377, 0377, 0377, 0377, 0377, | 197 | 0377, 0377, 0377, 0377, 0377, 0377, 0377, 0377, |
| 198 | 0377, 0377, 0377, 0377, | 198 | 0377, 0377, 0377, 0377, |
| 199 | (char) Scomment, 0377, (char) Sendcomment, 0377, | 199 | (char) Scomment, 0377, (char) Sendcomment, 0377, |
| 200 | 0377, 0377, 0377, 0377, 0377, 0377, 0377, 0377, /* @, A, ... */ | 200 | (char) Sinherit, 0377, 0377, 0377, 0377, 0377, 0377, 0377, /* @, A ... */ |
| 201 | 0377, 0377, 0377, 0377, 0377, 0377, 0377, 0377, | 201 | 0377, 0377, 0377, 0377, 0377, 0377, 0377, 0377, |
| 202 | 0377, 0377, 0377, 0377, 0377, 0377, 0377, (char) Sword, | 202 | 0377, 0377, 0377, 0377, 0377, 0377, 0377, (char) Sword, |
| 203 | 0377, 0377, 0377, 0377, (char) Sescape, 0377, 0377, (char) Ssymbol, | 203 | 0377, 0377, 0377, 0377, (char) Sescape, 0377, 0377, (char) Ssymbol, |
| @@ -209,9 +209,9 @@ unsigned char syntax_spec_code[0400] = | |||
| 209 | 209 | ||
| 210 | /* Indexed by syntax code, give the letter that describes it. */ | 210 | /* Indexed by syntax code, give the letter that describes it. */ |
| 211 | 211 | ||
| 212 | char syntax_code_spec[13] = | 212 | char syntax_code_spec[14] = |
| 213 | { | 213 | { |
| 214 | ' ', '.', 'w', '_', '(', ')', '\'', '\"', '$', '\\', '/', '<', '>' | 214 | ' ', '.', 'w', '_', '(', ')', '\'', '\"', '$', '\\', '/', '<', '>', '@' |
| 215 | }; | 215 | }; |
| 216 | 216 | ||
| 217 | DEFUN ("char-syntax", Fchar_syntax, Schar_syntax, 1, 1, 0, | 217 | DEFUN ("char-syntax", Fchar_syntax, Schar_syntax, 1, 1, 0, |
| @@ -241,7 +241,7 @@ The first character of S should be one of the following:\n\ | |||
| 241 | \" string quote. \\ escape.\n\ | 241 | \" string quote. \\ escape.\n\ |
| 242 | $ paired delimiter. ' expression quote or prefix operator.\n\ | 242 | $ paired delimiter. ' expression quote or prefix operator.\n\ |
| 243 | < comment starter. > comment ender.\n\ | 243 | < comment starter. > comment ender.\n\ |
| 244 | / character-quote.\n\ | 244 | / character-quote. @ inherit from `standard-syntax-table'.\n\ |
| 245 | \n\ | 245 | \n\ |
| 246 | Only single-character comment start and end sequences are represented thus.\n\ | 246 | Only single-character comment start and end sequences are represented thus.\n\ |
| 247 | Two-character sequences are represented as described below.\n\ | 247 | Two-character sequences are represented as described below.\n\ |
| @@ -420,6 +420,8 @@ describe_syntax (value) | |||
| 420 | insert_string ("comment"); break; | 420 | insert_string ("comment"); break; |
| 421 | case Sendcomment: | 421 | case Sendcomment: |
| 422 | insert_string ("endcomment"); break; | 422 | insert_string ("endcomment"); break; |
| 423 | case Sinherit: | ||
| 424 | insert_string ("inherit"); break; | ||
| 423 | default: | 425 | default: |
| 424 | insert_string ("invalid"); | 426 | insert_string ("invalid"); |
| 425 | return; | 427 | return; |