made searching be case-insesntivie

svn: r7784
2007-11-20 13:44:25 +00:00 · 2007-11-20 13:44:25 +00:00 · 70907a8932
commit 70907a8932
parent 978ce31303
1 changed files with 1 additions and 1 deletions
--- a/collects/help/search.ss
+++ b/collects/help/search.ss
@ -57,7 +57,7 @@

 (define (generate-search-results search-keys)
  (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
         (cond
           [(null? search-keys) ""]