return $v
}
+proc ta_interval_optional {min def} {
+ upvar 1 text text
+ if {[ta_anymore]} {
+ return [parse_interval [ta_word] $min]
+ } else {
+ return $def
+ }
+}
+
proc usererror {emsg} { error $emsg {} {BLIGHT USER} }
proc go_usercommand {p c n dest text} {
proc ucmd/$cmdname {p dest} " upvar 1 text text\n$body"
}
+proc def_ucmd_alias {alias canon} {
+ proc ucmd/$alias {p dest} " uplevel 1 \[list ucmd/$canon \$p \$dest\]\n"
+}
+
proc ucmdr {priv pub args} {
return -code return [concat [list $priv $pub] $args]
}