anchor.diff:        (loop :for (x string attribute) :in elements
               :do (lem-if:print-modeline *implementation* view x 0 string attribute)))))
   
  +(defun adjust-horizontal-scroll (window)
  +  (let ((screen (window-screen window))
  +        (buffer (window-buffer window)))
  +    (unless (variable-value 'line-wrap :default buffer)
  +      (let ((point-column (point-column (buffer-point buffer)))
  +            (width (- (screen-width screen) (screen-left-width screen))))
  +        (cond ((<= (+ (screen-horizontal-scroll-start screen) width)
  +                   (1+ point-column))
  +               (setf (screen-horizontal-scroll-start screen)
  +                     (- (1+ point-column) width)))
  +              ((< point-column (screen-horizontal-scroll-start screen))
  +               (setf (screen-horizontal-scroll-start screen) point-column)))))))
  +
   (defun redraw-display-window (window force)
     (let ((focus-window-p (eq window (current-window)))
           (buffer (window-buffer window))
  
positive.code:   (lem-if:set-view-pos *implementation* (screen-view screen) x y))
  
  (defvar *printing-tab-size*)
  
  (defun screen-print-string (screen x y string attribute)
    (when (and (eq attribute 'cursor) (< 0 (length string)))
  
negative.code:                      :string-start start
                       :string-end end))
    point-y)
  
  (defun screen-display-lines (screen redraw-flag buffer view-charpos cursor-y)
    (let* ((*printing-tab-size* (variable-value 'tab-width :default buffer))
  