set undo buffer size, and mask ctl-z for when the undo operation is unavailable

svn: r1610
This commit is contained in:
Matthew Flatt 2005-12-13 20:31:37 +00:00
parent c60213c37e
commit 3668b2cabd
2 changed files with 9 additions and 1 deletions

View File

@ -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))))

View File

@ -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")