search help text too
authoroharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Fri, 11 Jul 2008 17:46:17 +0000 (17:46 +0000)
committeroharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Fri, 11 Jul 2008 17:46:17 +0000 (17:46 +0000)
git-svn-id: svn://svn.berlios.de/openocd/trunk@795 b42882b7-edfa-0310-969c-e2dbd0fdcd60

src/startup.tcl

index 06d2eb1409df030f52ee3bf9704833b883f62b05..1b5092e0a7df86b8239b54438b4a9088eacc8bb6 100644 (file)
@@ -68,7 +68,7 @@ proc tcl_help {args} {
        global ocd_helptext
        set cmd $args
        foreach a [lsort $ocd_helptext] {
-               if {[string length $cmd]==0||[string first $cmd $a]!=-1} {
+               if {[string length $cmd]==0||[string first $cmd $a]!=-1||[string first $cmd [lindex $a 1]]!=-1} {
                        set w 40
                        set cmdname [lindex $a 0]
                        set h [lindex $a 1]