From 1d03e5f711c26fb06e3110c2124ef2d13a793979 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 5 Dec 2011 17:46:39 -0600 Subject: [PATCH] adjust the double clicking in racket mode so that clicks on the (instead of sexp-based) closes PR 12421 --- collects/framework/private/racket.rkt | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/collects/framework/private/racket.rkt b/collects/framework/private/racket.rkt index 789e844842..729e3399ba 100644 --- a/collects/framework/private/racket.rkt +++ b/collects/framework/private/racket.rkt @@ -1376,6 +1376,14 @@ (define-values (start end) (cond [(equal? token 'string) (word-based)] + [(and (equal? token 'other) + (let-values ([(start end) (send text get-token-range click-pos)]) + (and start + end + (let ([str (send text get-text start end)]) + (or (regexp-match? #rx"^#lang" str) + (regexp-match? #rx"^#!" str)))))) + (word-based)] [(and (equal? token 'parenthesis) (ormap (λ (pr) (equal? (cdr pr) (string (send text get-character click-pos)))) (racket-paren:get-paren-pairs)))