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:                                     (tm-result-end end-result)
                                      :attribute (tm-rule-name rule)
                                      nil)
                   (set-syntax-context (point-line point) nil)
                   (line-offset point 0 (tm-result-end end-result))
                   (return))
  
negative.code:                                     (line-length (point-line point))
                                      :attribute (tm-rule-name rule)
                                      t)
                   (alexandria:when-let (content-name (tm-region-content-name rule))
                     (line-add-property (point-line point)
                                        start2
                                        (line-length (point-line point))
                                        :attribute content-name
                                        t))
                   (set-syntax-context (point-line point) rule)
                   (line-end point)
                   (return))
  