anchor.diff:           *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))) t)
  +       (lambda (l) (blit-display-line l (- (window-rows) (1- minibuffer-rows)))) t)
       (kill-buffer modeline-buffer)))
   
   (defun redisplay ()
  
positive.code:             (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))))
          t)
  
negative.code: 
  (defun render-mode-line ()
    (let* ((buffer (current-buffer *editor*))
           (minibuffer-rows (if (eql buffer *minibuffer*)
                              (1+ (truncate (line-number (last-line buffer)) 10000))
                              1))
           (modeline-buffer (get-buffer-create " *Modeline*"))
           (modeline-string (buffer-property buffer 'modeline)))
      (insert modeline-buffer
  