From 30441a6f2d5459efa8b64332dfc3a95662a1648a Mon Sep 17 00:00:00 2001 From: Stefan Haller Date: Sat, 22 Sep 2012 09:40:25 +0200 Subject: [PATCH] gitk: Highlight first search result immediately on incremental search 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 Signed-off-by: Paul Mackerras --- gitk | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/gitk b/gitk index e2c0f1cc6..39c40deb1 100755 --- 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 } -- 2.26.2