anchor.diff:                   :captures captures
                    :move-action move-action))
   
  -(defun make-tm-region (begin-matcher end-matcher &key name (patterns (make-tm-patterns)))
  +(defun make-tm-region (begin-matcher end-matcher
  +                       &key name content-name (patterns (make-tm-patterns)))
     (make-instance 'tm-region
                    :begin begin-matcher
                    :end end-matcher
                    :name name
  +                 :content-name content-name
                    :patterns patterns))
   
   (defun make-regex-matcher (regex)
  
positive.code:                                     (line-length (point-line point))
                                      :attribute (tm-rule-name rule)
                                      t)
                   (set-syntax-context (point-line point) rule)
                   (line-end point)
                   (return))
  
negative.code:               (set-syntax-context (point-line point) rule)
                (line-offset point 1))
          (set-syntax-context (point-line point) 'end-move-action)
          (alexandria:when-let ((attribute (tm-rule-name rule)))
            (put-text-property start end :attribute attribute))
          (cond (allow-multiline
                 (move-point point end))
  