tcl-current-word

tcl-current-word is a compiled Lisp function in `tcl.el'.

(tcl-current-word FLAG)

Return current command word, or nil.
If FLAG is nil, just uses `current-word'.
Otherwise scans backward for most likely Tcl command word.