Mercurial > hg > egg-tcls
comparison tj.tcl @ 646:cf62cdc44568
tj: Add comment.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Tue, 16 Feb 2021 13:16:08 +0200 |
parents | 77c9feb5dcee |
children | 98e2254056b2 |
comparison
equal
deleted
inserted
replaced
645:6a56df3437d1 | 646:cf62cdc44568 |
---|---|
524 # Check for #id prefix | 524 # Check for #id prefix |
525 if {[utl_arg_get $rarglist rindex rarg 0]} { | 525 if {[utl_arg_get $rarglist rindex rarg 0]} { |
526 set notdefault [tj_get_id $rarg rindex uid] | 526 set notdefault [tj_get_id $rarg rindex uid] |
527 } | 527 } |
528 | 528 |
529 # Check for name argument | |
529 if {![utl_arg_get $rarglist rindex rarg 0]} { | 530 if {![utl_arg_get $rarglist rindex rarg 0]} { |
530 tj_msg $upublic $unick $uchan "help_show" | 531 tj_msg $upublic $unick $uchan "help_show" |
531 return 1 | 532 return 1 |
532 } | 533 } |
533 | 534 |