anchor.diff:                        (tm-string "(\\*[^*]+\\*)|(\\*\\*[^*]+\\*\\*)")
                         (tm-string "(_[^_]+_)|(__[^_]+__)")
                         (tm-string "(`[^`]+`)|(``[^`]+``)")
  +                      ;; curved quotation marks
  +                      (tm-string "\"`[^`\"]+`\"")
  +                      (tm-string "'`[^`']+`'")
                         ;; section
                         (tm-function-name "={1,6} .+")
                         ;; unordered list
  
positive.code:                       (tm-builtin "^\\d\\. ")
                        ;; subscript and superscript
                        (tm-string "~[^~]+~")
                        (tm-string "\\^[^^]+\\^"))))
        (make-tmlanguage :patterns patterns))))
  
  (defvar *asciidoc-syntax-table*
  
negative.code:            (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
  