.#*ü" 86 0 Tcl_Check_Syntax+! 1°0 Tcl_Check_Syntaxü" 89# TCL°" $1ýü" 91 " $1þ 3 create_syntax_table,*ü" 95 $ name+ýü" 97+ tclmode.dfa $ nameþ : dfa_enable_highlight_cacheýü" 98$, ^[ \\t]*#.*$' comment $ nameþ 9 dfa_define_highlight_ruleýü" 99$, ;[ \\
t]*#.*$' comment $ nameþ 9 dfa_define_highlight_ruleýü# 100$3 "([^\\\\"]|\\\\.)*"& string $ nameþ 9 dfa_define_highlight_ruleýü# 101$* [{}\\[\\]]* Qdelimiter $ nameþ 9 dfa_define_highlight_ruleýü# 102$H [0-9]+(\\.[0-9]*)?([Ee][\\+\\-]?[0-9]*)?& number
 $ nameþ 9 dfa_define_highlight_ruleýü# 103! .& normal $ nameþ 9 dfa_define_highlight_ruleýü# 104$. [A-Za-z_\\.:]+' Knormal $ nameþ 9 dfa_define_highlight_ruleýü# 105$1 \\$[a-zA-Z0-9_:]+& string $ nameþ 9 dfa_define_highlight_ruleýü# 106$' \\${.*}' Q
string $ nameþ 9 dfa_define_highlight_ruleýü# 107$/ ^[ \\t]*proc.*$+ Qpreprocess $ nameþ 9 dfa_define_highlight_ruleýü# 108)  -[a-z]+ ( operator $ nameþ 9 dfa_define_highlight_ruleýü# 109 $ nameþ 9 dfa_build_highlight_tableü" 95…2 setup_dfa_callbackýü#
 111}2 setup_dfa_callback# TCLþ 5 dfa_set_init_callbackü# 117! 0°" $2ýü# 118 " $1$ cdif! 2 " $2þ 1 define_keywords_nPýü# 119 " $1/ eofforpidpwdset! 3 " $2þ 1 define_keywords_nPýü# 120 " $1x caseelseevalexecexitexprfilegetsglobincrinfojoinlistloadop
enprocputsreadscanseektelltime! 4 " $2þ 1 define_keywords_nPýü# 121 " $1u afterarraybreakcatchclockcloseerrorfcopyflushlsortsplitsubsttraceunsetupvarvwaitwhile! 5 " $2þ 1 define_keywords_nPýü# 122 " $1€ appendbinaryconcatformatglobalinterplindexlrange
regexpregsubrenamereturnsocketsourcestringswitch! 6 " $2þ 1 define_keywords_nPýü# 123 " $1_ consoleforeachhistorylappendlinsertllengthlsearchunknownuplevel! 7 " $2þ 1 define_keywords_nPýü# 124 " $18 continuefblockedlreplace! 8 " $2þ 1 define_keywords
_nPýü# 125 " $1) fileevent! 9 " $2þ 1 define_keywords_nPü# 128! 1°" $2ýü# 129 " $1$ tkwm! 2 " $2þ 1 define_keywords_nPýü# 130 " $1D bellbindfontgrabgridmenupacksendtext! 4 " $2þ 1 define_keywords_nPýü# 131 " $1W entryeventfocusframeimagelabellower
placeraisescalewinfo! 5 " $2þ 1 define_keywords_nPýü# 132 " $1> buttoncanvasoptiontkwaitupdate! 6 " $2þ 1 define_keywords_nPýü# 133 " $1< destroylistboxmessagetkerror! 7 " $2þ 1 define_keywords_nPýü# 134 " $18 bindtagstk_popuptoplevel! 8 " $2þ 1 de
fine_keywords_nPýü# 135 " $1M clipboardscrollbarselectiontk_bisquetk_dialog! 9 " $2þ 1 define_keywords_nPýü# 136 " $1* menubutton" 10 " $2þ 1 define_keywords_nPýü# 137 " $16 checkbuttonradiobutton" 11 " $2þ 1 define_keywords_nPýü# 138 " $18 tk_focu
sNexttk_focusPrev" 12 " $2þ 1 define_keywords_nPýü# 139 " $1: tk_messageBoxtk_setPalette" 13 " $2þ 1 define_keywords_nPýü# 140 " $1X tk_chooseColortk_getOpenFiletk_getSaveFiletk_optionsMenu" 14 " $2þ 1 define_keywords_nP,ü# 142y/ tcl_indent_line,ü#
 147 ' newlineü# 148 / tcl_indent_lineü# 145y6 tcl_newline_and_indent,*ü# 151 ! n+ü# 153 . bol_skip_whiteü# 154 + what_column ! nB.ü# 156 ( bol_trimü# 157¹! nýü# 158 ! nþ * whitespace/cü# 151y- tcl_indent_to,*ü# 165 ! c * open_count+! 0°* open_count* +
 close_count+! 0°+ close_count*ü# 166 ' escaped+! 0°' escapedü# 168 ) push_spot.ü# 170 # bol/. $ eolpN/. * go_right_1/.ü# 171 ) what_char°! cü# 172 ! c.ü# 173" 92x3 ' escaped.! 2°' escaped/b/.ü# 175# 123x3 ' escaped.·* open_count/b/.ü# 177# 125x3 ' 
