search help text too

git-svn-id: svn://svn.berlios.de/openocd/trunk@795 b42882b7-edfa-0310-969c-e2dbd0fdcd60

diff --git a/src/startup.tcl b/src/startup.tcl
index 06d2eb1409df030f52ee3bf9704833b883f62b05..1b5092e0a7df86b8239b54438b4a9088eacc8bb6 100644 (file)
--- a/src/startup.tcl
+++ b/src/startup.tcl
@@ -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]