3914 - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

about summary refs log tree commit diff stats

diff options


context:

;- put *editor, top-of-screen:offset, top-of-screen @@ -3591,7 +3591,7 @@ def line-down editor:&:editor, screen-height:num -> go-render?:bool, editor:&:ed local-scope load-ingredients old-top:&:duplex-list:char <- get *editor, top-of-screen:offset - new-top:&:duplex-list:char <- before-previous-line old-top, editor + new-top:&:duplex-list:char <- before-previous-screen-line old-top, editor movement?:bool <- not-equal old-top, new-top { break-unless movement? @@ -3611,7 +3611,7 @@ after <handle-special-character> [ old-top:&:duplex-list:char <- get *editor, top-of-screen:offset cursor:&:duplex-list:char <- get *editor, before-cursor:offset cursor <- next cursor - new-top:&:duplex-list:char <- before-previous-line cursor, editor + new-top:&:duplex-list:char <- before-previous-screen-line cursor, editor *editor <- put *editor, top-of-screen:offset, new-top *editor <- put *editor, cursor-row:offset, 1 go-render?:bool <- not-equal new-top, old-top @@ -3637,7 +3637,7 @@ after <handle-special-character> [ break-unless next cursor <- copy next } - before-line-start:&:duplex-list:char <- before-previous-line cursor, editor + before-line-start:&:duplex-list:char <- before-previous-screen-line cursor, editor line-start:&:duplex-list:char <- next before-line-start commented-out?:bool <- match line-start, [#? ] # comment prefix {