racket/gui: correct undo array resize for Emacs-style undo

original commit: ce63c5b75f7e66ae5a26d9a21e1877fb3e4cb70e
2014-01-28 02:45:51 -07:00 · 2014-01-28 02:45:51 -07:00 · 4040e4881d
commit 4040e4881d
parent 8c45433983
1 changed files with 4 additions and 1 deletions
--- a/pkgs/gui-pkgs/gui-lib/mred/private/wxme/editor.rkt
+++ b/pkgs/gui-pkgs/gui-lib/mred/private/wxme/editor.rkt
@ -899,7 +899,10 @@
                                        (size . < . max-undos)
                                        emacs-style-undo?)
                                    ;; make more room
-                                    (let* ([s (min (* size 2) (if (eq? max-undos 'forever) (* size 2) max-undos))]
+                                    (let* ([s (min (* size 2) (if (or (eq? max-undos 'forever)
+                                                                      emacs-style-undo?)
+                                                                  (* size 2)
+                                                                  max-undos))]
                                           [naya (make-vector s #f)])
                                      (for ([j (in-range size)])
                                        (vector-set! naya j (vector-ref c (modulo (+ start j) size))))