diff options
| -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 [ |