blob: f055be1966345c090a927eb22866825c94b0b636 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# 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!
}
# 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";
|
