Mercurial > hg > egg-tcls
changeset 621:a1efc28ef5a4
tj: Require #-prefix for ids in 'delete' command.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Wed, 10 Feb 2021 15:26:10 +0200 |
parents | 47b15186373f |
children | 84a30765baa1 |
files | tj.tcl |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/tj.tcl Wed Feb 10 15:25:31 2021 +0200 +++ b/tj.tcl Wed Feb 10 15:26:10 2021 +0200 @@ -402,8 +402,8 @@ } } elseif {[tj_cmd_match "delete" $rcmd]} { - # !tj delete <id> - if {![utl_arg_get $rarglist rindex uid 0]} { + # !tj delete #<id> + if {![utl_arg_get $rarglist rindex rarg 0] || ![tj_get_id $rarg rindex uid]} { tj_msg $upublic $unick $uchan "help_delete" return 1 }