made searching be case-insesntivie
svn: r7784 original commit: 70907a8932ef5eab8d02daf2ea00e0ba5fb690ed
This commit is contained in:
parent
53a759eb02
commit
5f37cb549e
|
@ -57,7 +57,7 @@
|
||||||
|
|
||||||
(define (generate-search-results search-keys)
|
(define (generate-search-results search-keys)
|
||||||
(let ([file (next-search-results-file)]
|
(let ([file (next-search-results-file)]
|
||||||
[search-regexps (map regexp-quote search-keys)]
|
[search-regexps (map (λ (x) (regexp-quote x #f)) search-keys)]
|
||||||
[search-key-string
|
[search-key-string
|
||||||
(cond
|
(cond
|
||||||
[(null? search-keys) ""]
|
[(null? search-keys) ""]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user