anchor.diff:  			 :x-position x
   			 :y-position y))))
     (initialize-area-from-buffer area (buffer area))
  -  (setf (cursor-visibility (cursor area)) t)
  +  (setf (cursor-visibility (cursor area)) :on)
     (tree-recompute-extent area))
   
   (defmethod line-text-width ((area simple-screen-area)
  
positive.code: 	;; Now deal with the cursor
  	(line-update-cursor line stream)
  	(when cursor
  	  (setf (cursor-visibility cursor) t))))))
  
  (defun maybe-scroll (cursor)
    (let ((pane (cursor-sheet cursor))
  
negative.code: (defmethod redisplay-line ((line screen-line) stream)
    (let* ((medium (sheet-medium stream))
  	 (style (text-style (output-record-parent line))))
      (declare (ignorable style))
      (with-slots (current-contents ascent descent baseline cursor buffer-line)
  	line
        (multiple-value-bind (unchanged
  