fixed bug

original commit: c0f8a90cf330abed2d330e7c829edd20d33d1d5a
1996-07-08 14:48:15 +00:00 · 1996-07-08 14:48:15 +00:00 · 9c331387cf
commit 9c331387cf
parent f83ac2c468
1 changed files with 3 additions and 2 deletions
--- 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)]