Mercurial > hg > egg-tcls
comparison tj.tcl @ 689:299a17b98f84
tj: Remove dead line.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Thu, 22 Jun 2023 13:28:34 +0300 |
| parents | 7ff41e458ee0 |
| children |
comparison
equal
deleted
inserted
replaced
| 688:2723be85343a | 689:299a17b98f84 |
|---|---|
| 207 return 1 | 207 return 1 |
| 208 } | 208 } |
| 209 | 209 |
| 210 set uclock [clock seconds] | 210 set uclock [clock seconds] |
| 211 set uhand [tj_correct_handle $uhand] | 211 set uhand [tj_correct_handle $uhand] |
| 212 set qadmin [matchattr $uhand n] | |
| 213 | 212 |
| 214 # Check and handle arguments | 213 # Check and handle arguments |
| 215 set rarglist [::textutil::split::splitx $uargs {\s+}] | 214 set rarglist [::textutil::split::splitx $uargs {\s+}] |
| 216 set rcmd [lindex $rarglist 0] | 215 set rcmd [lindex $rarglist 0] |
| 217 set rindex 1 | 216 set rindex 1 |