anchor.diff:                      (setf (aref current-screen y) line)
                       (check-pending-input))))
                 ;; render the messages line
  -          (let ((line (previous-line (last-line (get-buffer-create "*Messages*")))))
  -            (when line
  -              (render-display-line line
  -                (lambda (l) (blit-display-line l (1+ (window-rows)))))))))
  +              (let ((line (previous-line (last-line (get-buffer-create "*Messages*")))))
  +                (when line
  +                  (render-display-line line
  +                    (lambda (l) (blit-display-line l (1+ (window-rows)))))))))
             (render-mode-line)
             ;; Prune the cache.
             (setf (display-line-cache *editor*) (subseq (display-line-cache *editor*) 0 (* (window-rows) 4))))
  
positive.code:          ;;(buffer-current-package buffer)
           *package* ; TODO: uncomment above when buffer-current-package is faster
           ))
      (render-display-line (first-line modeline-buffer)
         (lambda (l) (blit-display-line l (- (window-rows) (1- minibuffer-rows)))) t)
      (kill-buffer modeline-buffer)))
  
  (defun redisplay ()
    "Perform an incremental redisplay cycle.
  
negative.code:       (mezzano.gui.compositor:damage-window (window *editor*)
                                              left real-y
                                              win-width line-height))))
  
  (defun recenter (buffer)
    "Move BUFFER's top line so that the point is displayed."
  