diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2017-05-26 23:50:50 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2017-05-26 23:50:50 -0700 |
| commit | b7fc9d3b5c4da25af0b919e65996b5dc0c3cf9f5 (patch) | |
| tree | 5edcd98f4a593b50f813bf2b72af84fdfbda5668 /edit | |
| parent | 5e7f0caab592c636f827d2c7814bc33eb96382d1 (diff) | |
| download | mu-b7fc9d3b5c4da25af0b919e65996b5dc0c3cf9f5.tar.gz | |
3879
Diffstat (limited to 'edit')
| -rw-r--r-- | edit/012-editor-undo.mu | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/edit/012-editor-undo.mu b/edit/012-editor-undo.mu index c2f6bca3..69e1c22b 100644 --- a/edit/012-editor-undo.mu +++ b/edit/012-editor-undo.mu @@ -415,7 +415,7 @@ after <handle-redo> [ before-cursor <- get *editor, before-cursor:offset insert-from:&:duplex-list:char <- get typing, insert-from:offset # ignore insert-to because it's already been spliced away # assert insert-to matches next(before-cursor) - insert-range before-cursor, insert-from + splice 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 *editor <- put *editor, cursor-row:offset, cursor-row @@ -1636,7 +1636,7 @@ before <backspace-character-end> [ break-unless coalesce? deletion <- put deletion, delete-from:offset, before-cursor backspaced-so-far:&:duplex-list:char <- get deletion, deleted-text:offset - insert-range backspaced-cell, backspaced-so-far + splice backspaced-cell, backspaced-so-far deletion <- put deletion, deleted-text:offset, backspaced-cell deletion <- put deletion, after-row:offset, cursor-row deletion <- put deletion, after-column:offset, cursor-column @@ -1661,7 +1661,7 @@ after <handle-undo> [ break-unless anchor deleted:&:duplex-list:char <- get deletion, deleted-text:offset old-cursor:&:duplex-list:char <- last deleted - insert-range anchor, deleted + splice anchor, deleted # assert cursor-row/cursor-column/top-of-screen match after-row/after-column/after-top-of-screen before-cursor <- copy old-cursor cursor-row <- get deletion, before-row:offset |