diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-08-29 17:50:07 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-08-29 17:50:07 -0700 |
commit | 8e9124f214f7f752056d27c79faed0163178f51e (patch) | |
tree | d7d15558c2e60fa4375288c96f5022185df9cd71 | |
parent | cae121b435807cdaa10d9e0cc96639d5aadbe159 (diff) | |
download | mu-8e9124f214f7f752056d27c79faed0163178f51e.tar.gz |
2104
-rw-r--r-- | edit.mu | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/edit.mu b/edit.mu index ee0190df..0b5f2ba6 100644 --- a/edit.mu +++ b/edit.mu @@ -6813,9 +6813,10 @@ 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-from:address:duplex-list <- get *typing, insert-from:offset # ignore insert-to because it's already been spliced away + # assert insert-to matches next-duplex(*before-cursor) insert-duplex-range *before-cursor, insert-from + # assert cursor-row/cursor-column/top-of-screen match after-row/after-column/after-top-of-screen *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 |