anchor.diff:            (modifier-keys (charms/ll:PDC-get-key-modifiers)))
         (setf ctrl-key (logtest modifier-keys charms/ll:PDC_KEY_MODIFIER_CONTROL))
         (setf alt-key  (logtest modifier-keys charms/ll:PDC_KEY_MODIFIER_ALT))
  -      ;;(dbg-log-format "code=~X ctrl=~S alt=~S" code ctrl-key alt-key)
  +      ;;(unless (= code -1)
  +      ;;  (dbg-log-format "code=~X ctrl=~S alt=~S" code ctrl-key alt-key))
         (cond
           ;; ctrl key workaround
           (ctrl-key
  
positive.code:    :width width
     :height height))
  
  ;; for mouse
  (defun mouse-get-window-rect (window)
    (values (lem:window-x      window)
            (lem:window-y      window)
            (lem:window-width  window)
            (lem:window-height window)))
  ;; for ConEmu
  ;; get mouse disp-x for pointing wide characters properly
  (defun mouse-get-disp-x (view x y)
    (unless (eq *windows-term-type* :conemu)
      (return-from mouse-get-disp-x x))
    (let* ((start-x (ncurses-view-x view))
           (disp-x0 (+ x start-x))
           (disp-x  start-x)
           (pos-x   start-x)
           (pos-y   (get-pos-y view x y)))
      (loop :while (< pos-x disp-x0)
         :for code := (get-charcode-from-scrwin view pos-x pos-y)
         :do (incf disp-x (if (lem-base:wide-char-p (code-char code)) 2 1))
             (incf pos-x  (if (< code #x10000) 1 2)))
      (- disp-x start-x)))
  (defun mouse-move-to-cursor (window x y)
    (lem:move-point (lem:current-point) (lem::window-view-point window))
  
negative.code: 
  ;; for mintty and ConEmu
  ;; get pos-x/y for printing wide characters
  (defun get-pos-x (view x y &key (modeline nil))
    (unless (slot-value *windows-term-setting* 'pos-char-width)
      (return-from get-pos-x (+ x (ncurses-view-x view))))
    (let* ((disp-char-width-fn (disp-char-width-func))
           (pos-char-width-fn  (pos-char-width-func))
           (floating (not (ncurses-view-modeline-scrwin view)))
           (start-x  (ncurses-view-x view))
           (disp-x0  (+ x start-x))
           (disp-x   (if floating 0 start-x))
  