anchor.diff:  (defun tm-apply-match (rule point result)
     (let ((start (tm-result-start result))
           (end (tm-result-end result))
  -        (reg-starts (tm-result-reg-starts result))
  -        (reg-ends (tm-result-reg-ends result))
           (captures (tm-match-captures rule)))
       (line-add-property (point-line point) start end :attribute (tm-rule-name rule) nil)
  -    (when (and captures (< 0 (length captures)))
  -      (alexandria:when-let (cap0 (aref captures 0))
  -        (tm-apply-match-in-capture point cap0 start end))
  -      (loop :for reg-start-index :from 0 :below (length reg-starts)
  -            :for reg-end-index :from 0 :below (length reg-ends)
  -            :for captures-index :from 1 :below (length captures)
  -            :for reg-start := (aref reg-starts reg-start-index)
  -            :for reg-end := (aref reg-ends reg-end-index)
  -            :for cap := (aref captures captures-index)
  -            :do (when cap
  -                  (tm-apply-match-in-capture point cap reg-start reg-end))))
  +    (tm-apply-captures point result captures)
       (cond ((tm-match-move-action rule)
              (line-offset point 0 start)
              (or (tm-move-action rule point nil)
  
positive.code:                   (setf best (tm-get-best-result best result))))
      best))
  
  (defun tm-apply-content-name (rule point start end contp)
    (alexandria:when-let (content-name (tm-region-content-name rule))
      (line-add-property (point-line point) start end
  
negative.code:     (setf (tm-result-option begin-result)
            (ppcre:create-scanner end-regex))))
  
  (defun tm-apply-begin-captures (rule point begin-result start-line-p)
    (when start-line-p
      (let ((captures (tm-region-begin-captures rule)))
        (tm-apply-captures point begin-result captures))))
  
  (defun tm-apply-end-captures (rule point end-result)
    (let ((captures (tm-region-end-captures rule)))
      (tm-apply-captures point end-result captures)))
  
  (defun tm-apply-region (rule point begin-result end start-line-p)
    (when start-line-p
      (tm-init-region-end-regex rule begin-result (line-string point)))
    (let ((start1 (if start-line-p (tm-result-start begin-result) 0))
          (start2 (if start-line-p (tm-result-end begin-result) 0)))
      (let ((end-result
  