From 619dfa2a2a19a8433424e830a21384c7b520866a Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 30 Nov 2021 12:53:54 -0800
Subject: [PATCH] Markdown reader:  don't allow `^` at beginning of link or
 image label.

This is reserved for footnotes.
Fixes a regression introduced by 0a93acf.

Closes #7723.
---
 src/Text/Pandoc/Readers/Markdown.hs | 3 +--
 test/command/7723.md                | 8 ++++++++
 2 files changed, 9 insertions(+), 2 deletions(-)
 create mode 100644 test/command/7723.md

diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index b72ab22e2..0d4592599 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -1775,8 +1775,7 @@ endline = try $ do
 -- a reference label for a link
 reference :: PandocMonad m => MarkdownParser m (F Inlines, Text)
 reference = do
-  -- guardDisabled Ext_footnotes <|> notFollowedBy' (string "[^")
-  -- guardDisabled Ext_citations <|> notFollowedBy' (string "[@")
+  guardDisabled Ext_footnotes <|> notFollowedBy' (string "[^")
   withRaw $ trimInlinesF <$> inlinesInBalancedBrackets
 
 parenthesizedChars :: PandocMonad m => MarkdownParser m Text
diff --git a/test/command/7723.md b/test/command/7723.md
new file mode 100644
index 000000000..f3229eb1e
--- /dev/null
+++ b/test/command/7723.md
@@ -0,0 +1,8 @@
+```
+% pandoc -t native
+Bug![^1]
+
+[^1]: Note.
+^D
+[ Para [ Str "Bug!" , Note [ Para [ Str "Note." ] ] ] ]
+```