Fix duplicate space character in option parsing code

xdelaruelle · xdelaruelle · commit a66a7a236e98 · 2023-05-10T08:31:10.000+02:00
diff --git a/tcl/main.tcl.in b/tcl/main.tcl.in
@@ -988,15 +988,15 @@ if {[catch {
             }
             --width* {
                set asked_term_width [string range $arg 8 end]
-               set  term_width_arg --width
+               set term_width_arg --width
                if {$asked_term_width eq {}} {
                   set asked_term_width 0
                }
             }
             -w {
                ##nagelfar ignore Found constant
                set nextargisval asked_term_width
-               set  term_width_arg -w
+               set term_width_arg -w
             }
             -t - --terse - -l - --long - --default - -L - --latest - -S -\
             --starts-with - -C - --contains - -j - --json - --output=* {

Original file line number	Diff line number	Diff line change
`@@ -988,15 +988,15 @@ if {[catch {`
`988`	`988`	`}`
`989`	`989`	`--width* {`
`990`	`990`	`set asked_term_width [string range $arg 8 end]`
`991`		`- set term_width_arg --width`
	`991`	`+ set term_width_arg --width`
`992`	`992`	`if {$asked_term_width eq {}} {`
`993`	`993`	`set asked_term_width 0`
`994`	`994`	`}`
`995`	`995`	`}`
`996`	`996`	`-w {`
`997`	`997`	`##nagelfar ignore Found constant`
`998`	`998`	`set nextargisval asked_term_width`
`999`		`- set term_width_arg -w`
	`999`	`+ set term_width_arg -w`
`1000`	`1000`	`}`
`1001`	`1001`	`-t - --terse - -l - --long - --default - -L - --latest - -S -\`
`1002`	`1002`	`--starts-with - -C - --contains - -j - --json - --output=* {`