From 7b02d9ba480cdd5710b0cdfefc11facd96b44444 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 29 Oct 2020 13:38:59 -0400 Subject: * lisp/progmodes/tcl.el: Better match Tcl string formation rules (bug#39277) (tcl--word-delimiters): New const. (tcl--syntax-of-quote): New function. (tcl-syntax-propertize-function): Use them. (tcl-mode): Enable `syntax-propertize-multiline`. * test/manual/indent/tcl.tcl: New file. --- test/manual/indent/tcl.tcl | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 test/manual/indent/tcl.tcl (limited to 'test/manual/indent/tcl.tcl') diff --git a/test/manual/indent/tcl.tcl b/test/manual/indent/tcl.tcl new file mode 100644 index 00000000000..c3781533ca4 --- /dev/null +++ b/test/manual/indent/tcl.tcl @@ -0,0 +1,22 @@ +# Some sample code that tries to exercise the font-lock +# of various forms of writing strings. + +puts "hello}"; # Top-level strings can contain unescaped closing braces! + +puts a"b; # Non-delimited strings can contain quotes! +puts a""b; # Even several of them! + +proc foo1 {} { + puts "hello"; # Normal case! + puts "hello\}; # This will signal an error when `foo1` is called! +} + +proc foo2 {} { + puts "hello; # This will also signal an error when `foo2` is called! +} + +proc foo3 {} { + puts a"b; # This will not signal an error! + puts a""b"; # And that won't either! + puts "a""b"; # But this will! +} -- cgit v1.2.3 From ac98bcc906254da564d77dd33e902e4590ae1d33 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 20 Nov 2020 16:54:06 -0500 Subject: * test/manual/indent/tcl.tcl: Add string interpolation case --- test/manual/indent/tcl.tcl | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'test/manual/indent/tcl.tcl') diff --git a/test/manual/indent/tcl.tcl b/test/manual/indent/tcl.tcl index c3781533ca4..f055be19663 100644 --- a/test/manual/indent/tcl.tcl +++ b/test/manual/indent/tcl.tcl @@ -20,3 +20,7 @@ proc foo3 {} { puts a""b"; # And that won't either! puts "a""b"; # But this will! } + +# FIXME: The [..] interpolation within "..." strings is not properly +# handled by the current `syntax-propertize-function`! +set a "Testing: [split "192.168.1.1/24" "/"] address"; -- cgit v1.2.3