From 5513bd56a05adb080e1d64dd65c1a1df0aa06a19 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 28 Aug 2015 17:29:26 -0700 Subject: 2093 --- edit.mu | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/edit.mu b/edit.mu index 03317273..41317db7 100644 --- a/edit.mu +++ b/edit.mu @@ -1807,10 +1807,10 @@ after +handle-special-key [ move-to-next-character?:boolean <- equal *k, 65514/right-arrow break-unless move-to-next-character? # if not at end of text - old-cursor:address:duplex-list <- next-duplex *before-cursor - break-unless old-cursor + next-cursor:address:duplex-list <- next-duplex *before-cursor + break-unless next-cursor # scan to next character - *before-cursor <- copy old-cursor + *before-cursor <- copy next-cursor # if crossed a newline, move cursor to start of next row { old-cursor-character:character <- get **before-cursor, value:offset @@ -1832,9 +1832,9 @@ after +handle-special-key [ at-wrap?:boolean <- equal *cursor-column, wrap-column break-unless at-wrap? # and if next character isn't newline - new-cursor:address:duplex-list <- next-duplex old-cursor - break-unless new-cursor - next-character:character <- get *new-cursor, value:offset + next:address:duplex-list <- next-duplex *before-cursor + break-unless next + next-character:character <- get *next, value:offset newline?:boolean <- equal next-character, 10/newline break-if newline? *cursor-row <- add *cursor-row, 1 -- cgit 1.4.1-2-gfad0