anchor.diff:          (update-tab-completer-2 file))))
     (defun update-tab-completer-2 (&optional file) ; see "directoryLoaded(QString)" from *file-model*
       (qfun completer "complete")
  +(/ 1 0)
       (let ((popup (if file *file-popup* *symbol-popup*)))
         (qfun popup "resize" (list (qget *current-editor* "width")
                                    (+ (* 2 (qget popup "frameWidth"))
  
positive.code:   (ini-actions)
    (ini-highlighter)
    (ini-completer)
    #+linux (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)
  
negative.code:               (qfun cursor2 "movePosition" |QTextCursor.NextCharacter| |QTextCursor.KeepAnchor|))
              (qfun *current-editor* "setExtraSelections" (list (list cursor1 format)
                                                                (list cursor2 format)))
              (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 *editor* "textCursor"))
              (copy (eql :copy type)))
          (x:do-with (qfun cursor)
            ("setPosition" pos-open)
            ("setPosition" pos-close |QTextCursor.KeepAnchor|))
          (qfun *editor* "setTextCursor" cursor)
          (when copy
            (dotimes (n #+darwin 25 #-darwin 1) ; hack
              (qfun *editor* "repaint")
              (qprocess-events))
            (sleep 0.2))
          (qfun *editor* (if copy "copy" "cut"))
          (setf cursor (qfun *editor* "textCursor"))
          (qfun cursor "setPosition" pos-open)
          (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)))
  