escaped.ü# 178 * open_count.¹* open_count/.ü# 179·+ close_count/d/b/jü# 182 ' escaped.¹' escaped/c/gü# 185 ( pop_spotü# 186 * open_count + close_countwü# 163y0 tcl_count_braces,.ü# 193 $ up_1.ü# 194 . bol_skip_whiteü# 195 $ eolp.u/cü# 196 ) what_char" 
35B.! 1w/c/.ü# 198! 0w/d/eü# 190y) tcl_go_up,ü# 205 # eolü# 206 + bskip_whiteýü# 207$" \\þ + blooking_at.! 1/.ü# 208! 0/dwü# 203y5 tcl_is_continued_line,*ü# 215 & indent+! 0°& indent* * open_count+ü# 216 ) push_spotü# 217 ) tcl_go_up.ü# 219 + what
_column°& indentü# 221 0 tcl_count_bracesP°* open_countü# 222 * open_count ( C_INDENT;±& indentü# 225 5 tcl_is_continued_line. 2 C_CONTINUED_OFFSET±& indent/cü# 226 ) tcl_go_up 5 tcl_is_continued_lineC. 2 C_CONTINUED_OFFSET²& indent/c/cü# 229 ( pop_spotü#
 230 & indentwü# 213y2 tcl_prev_line_rule,*ü# 236 & indent+! 0°& indent* + close_count+! 0°+ close_countü# 238 0 tcl_count_braces°+ close_countPü# 239 + close_count ( C_INDENT;²& indentü# 240 & indentwü# 234y1 tcl_cur_line_rule,*ü# 246 & cursor ) oldi
ndent+*ü# 247 & indent+ü# 250 + what_column°& cursorü# 251 . bol_skip_whiteü# 252 + what_column°) oldindentü# 255 2 tcl_prev_line_rule°& indentü# 256 1 tcl_cur_line_rule±& indentýü# 260 & indentþ - tcl_indent_toýü# 261 & cursor & indent9 ) oldindent:þ + g
oto_columnü# 244y/ tcl_indent_line,ýü# 267! 1þ , check_regionü# 268 * pop_mark_1ü# 269 ) push_markü# 270 / tcl_indent_lineü# 271 ( pop_spotü# 273 ) push_spotü# 274 ' go_up_1ü# 275 & narrowü# 276 # bobýü# 2783 Indenting region...þ % flush.ü# 279 & down_
1/.ü# 280 / tcl_indent_line/fýü# 2839 Indenting region... Done.þ % flushü# 285 % widenü# 286 ( pop_spotü# 265y1 tcl_indent_region,*ü# 290 # msg+ýü# 292) Warning:  # msg9þ % flushü# 290y2 tcl_syntax_warning,ýü# 297! }þ & insertü# 298 / tcl_indent_lin
eü# 299 + blink_matchü# 295y. tcl_insert_ket,ü# 304 0 Tcl_Check_Syntax.ü# 305 ) push_spotü# 306 + bskip_whiteü# 307 $ bolp.ýü# 308C '{' shouldn't be on a separate lineþ 2 tcl_syntax_warning/cü# 310 ( pop_spot/cýü# 312! {þ & insertü# 302y. tcl_insert_br
a,ü# 317 0 Tcl_Check_Syntax.ü# 318 ) push_spotü# 319 + bskip_whiteü# 320 $ bolpý! ;þ + blooking_atD.ýü# 321O '#' should be on a separate line or after a ';'þ 2 tcl_syntax_warning/bü# 323 ( pop_spot/cýü# 325! #þ & insertü# 315y2 tcl_insert_commentü# 32
8# TCL°" $1ýü# 329 " $1þ ( keymap_p.ýü# 331 " $1þ + make_keymapýü# 332. tcl_insert_bra! { " $1þ ) definekeyýü# 333. tcl_insert_ket! } " $1þ ) definekeyýü# 3342 tcl_insert_comment! # " $1þ ) definekeyýü# 3351 tcl_indent_region" ^Q " $1þ 2 defineke
y_reservedýü# 336+ indent_line! 	 " $1þ ) definekey/b,*ü# 365 $ mode+# TCL°$ modeýü# 366 $ mode! 4þ ( set_modeýü# 367 $ modeþ * use_keymapýü# 368 $ modeþ 0 use_syntax_tableýü# 369+ indent_hook/ tcl_indent_lineþ / set_buffer_hookýü# 3703 newline_in
dent_hook6 tcl_newline_and_indentþ / set_buffer_hookýü# 371- tcl_mode_hookþ . run_mode_hooksü# 363y( tcl_mode