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

...is not a link, bracketed span, or reference. See #9080.
jgm · Sep 14, 2023 · 30bef24 · 30bef24
1 parent 3ff206c
commit 30bef24
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
@@ -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)