anchor.diff:  
   ;; use only stdscr
   (defmethod lem-if:redraw-view-after ((implementation ncurses) view focus-window-p)
  -  (let ((attr (attribute-to-bits 'modeline)))
  -    (charms/ll:attron attr)
  -    (when (and (ncurses-view-modeline-scrwin view)
  -               (< 0 (ncurses-view-x view)))
  -      ;; vertical line
  +  (when (and (ncurses-view-modeline-scrwin view)
  +             (< 0 (ncurses-view-x view)))
  +    (let ((attr (attribute-to-bits 'modeline)))
  +      (charms/ll:attron attr)
  +      ;; vertical line for horizontal splitted window
         (loop :for y1 :from 0 :below (+ (ncurses-view-height view) 1)
  -         :do (charms/ll:mvwaddch (ncurses-view-scrwin view)
  -                                 (+ (ncurses-view-y view) y1)
  -                                 (- (ncurses-view-x view) 1)
  -                                 (char-code #\space))))
  -    (charms/ll:attroff attr))
  -  (charms/ll:wnoutrefresh (ncurses-view-scrwin view)))
  +         :do (charms/ll:mvaddch (+ (ncurses-view-y view) y1)
  +                                (- (ncurses-view-x view) 1)
  +                                (char-code #\space)))
  +      (charms/ll:attroff attr))))
   
   ;; use get-pos-x/y
   (defmethod lem-if:update-display ((implementation ncurses))
  
positive.code:                      (send-abort-event editor-thread nil)
                       (send-event event)))
                 ;; workaround for exit problem
                 ;; workaround for display update problem (incomplete)
                 (sleep 0.0001))
             #+sbcl
             (sb-sys:interactive-interrupt (c)
  
negative.code:   (when (<= #xd800 code #xdbff)
      (charms/ll:timeout 100)
      (let ((c-lead  code)
            (c-trail (getch-pad)))
        (when (<= #xdc00 c-trail #xdfff)
          (setf code (+ #x10000 (* (- c-lead #xd800) #x0400) (- c-trail #xdc00))))
        (charms/ll:timeout -1)))
  