anchor.diff:                                 (prop opinions))
                                 (set-copy (@ this props)
                                           'hilited-text-id
  -                                        (strcat "hilited-text-" id))))))))
  +                                        (strcat "hilited-text-" id)))))))
  +      selection-change
  +      (lambda (ev)
  +        (say (is-selection-in-single-hilited-text? (chain rangy (get-selection))))))
   
       (defun %get-replies-count (opinions props)
         (let ((total 0))
  
positive.code:   (ps
  
      (setf tool-tip (@ (require "react-portal-tooltip") default))
  
      (defun focus-p (props?)
        (let ((tad (@ props? tree-address))
  
negative.code:       (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
  