From c3624ed631275258dbbb340375cee38b016128ae Mon Sep 17 00:00:00 2001
From: James Cherry <cherry@parallaxsw.com>
Date: Thu, 8 Jul 2021 14:22:42 -0700
Subject: [PATCH] help truncated args when missing \

---
 tcl/Util.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tcl/Util.tcl b/tcl/Util.tcl
index 1884e043..08de91f4 100644
--- 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 } {