undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

git-gui: enable the smart case sensitive search only if gui.search.smartcase is true

Browse Source 
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
This commit is contained in:
Pat Thoyts 2011-10-19 13:29:52 +01:00
parent b66f4f7aa7
commit 8eaf24b93b
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/search.tcl
View File

@ -11,6 +11,7 @@ field regexpsearch
field default_regexpsearch
field casesensitive
field default_casesensitive
field smartcase
field searchdirn -forwards
field history
@ -25,7 +26,8 @@ constructor new {i_w i_text args} {
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 @@ method _incrsearch {} {
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]