Correct Help Desk Search so it handles keywords and hash-colon-keyword lexemes.

Closes PR 13470.
This commit is contained in:
Danny Yoo 2013-02-11 13:52:04 -07:00
parent 49ab87eadc
commit 61ddb91815

View File

@ -267,13 +267,16 @@ module browser threading seems wrong.
;; find-searchable-tokens : number number -> (or/c #f (list symbol number number)) ;; find-searchable-tokens : number number -> (or/c #f (list symbol number number))
(define (find-searchable-tokens start end) (define (find-searchable-tokens start end)
(define tokens (get-tokens start end)) (define tokens (get-tokens start end))
(define raw-tokens (map (λ (x) (list-ref x 0)) tokens)) (for/or ([tok tokens])
(cond (define type (list-ref tok 0))
[(equal? raw-tokens '(symbol)) (cond [(or (eq? type 'symbol)
(car tokens)] (eq? type 'hash-colon-keyword)
[(equal? raw-tokens '(constant symbol)) ;; The token may have been categorized as a keyword due to
(cadr tokens)] ;; its presence in the tabification preferences:
[else #f])) (eq? type 'keyword))
tok]
[else
#f])))
(define searchable-token (define searchable-token
(or (and before before+ (or (and before before+