anchor.diff:                                    :multiple-window t)
             (:presentation (&key presentation window event x y)
               (let ((dest-translator (find-dest-translator presentation window x y)))
  -              (multiple-value-call #'do-feedback (last-point) :unhighlight)
  -              (setq feedback-activated t)
  -              (do-highlight last-presentation (last-point) :unhighlight)
  -              (setq last-event event
  -                    last-presentation presentation)
  +              (erase-old)
                 (if dest-translator
  -                  (setf feedback-fn (feedback dest-translator)
  +                  (setf last-event event
  +                        last-presentation presentation
  +                        feedback-fn (feedback dest-translator)
                           highlight-fn (highlighting dest-translator))
  -                  (setf feedback-fn (feedback translator)
  +                  (setf last-event event
  +                        last-presentation nil
  +                        feedback-fn (feedback translator)
                           highlight-fn (highlighting translator)))
  -              (do-highlight presentation window :highlight)
  -              (do-feedback window x y :highlight)
  -              (multiple-value-call #'document-drag-n-drop
  -                (if dest-translator
  -                    (values dest-translator presentation)
  -                    (values translator      nil))
  -                context-type frame event window
  -                x y)))
  +              ;; Do not highlight the presentation if there is no
  +              ;; applicable translator. -- jd 2019-08-20
  +              (when dest-translator
  +                (maybe-funcall highlight-fn frame presentation window :highlight))
  +              (maybe-funcall feedback-fn frame from-presentation
  +                             window initial-x initial-y x y :highlight)
  +              (document-drag-n-drop (or dest-translator translator) last-presentation
  +                                    context-type frame event window x y)))
             (:pointer-motion (&key event window x y)
  -            (multiple-value-call #'do-feedback (last-point) :unhighlight)
  -            (setq feedback-activated t)
  -            (do-highlight last-presentation (last-point) :unhighlight)
  +            (erase-old)
               (setq last-event event
                     last-presentation nil)
  -            (do-feedback window x y :highlight)
  +            (maybe-funcall feedback-fn frame from-presentation
  +                           window initial-x initial-y x y :highlight)
               (document-drag-n-drop translator nil
                                     context-type frame event window
                                     x y))
  
positive.code:          (initial-x x)
           (initial-y y)
           (last-presentation nil)
           (feedback-activated nil)
           (last-event nil))
      (flet ((find-dest-translator (presentation window x y)
               (loop for translator in translators
  
negative.code:                                                         window x y))
                  do (return-from find-dest-translator translator))
               nil)
             (erase-old ()
               (when last-event
                 (let ((window (event-sheet last-event))
                       (x (pointer-event-x last-event))
                       (y (pointer-event-y last-event)))
                   (maybe-funcall feedback-fn frame from-presentation
                                  window initial-x initial-y x y :unhighlight)
                   (when last-presentation
                     (maybe-funcall highlight-fn frame last-presentation
                                    window :unhighlight))))))
        (block do-tracking
          (tracking-pointer (window :context-type `(or ,@(mapcar #'destination-type translators))
                                    ;; context-type should be T and we
  