git-gui: enable the smart case sensitive search only if gui.search.smartcase is true
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
Pat Thoyts committed
Oct 19, 2011 at 13:29 UTC
8eaf24b93bdb49d5adfb2f52f0f14dd01735db37
1 file changed
+7
-3
lib/search.tcl
+7
-3
@@ -11,6 +11,7 @@ field regexpsearch
11
field default_regexpsearch
12
field casesensitive
13
field default_casesensitive
14
+field smartcase
15
field searchdirn -forwards
16
17
field history
@@ -25,7 +26,8 @@ constructor new {i_w i_text args} {
26
set ctext $i_text
27
28
set default_regexpsearch [is_config_true gui.search.regexp]
28
- if {[is_config_true gui.search.smartcase]} {
29
+ set smartcase [is_config_true gui.search.smartcase]
30
+ if {$smartcase} {
31
set default_casesensitive 0
32
} else {
33
set default_casesensitive 1
@@ -155,8 +157,10 @@ method _incrsearch {} {
157
if {[catch {$ctext index anchor}]} {
158
$ctext mark set anchor [_get_new_anchor $this]
159
}
158
- if {[regexp {[[:upper:]]} $searchstring]} {
159
- set casesensitive 1
160
+ if {$smartcase} {
161
+ if {[regexp {[[:upper:]]} $searchstring]} {
162
+ set casesensitive 1
163
+ }
164
}
165
if {$searchstring ne {}} {
166
set here [_do_search $this anchor mlen]