git-gui: enable the smart case sensitive search only if gui.search.smartcase is true
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
diff --git a/lib/search.tcl b/lib/search.tcl
index db88d87..04a316b 100644
--- a/lib/search.tcl
+++ b/lib/search.tcl
@@ -11,6 +11,7 @@
field default_regexpsearch
field casesensitive
field default_casesensitive
+field smartcase
field searchdirn -forwards
field history
@@ -25,7 +26,8 @@
set ctext $i_text
set default_regexpsearch [is_config_true gui.search.regexp]
- if {[is_config_true gui.search.smartcase]} {
+ set smartcase [is_config_true gui.search.smartcase]
+ if {$smartcase} {
set default_casesensitive 0
} else {
set default_casesensitive 1
@@ -155,8 +157,10 @@
if {[catch {$ctext index anchor}]} {
$ctext mark set anchor [_get_new_anchor $this]
}
- if {[regexp {[[:upper:]]} $searchstring]} {
- set casesensitive 1
+ if {$smartcase} {
+ if {[regexp {[[:upper:]]} $searchstring]} {
+ set casesensitive 1
+ }
}
if {$searchstring ne {}} {
set here [_do_search $this anchor mlen]