anchor.diff:        (mapcar (lambda (opin)
                   (@ (getprop opin 0) id))
                 opinions))
  +
  +    (defun %find-parent-hilited (element)
  +      (if element
  +          (if (equal "hilited" (@ element class-name))
  +              element
  +              (%find-parent-hilited (@ element parent-element)))))
  +
  +    (defun is-selection-in-single-hilited-text? (selection)
  +      (let ((parent1 (%find-parent-hilited (@ selection anchor-node))))
  +        (and (not (@ selection is-collapsed))
  +             parent1
  +             (eq parent1 (%find-parent-hilited (@ selection focus-node))))))
   
       (def-component hilited-segment
           (psx
  
positive.code:             (if (focus-p (@ this props)) "hilited" "hilited-parent")
              :key id
              :id (strcat "hilited-text-" id)
              (when (prop text)
                (%make-segments (prop text)
                                (remove-if-not
  
negative.code:   (ps
  
      (setf tool-tip (@ (require "react-portal-tooltip") default))
      (setf rangy (require "rangy"))
  
      (defun focus-p (props?)
        (let ((tad (@ props? tree-address))
  