anchor.diff:  (in-package :lem-ncurses)
  +(export '(get-input-polling-interval
  +          set-input-polling-interval))
   
   ;; windows terminal type
   ;;   :mintty  : mintty  (winpty is needed)
  
positive.code:     (charms/ll:keypad *padwin* 1)
      (charms/ll:PDC-save-key-modifiers 1)
      ;; timeout setting is necessary to exit lem normally
      (charms/ll:wtimeout *padwin* 100))
    (charms/ll:wgetch *padwin*))
  
  ;; for resizing display
  
negative.code:            ((= code #x210) (setf code #x05c))
             ;; M-[
             ((= code #x1f1)
              (charms/ll:wtimeout *padwin* 100)
              (let ((code1 (getch-pad)))
                (cond
  		;; drop mouse escape sequence
  