anchor.diff:  	 bg-char
   	 (window-posline window)
   	 (make-string 2 :initial-element bg-char))
  -       str))))
  +       str))
  +   (1- (window-nlines window))))
   
   (defun window-redraw-modeline (window)
     (cl-ncurses:wattron (window-win window) cl-ncurses:a_reverse)
  
positive.code:   y
    x
    buffer
    vtop-linum
    cur-linum
    cur-col
  
negative.code:                     (buffer-nlines (window-buffer window))))))))))
  
  (defun window-redraw-modeline-1 (window bg-char)
    (window-redraw-line-1
     window
     (let ((str
            (format nil "~c~c ~a: ~a (~a) (~d, ~d)"
                    (if (buffer-read-only-p (window-buffer window)) #\% bg-char)
  