X-Git-Url: https://review.openocd.org/gitweb?p=openocd.git;a=blobdiff_plain;f=src%2Fhelper%2Fstartup.tcl;h=ddfef1dc9ae1181d537f58d21b12a1e12e9c2e07;hp=30dc184f7f6fa65270a756130e4730c74f97a617;hb=5458fef43ca7072312440301a9469c686ca641e2;hpb=82449e2d60fbbb5ce8a6285b6e6d60e5767ee429;ds=sidebyside

diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl
index 30dc184f7f..ddfef1dc9a 100644
--- a/src/helper/startup.tcl
+++ b/src/helper/startup.tcl
@@ -58,24 +58,6 @@ proc cmd_help {cmdname h indent} {
 	}
 }
 
-#Print help text for a command. Word wrap
-#help text that is too wide inside column.
-proc help {args} {
-	global ocd_helptext
-	set cmd $args
-	foreach a [lsort $ocd_helptext] {
-		if {[string length $cmd] == 0 || \
-			[string first $cmd $a] != -1 || \
-			[string first $cmd [lindex $a 1]] != -1} \
-		{
-			cmd_help [lindex $a 0] [lindex $a 1] 0
-		}
-	}
-}
-
-add_help_text help "Tcl implementation of help command"
-
-
 # If a fn is unknown to Tcl, we try to execute it as an OpenOCD command
 #
 # We also support two level commands. "flash banks" is translated to