...

original commit: 8161ca6d9e4d274d5f52168f0f190303ffdbb56a
1999-01-08 15:12:52 +00:00 · 1999-01-08 15:12:52 +00:00 · b6a3038427
commit b6a3038427
parent 53ef109043
1 changed files with 4 additions and 2 deletions
--- a/collects/framework/editor.ss
+++ b/collects/framework/editor.ss
@ -34,9 +34,11 @@
 	[edit-sequence-count 0])
      (override
 	[begin-edit-sequence
-	 (lambda ()
+	 (case-lambda
+	  [() (begin-edit-sequence #t)]
+	  [(undoable?)
 	   (set! edit-sequence-count (+ edit-sequence-count 1))
-	   (super-begin-edit-sequence))]
+	   (super-begin-edit-sequence undoable?)])]
 	[end-edit-sequence
 	 (lambda ()
 	   (set! edit-sequence-count (- edit-sequence-count 1))