anchor.diff:                     (list nil (list cur-x y1) *dragging-window*)))))
           ;; wheel up
           ((logtest bstate charms/ll:BUTTON4_PRESSED)
  -         (lem:scroll-up 3)
  +         (lem:scroll-up *wheel-scroll-size*)
            (lem:redraw-display))
           ;; wheel down
           ((logtest bstate charms/ll:BUTTON5_PRESSED)
  -         (lem:scroll-down 3)
  +         (lem:scroll-down *wheel-scroll-size*)
            (lem:redraw-display))
           ))))
   
  
positive.code:   cur-mov-by-pos  ;; cursor movement setting
                    ;;   t   : cursor movement is specified by pos-char-width
                    ;;   nil : cursor movement is specified by cur-char-width
    )
  (defmethod calc-disp-char-width ((wt windows-term-setting) code)
    (let ((fn (windows-term-setting-disp-char-width wt)))
  
negative.code:     (exit-editor (c) (return-from input-loop c))))
  
  ;; workaround for display update problem (incomplete)
  (let ((temp-view   nil)
        (toggle-flag t))
    (defun write-something-to-last-line ()
      (when (eq *windows-term-type* :cmd.exe)
        (return-from write-something-to-last-line))
      (unless temp-view
        (setf temp-view (lem-if:make-view *implementation* nil 0 0 0 0 nil)))
      ;; this recovers winpty's screen corruption
      (let ((x (- charms/ll:*cols*  2))
            (y (- charms/ll:*lines* 1)))
        (print-sub (ncurses-view-scrwin temp-view)
                   (get-pos-x temp-view x y)
                   (get-pos-y temp-view x y)
                   (if toggle-flag "+" "-"))
        (setf toggle-flag (if toggle-flag nil t)))))
  
  ;; workaround for display update problem (incomplete)
  (defun force-refresh-display (width height)
  