anchor.diff:            :on-key-press (@ this selection-change)
             (when (prop text)
               (%make-segments (prop text)
  -                            (remove-if-not
  -                             ;;FIXME: do what with broken excerpts?
  -                             ;; right now they just disappear?
  -                             (lambda (x) (has-found-excerpt-p (@ x 0)))
  -                             (prop opinions))
                               (set-copy (@ this props)
                                         'hilited-text-id
                                         (state id))))))
  
positive.code:              (create :type :selection
                       :range false :excerpt "" :offset 0))))))
  
      (defun %get-replies-count (opinions props)
        (let ((total 0))
          (dolist (op opinions)
            (incf total))
            ;(incf total (@ props warstats (@ op 0 id) replies-total)))
          total))
  
      (defun excerpt-reply-link (url excerpt)
  
negative.code:                               'hide-popup (@ props hide-popup)
                                :dispatch (@ props dispatch)
                                tree-address (@ props tree-address))))
                (cond ((< (@ common-data 'excerpt-opinions length) 1)
                         (collect
                             (psx (:plain-segment
                                   :... common-data))))
  