anchor.diff:     (end
       :initarg :end
       :reader tm-region-end)
  +   (content-name
  +    :initarg :content-name
  +    :initform nil
  +    :reader tm-region-content-name)
      (patterns
       :initarg :patterns
       :initform nil
  
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:                                     (tm-result-end end-result)
                                      :attribute (tm-rule-name rule)
                                      nil)
                   (alexandria:when-let (content-name (tm-region-content-name rule))
                     (line-add-property (point-line point)
                                        start1
                                        (tm-result-start end-result)
                                        :attribute content-name
                                        nil))
                   (set-syntax-context (point-line point) nil)
                   (line-offset point 0 (tm-result-end end-result))
                   (return))
  