Correct Help Desk Search so it handles keywords and hash-colon-keyword lexemes.
Closes PR 13470.
This commit is contained in:
parent
49ab87eadc
commit
61ddb91815
|
@ -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+
|
||||||
|
|
Loading…
Reference in New Issue
Block a user