From 1cf71a4a4c007345ee36fb82208517641de9e1c0 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 27 Dec 2014 17:16:12 -0500 Subject: [PATCH] Make top-of-window-mtype left-sticky, to track newlines at top of window properly. --- rmacs/render.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rmacs/render.rkt b/rmacs/render.rkt index dca6961..1c59df5 100644 --- a/rmacs/render.rkt +++ b/rmacs/render.rkt @@ -9,7 +9,7 @@ (require "display.rkt") (require "rope.rkt") -(define top-of-window-mtype (mark-type "top-of-window" 'right)) +(define top-of-window-mtype (mark-type "top-of-window" 'left)) (define (newline? c) (equal? c #\newline)) (define (not-newline? c) (not (newline? c)))