mnv/runtime/indent/testdir/tcl.in


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

# mnv: set filetype=tcl shiftwidth=4 tabstop=8 expandtab :

# START_INDENT
proc abc {} {
set a 5
if {[some_cmd]==1} {
foreach i [list {1 2 3}] {
# Does this comment affect anything?
puts $i
}
}
}

command_with_a_long_time -arg1 "First" \
-arg2 "Second" \
-arg3 "Third"

puts "Move indent back after line continuation is complete"
# END_INDENT