Mercurial > hg > egg-tcls

changeset 617:ce7a666991e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tj: Cleanup, set rindex only once.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 10 Feb 2021 13:36:56 +0200
parents 20dba2c757de
children 3b1fdba9a95c
files tj.tcl
diffstat 1 files changed, 1 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/tj.tcl	Wed Feb 10 13:36:31 2021 +0200
+++ b/tj.tcl	Wed Feb 10 13:36:56 2021 +0200
@@ -208,6 +208,7 @@
   # Check and handle arguments
   set rarglist [::textutil::split::splitx $uargs {\s+}]
   set rcmd [lindex $rarglist 0]
+  set rindex 1
 
   if {[tj_cmd_match "help" $rcmd]} {
     # Show help
@@ -217,7 +218,6 @@
     return 1
   } elseif {[tj_cmd_match "set" $rcmd]} {
     # !tj set [#id] <[-/+]days [[+/-]<hours>] | dd.mm.yyyy [hh:mm]> [<desc>]
-    set rindex 1
     if {![utl_arg_get $rarglist rindex rarg 0]} {
       tj_msg $upublic $unick $uchan "help_set"
       return 1
@@ -407,7 +407,6 @@
   } elseif {[tj_cmd_match "show" $rcmd]} {
     # !tj show [#id] <name>
     # Check for #id prefix
-    set rindex 1
     if {[utl_arg_get $rarglist rindex rarg 0]} {
       tj_get_id $rarg rindex uid
     }