misc-deps
/
racket-ansi
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix miniwin layout bug

This commit is contained in:
Tony Garnock-Jones 2014-12-29 18:36:40 -05:00
parent 4a7219134a
commit 6855a2c1d9
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rmacs/render.rkt
View File

@ -142,7 +142,9 @@
[(absolute-size lines) lines] [(absolute-size lines) lines]
[(relative-size _) 0])) ws))) [(relative-size _) 0])) ws)))
(define proportional-lines (- total-height reserved-lines)) (define proportional-lines (- total-height reserved-lines))
(append (let loop ((ws ws) (offset 0) (remaining proportional-lines)) (define ws-without-miniwin ;; miniwin is in ws when minibuffer active; otherwise, not
(filter (lambda (e) (not (eq? (car e) miniwin))) ws))
(append (let loop ((ws ws-without-miniwin) (offset 0) (remaining proportional-lines))
(match ws (match ws
['() '()] ['() '()]
[(cons (list (== miniwin eq?) _) rest) [(cons (list (== miniwin eq?) _) rest)