From 3668b2cabda1d2c0e503834ab9ac5ecef11faa9f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 13 Dec 2005 20:31:37 +0000 Subject: [PATCH] set undo buffer size, and mask ctl-z for when the undo operation is unavailable svn: r1610 --- collects/drscheme/private/unit.ss | 5 ++++- collects/framework/private/keymap.ss | 5 +++++ 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index 7064705d37..f0c6834418 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -563,7 +563,10 @@ module browser threading seems wrong. (field [error-arrows #f]) - (super-new)))) + (super-new) + + (inherit set-max-undo-history) + (set-max-undo-history 5000)))) diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss index 34634d609f..36ac3313b3 100644 --- a/collects/framework/private/keymap.ss +++ b/collects/framework/private/keymap.ss @@ -989,6 +989,11 @@ (map-meta "c:g" "ring-bell") (map "c:x;c:g" "ring-bell") (map "c:c;c:g" "ring-bell") + + ;; This mapping is here to avoid having ctl-z insert "z" + ;; when the "Undo" menu item is disabled, because inserting + ;; "z" empties the redo stack + (map "c:z" "ring-bell") (map-meta "(" "insert-()-pair") (map-meta "[" "insert-[]-pair")