From 48772f2e405a7723f40397ccdbfdf1f646f8f9c6 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 12 Dec 2011 14:44:28 -0600
Subject: [PATCH] when double clicking in a comment, fall back to word-based
 instead of sexp-based selection

closes PR 12439
---
 collects/framework/private/racket.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/framework/private/racket.rkt b/collects/framework/private/racket.rkt
index 729e3399ba..186dbdc4f1 100644
--- a/collects/framework/private/racket.rkt
+++ b/collects/framework/private/racket.rkt
@@ -1375,7 +1375,7 @@
              (define token (send text classify-position click-pos))
              (define-values (start end)
                (cond
-                 [(equal? token 'string) (word-based)]
+                 [(memq token '(string comment)) (word-based)]
                  [(and (equal? token 'other)
                        (let-values ([(start end) (send text get-token-range click-pos)])
                          (and start