From 23155246942d6bdf7a27b15afa8c5dcbf7600936 Mon Sep 17 00:00:00 2001 From: John Clements Date: Wed, 4 Dec 2002 21:58:09 +0000 Subject: [PATCH] ... original commit: 628b801339bc56734d1da4cfd4c03489041ff4b8 --- collects/framework/private/keymap.ss | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss index dfa0244c..ed6da712 100644 --- a/collects/framework/private/keymap.ss +++ b/collects/framework/private/keymap.ss @@ -272,12 +272,10 @@ (lambda (open-brace close-brace) (lambda (edit event) (send edit begin-edit-sequence) - (let ([selection-start-box (box 0)] - [selection-end-box (box 0)]) - (send edit get-position selection-start-box selection-end-box) - (send edit set-position (unbox selection-end-box)) + (let ([selection-start (send edit get-start-position)]) + (send edit set-position (send edit get-end-position)) (send edit insert close-brace) - (send edit set-position (unbox selection-start-box)) + (send edit set-position selection-start) (send edit insert open-brace)) (send edit end-edit-sequence)))]