help truncated args when missing \

2021-07-08 14:22:42 -07:00 · 2021-07-08 14:22:42 -07:00 · c3624ed631
parent be0d38e382
commit c3624ed631
1 changed files with 1 additions and 1 deletions
--- 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 } {