anchor.diff:  (defmethod set-window-buffer :before (buffer (window window))
     (screen-modify (window-screen window)))
   
  +(defun window-height-without-modeline (window)
  +  (- (window-height window)
  +     (if (window-use-modeline-p window) 1 0)))
  +
   (defun make-view-from-window (window)
     (let* ((x (window-x window))
            (y (window-y window))
            (width (window-width window))
  -         (height (- (window-height window)
  -                    (if (window-use-modeline-p window) 1 0))))
  +         (height (window-height-without-modeline window)))
       (lem-if:make-view (implementation)
                         window
                         x
  
positive.code:       ;; return minus number
        (window-cursor-y window)
        ;; return zero or plus number
        (let ((height (- (window-height window)
                         (if (window-use-modeline-p window) 1 0))))
          (max 0 (- (window-cursor-y window)
                    (1- height))))))
  
  
negative.code: (defmethod initialize-instance :after ((window window) &rest initargs)
    (declare (ignore initargs))
    (let ((width (window-width window))
          (height (window-height-without-modeline window))
          (view (make-view-from-window window)))
      (set-window-screen (make-screen width height view)
                         window))
  