diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-08-29 17:47:29 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-08-29 17:47:29 -0700 |
commit | cae121b435807cdaa10d9e0cc96639d5aadbe159 (patch) | |
tree | 5b95121c0489871f662f853e4198f40642d83df6 | |
parent | 3bbc3af6be9ef635d761b83ee63029f332b2381e (diff) | |
download | mu-cae121b435807cdaa10d9e0cc96639d5aadbe159.tar.gz |
2103
-rw-r--r-- | edit.mu | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/edit.mu b/edit.mu index f0699b42..ee0190df 100644 --- a/edit.mu +++ b/edit.mu @@ -6809,6 +6809,20 @@ scenario editor-redo-typing [ ] ] +after +handle-redo [ + { + typing:address:insert-operation <- maybe-convert *op, typing:variant + break-unless typing + insert-from:address:duplex-list <- get *typing, insert-from:offset + # assert cursor-row/cursor-column/top-of-screen match after-row/after-column/after-top-of-screen + insert-duplex-range *before-cursor, insert-from + *cursor-row <- get *typing, after-row:offset + *cursor-column <- get *typing, after-column:offset + top:address:address:duplex-list <- get *editor, top-of-screen:offset + *top <- get *typing, after-top-of-screen:offset + } +] + scenario editor-redo-typing-empty [ # create an editor, type something, undo assume-screen 10/width, 5/height @@ -6897,20 +6911,6 @@ ghi] ] ] -after +handle-redo [ - { - typing:address:insert-operation <- maybe-convert *op, typing:variant - break-unless typing - insert-from:address:duplex-list <- get *typing, insert-from:offset - # assert cursor-row/cursor-column/top-of-screen match after-row/after-column/after-top-of-screen - insert-duplex-range *before-cursor, insert-from - *cursor-row <- get *typing, after-row:offset - *cursor-column <- get *typing, after-column:offset - top:address:address:duplex-list <- get *editor, top-of-screen:offset - *top <- get *typing, after-top-of-screen:offset - } -] - # undo cursor movement and scroll scenario editor-can-undo-touch [ |