From 9c331387cff62c258e70320e784ed8654367f927 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 8 Jul 1996 14:48:15 +0000 Subject: [PATCH] fixed bug original commit: c0f8a90cf330abed2d330e7c829edd20d33d1d5a --- collects/mred/keys.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/mred/keys.ss b/collects/mred/keys.ss index 202d1d33..00c31fd2 100644 --- a/collects/mred/keys.ss +++ b/collects/mred/keys.ss @@ -643,8 +643,9 @@ (let ([kmap (send edit get-keymap)]) (send kmap call-function (if (mred:preferences:get-preference 'mred:delete-forward?) - "delete-next-character" - "delete-previous-character"))))] + "delete-previous-character" + "delete-next-character") + edit event #t)))] [select-forward-character (lambda (edit event) (let ([start (box 0)]