diff options
author | Zachary T Welch <zw@superlucidity.net> | 2009-11-29 16:32:06 -0800 |
---|---|---|
committer | Zachary T Welch <zw@superlucidity.net> | 2009-11-30 16:29:34 -0800 |
commit | 5dd6457d2c06caed01d4b75ecf1415afc68b48ea (patch) | |
tree | be71632393f3c68859d733be7bbd842b1c9572d6 /src/helper/startup.tcl | |
parent | 3d204ec66a840849372ab4c0ec4526a6f8557106 (diff) |
make syntax errors respond with 'usage'
The 'help' text will become more verbose, so its entire text will be
far more than desired when you only borked your syntax. The usage
still allows the commands to be looked up for more help.
Diffstat (limited to 'src/helper/startup.tcl')
-rw-r--r-- | src/helper/startup.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl index dda89c8a..d1c73ef3 100644 --- a/src/helper/startup.tcl +++ b/src/helper/startup.tcl @@ -25,7 +25,7 @@ proc ocd_bouncer {name args} { set errmsg "Command handler execution failed" } } else {if {$type == "group"} { - catch {eval ocd_help $name $args} + catch {eval ocd_usage $name $args} set errmsg [format "%s: command requires more arguments" \ [concat $name " " $args]] } else { |