Support markup :body patterns
This commit is contained in:
parent
8e9a3b4bb5
commit
be707641f0
|
@ -110,11 +110,12 @@ This must not include any capturing groups."
|
|||
(length (plist-get pattern :start)))))
|
||||
patterns)))
|
||||
(body-rx
|
||||
(or (plist-get pattern :body)
|
||||
(rx-to-string
|
||||
`(seq (not (any space ,@confounding-start-characters))
|
||||
(optional
|
||||
(*? not-newline)
|
||||
(not space))))))
|
||||
(not space)))))))
|
||||
`((,(rx (regexp simple-comment-markup-pre-rx)
|
||||
(group (literal (plist-get pattern :start)))
|
||||
(group (regexp body-rx))
|
||||
|
|
Loading…
Reference in New Issue