Make top-of-window-mtype left-sticky, to track newlines at top of window properly.

This commit is contained in:
Tony Garnock-Jones 2014-12-27 17:16:12 -05:00
parent fb463959cb
commit 1cf71a4a4c
1 changed files with 1 additions and 1 deletions

View File

@ -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)))