help truncated args when missing \

UDXS · Jul 8, 2021 · c3624ed · c3624ed
1 parent be0d38e
commit c3624ed
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tcl/Util.tcl b/tcl/Util.tcl
@@ -230,7 +230,7 @@ proc show_cmd_args { cmd } {
   set arglist $cmd_args($cmd)
   # Break the arglist up into max_col length lines.
   while {1} {
-    if {[regexp {(^ *)([a-zA-Z0-9_\\\|\-]+|\[[^\[]+\])(.*)} \
+    if {[regexp {(^[\n ]*)([a-zA-Z0-9_\\\|\-]+|\[[^\[]+\])(.*)} \
 	   $arglist ignore space arg rest]} {
       set arg_length [string length $arg]
       if { $col + $arg_length < $max_col } {