anchor.diff:  ;;; debugger hook
   
   (defun hide-popups-on-errors ()
  -  "On errors, prevent possible freezing of window manager (mouse clicks). Useful in e.g. Linux."
  +  "On errors, prevent possible freezing of mouse click events."
     (setf *debugger-hook* (lambda (&rest args)
                             (setf *debugger-hook* nil)
  -                          (qfun "QMessageBox" "critical" nil (tr "EQL Editor Error")
  -                                        (tr "<p>The debugger has been invoked.</p><p>The popup widgets will now be <b>hidden</b>.</p>"))
  +                          (qfun "QMessageBox" "critical" nil (tr "EQL") (tr "<p>Internal editor error, sorry.</p>"))
                             (dolist (w (qfun "QApplication" "topLevelWidgets"))
                               (unless (qeql *main* w)
                                 (qfun w "hide"))))))
  
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:               (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)))
  