diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss index 85d82435..f2b26f11 100644 --- a/collects/framework/private/keymap.ss +++ b/collects/framework/private/keymap.ss @@ -446,8 +446,7 @@ (let ([sel-start (send edit get-start-position)] [sel-end (send edit get-end-position)]) (when (and (= sel-start sel-end) - (not (= sel-start 0)) - (not (= sel-start (send edit last-position)))) + (not (= sel-start 0))) (let ([sel-start (if (= sel-start