Markdown reader: More accurate check that a normalCite...

...is not a link, bracketed span, or reference.

See #9080.
This commit is contained in:
John MacFarlane
2023-09-14 15:25:58 -07:00
parent 3ff206cc4b
commit 30bef24924
+4 -1
View File
@@ -2256,7 +2256,10 @@ normalCite = try $ do
citations <- citeList
spnl
char ']'
notFollowedBy (oneOf "{([") -- not a link or a bracketed span
-- not a link or a bracketed span
notFollowedBy (try (void source) <|>
(guardEnabled Ext_bracketed_spans *> void attributes) <|>
void reference)
return citations
suffix :: PandocMonad m => MarkdownParser m (F Inlines)