anchor.diff:             (tm-string (pattern)
                (make-tm-match pattern :name 'syntax-string-attribute)))
       (let* ((patterns (make-tm-patterns
  +                      ;; block
  +                      (make-tm-region '(:sequence "----")
  +                                      '(:sequence "----")
  +                                      :name 'syntax-comment-attribute)
                         ;; line breaks
                         (tm-constant "(\\+)|(\\[%hardbreaks\\])")
                         ;; lead style
  
positive.code:                       (tm-builtin "^\\d\\. ")
                        ;; subscript and superscript
                        (tm-string "~[^~]+~")
                        (tm-string "\\^[^^]+\\^"))))
        (make-tmlanguage :patterns patterns))))
  
  (defvar *asciidoc-syntax-table*
  
negative.code:                       (tm-string "(\\*[^*]+\\*)|(\\*\\*[^*]+\\*\\*)")
                        (tm-string "(_[^_]+_)|(__[^_]+__)")
                        (tm-string "(`[^`]+`)|(``[^`]+``)")
                        ;; curved quotation marks
                        (tm-string "\"`[^`\"]+`\"")
                        (tm-string "'`[^`']+`'")
                        ;; section
                        (tm-function-name "={1,6} .+")
                        ;; unordered list
  