anchor.diff:                          (if (find-tree :back-reference end)
                               end
                               (ppcre:create-scanner end)))
  -                 :begin-captures begin-captures
  -                 :end-captures end-captures
  +                 :begin-captures (or begin-captures captures)
  +                 :end-captures (or end-captures captures)
                    :name name
                    :content-name content-name
                    :patterns patterns))
  
positive.code:                  (line-add-property (point-line point) start1 (tm-result-end end-result)
                                      :attribute (tm-rule-name rule)
                                      nil)
                   (tm-apply-content-name rule point start1 (tm-result-start end-result) nil)
                   (set-syntax-context (point-line point) nil)
                   (line-offset point 0 (tm-result-end end-result))
  
negative.code: (defun tm-apply-match (rule point result)
    (let ((start (tm-result-start result))
          (end (tm-result-end result))
          (captures (tm-match-captures rule)))
      (line-add-property (point-line point) start end :attribute (tm-rule-name rule) nil)
      (tm-apply-captures point result captures)
      (cond ((tm-match-move-action rule)
             (line-offset point 0 start)
             (or (tm-move-action rule point nil)
  