anchor.diff:             ((= code #x09c) (setf code 31)) ; C-_ (Redo) for mintty
              )))
         code))
  -  ;; overwite function (workaround for exit problem)
  +  ;; overwrite function (workaround for exit problem)
     (defun get-event (&optional esc-delaying)
       (let ((code (get-charcode-from-input)))
         (cond
  
positive.code:         (t
           (get-key code))))))
  
  ;; overwite function (workaround for exit problem)
  (defun input-loop (editor-thread)
    (handler-case
        (loop
  
negative.code:     (apply #'format out fmt args)
      (terpri out)))
  
  ;; overwrite method (use only stdscr)
  ;;  (we don't make a new scrwin to avoid the display corruption of
  ;;   horizontal splitted window with wide characters)
  (defmethod lem-if:make-view
  