gitk: Highlight first search result immediately on incremental search

stefanhaller · paulusmack · commit 30441a6f2d54 · 2012-09-23T15:03:18.000+10:00
When typing in the "Search" field, select the current search result (so
that it gets highlighted in orange). This makes it easier to understand
what will happen if you then type Ctrl-S.

Signed-off-by: Stefan Haller &lt;stefan@haller-berlin.de&gt;
Signed-off-by: Paul Mackerras &lt;paulus@samba.org&gt;
diff --git a/gitk b/gitk
@@ -8053,9 +8053,12 @@ proc incrsearch {name ix op} {
 	}
     }
     if {$searchstring ne {}} {
-	set here [$ctext search $searchdirn -- $searchstring anchor]
+	set here [$ctext search -count mlen $searchdirn -- $searchstring anchor]
 	if {$here ne {}} {
 	    $ctext see $here
+	    set mend "$here + $mlen c"
+	    $ctext tag remove sel 1.0 end
+	    $ctext tag add sel $here $mend
 	    suppress_highlighting_file_for_current_scrollpos
 	    highlightfile_for_scrollpos $here
 	}

Original file line number	Diff line number	Diff line change
`@@ -8053,9 +8053,12 @@ proc incrsearch {name ix op} {`
`8053`	`8053`	`}`
`8054`	`8054`	`}`
`8055`	`8055`	`if {$searchstring ne {}} {`
`8056`		`- set here [$ctext search $searchdirn -- $searchstring anchor]`
	`8056`	`+ set here [$ctext search -count mlen $searchdirn -- $searchstring anchor]`
`8057`	`8057`	`if {$here ne {}} {`
`8058`	`8058`	`$ctext see $here`
	`8059`	`+ set mend "$here + $mlen c"`
	`8060`	`+ $ctext tag remove sel 1.0 end`
	`8061`	`+ $ctext tag add sel $here $mend`
`8059`	`8062`	`suppress_highlighting_file_for_current_scrollpos`
`8060`	`8063`	`highlightfile_for_scrollpos $here`
`8061`	`8064`	`}`