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:                (let ((event (get-event)))
                   (case event
                     ;; retry is necessary to exit lem normally
                     (:retry)
                     (:abort
                      (send-abort-event editor-thread nil))
                     (t
  
negative.code:            ((= code #x210) (setf code #x05c))
             ;; M-[
             ((= code #x1f1)
              (charms/ll:wtimeout *padwin* 100)
              (let ((code1 (getch-pad)))
                (cond
  		;; drop mouse escape sequence
  