anchor.diff:                (qfun cursor2 "movePosition" |QTextCursor.NextCharacter| |QTextCursor.KeepAnchor|))
               (qfun *current-editor* "setExtraSelections" (list (list cursor1 format)
                                                                 (list cursor2 format)))
  -            (let ((p1 (qfun cursor1 "position"))
  -                  (p2 (qfun cursor2 "position")))
  -              (setf pos-open (1- (min p1 p2))
  -                    pos-close (max p1 p2))
  -              (when (= p1 pos-close)
  -                (incf pos-close)))
  +            (when (qeql *editor* *current-editor*)
  +              (let ((p1 (qfun cursor1 "position"))
  +                    (p2 (qfun cursor2 "position")))
  +                (setf pos-open (1- (min p1 p2))
  +                      pos-close (max p1 p2))
  +                (when (= p1 pos-close)
  +                  (incf pos-close))))
               (setf *extra-selections* t))))))
     (defun highlighted-parenthesis-text ()
       (setf *latest-eval-position* pos-open)
       (subseq (qget *editor* "plainText") pos-open pos-close))
     (defun copy/cut-highlighted-region (type)
       (when (and pos-open pos-close)
  -      (let ((cursor (qfun *current-editor* "textCursor"))
  +      (let ((cursor (qfun *editor* "textCursor"))
               (copy (eql :copy type)))
           (x:do-with (qfun cursor)
             ("setPosition" pos-open)
             ("setPosition" pos-close |QTextCursor.KeepAnchor|))
  -        (qfun *current-editor* "setTextCursor" cursor)
  +        (qfun *editor* "setTextCursor" cursor)
           (when copy
             (dotimes (n #+darwin 25 #-darwin 1) ; hack
  -            (qfun *current-editor* "repaint")
  +            (qfun *editor* "repaint")
               (qprocess-events))
             (sleep 0.2))
  -        (qfun *current-editor* (if copy "copy" "cut"))
  -        (setf cursor (qfun *current-editor* "textCursor"))
  +        (qfun *editor* (if copy "copy" "cut"))
  +        (setf cursor (qfun *editor* "textCursor"))
           (qfun cursor "setPosition" pos-open)
  -        (qfun *current-editor* "setTextCursor" cursor)
  -        (qsingle-shot 100 (lambda () (qfun *current-editor* "setFocus"))))))) ; hack
  +        (qfun *editor* "setTextCursor" cursor)
  +        (qsingle-shot 100 (lambda () (qfun *editor* "setFocus"))))))) ; hack
   
   (defun mark-error-region (file-pos)
     (when (string= *file-name* (file-namestring (car file-pos)))
  
positive.code:         (update-tab-completer-2 file))))
    (defun update-tab-completer-2 (&optional file) ; see "directoryLoaded(QString)" from *file-model*
      (qfun completer "complete")
      (let ((popup (if file *file-popup* *symbol-popup*)))
        (qfun popup "resize" (list (qget *current-editor* "width")
                                   (+ (* 2 (qget popup "frameWidth"))
  
negative.code:   (ini-actions)
    (ini-highlighter)
    (ini-completer)
    (hide-popups-on-errors)
    (dolist (w (list *editor* *output* *command* *eql-completer* *symbol-popup*))
      (qset w "font" eql::*code-font*))
    (local-client:ini 'data-from-server)
  