From 8d4562506a8d04d41d5be4f759072a66df1e0a7b Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 13 Sep 2008 13:22:22 +0000
Subject: [PATCH] PR 9742

svn: r11723

original commit: 5566ec2ef25f631a6b3349f93656df48d199246a
---
 collects/framework/private/comment-box.ss | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/collects/framework/private/comment-box.ss b/collects/framework/private/comment-box.ss
index 92597b4f..f95d2617 100644
--- a/collects/framework/private/comment-box.ss
+++ b/collects/framework/private/comment-box.ss
@@ -32,12 +32,6 @@
   
   (define bm (make-object bitmap% semicolon-bitmap-path))
   
-  (define (editor-keymap-mixin %)
-    (class %
-      (define/override (get-keymaps)
-        (cons (keymap:get-file) (super get-keymaps)))
-      (super-instantiate ())))
-  
   (define scheme+copy-self% #f)
   (define (get-scheme+copy-self%)
     (unless scheme+copy-self%
@@ -48,7 +42,9 @@
                 (let ([ed (new scheme+copy-self%)])
                   (copy-self-to ed)
                   ed))
-              (super-new))))
+              (super-new)
+              (inherit set-max-undo-history)
+              (set-max-undo-history 'forever))))
     scheme+copy-self%)
   
   (define -snip%