made searching be case-insesntivie

svn: r7784 original commit: 70907a8932ef5eab8d02daf2ea00e0ba5fb690ed
2007-11-20 13:44:25 +00:00 · 2007-11-20 13:44:25 +00:00 · 5f37cb549e
commit 5f37cb549e
parent 53a759eb02
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) ""]