* txr.vim: Update for new character constant syntax.

2 files changed, 6 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index ffc7c2a1..819027e6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2011-11-15  Kaz Kylheku  <kaz@kylheku.com>
 
+	* txr.vim: Update for new character constant syntax.
+
+2011-11-15  Kaz Kylheku  <kaz@kylheku.com>
+
 	* match.c (h_var): when manipulating specline, propagate the
 	source locatio info.
 	(v_skip): Don't use specline for trace messages, because
diff --git a/txr.vim b/txr.vim
index 17479778..1e8ec92f 100644
--- a/txr.vim
+++ b/txr.vim
@@ -32,6 +32,8 @@ syn match txr_char "@[ \t]*\\."
 syn match txr_char "@[ \t]*\\x[0-9A-Fa-f]\+"
 syn match txr_char "@[ \t]*\\[0-9]\+"
 syn match txr_variable "@[ \t]*[*]\?[A-Za-z_][A-Za-z0-9_]*"
+syn match txr_chr "#\\x[A-Fa-f0-9]+"
+syn match txr_chr "#\\[a-zA-Z_][a-zA-Z0-9_]*"
 
 syn match txr_ident ":\?[A-Za-z_][A-Za-z0-9_]*" contained
 syn match txr_num "[+-]\?[0-9]\+" contained
@@ -46,7 +48,6 @@ syn region txr_meta contained matchgroup=Delimiter start="@[ \t]*(" matchgroup=D
 
 syn region txr_string contained oneline start=+"+ skip=+\\\\\|\\"+ end=+"+
 syn region txr_quasilit contained oneline start=+`+ skip=+\\\\\|\\`+ end=+`+ contains=txr_directive,txr_variable,txr_bracevar
-syn region txr_chr contained oneline start=+'+ skip=+\\\\\|\\'+ end=+'+ contains=txr_directive,txr_variable,txr_bracevar
 syn region txr_regex contained oneline start=+/+ skip=+\\\\\|\\/+ end=+/+
 syn region txr_regdir oneline start=+@[ \t]*/+ skip=+\\\\\|\\/+ end=+/+