From 09b7df472dbc171e6130090dfec0f7b71d1d955e Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 9 Aug 2017 09:14:52 -0700
Subject: [PATCH] LaTeX reader: Use `label` instead of `data-label` for label
in caption.
See d441e656db576f266c4866e65ff9e4705d376381, #3639.
---
src/Text/Pandoc/Readers/LaTeX.hs | 2 +-
test/command/2118.md | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index e51f797af..0f0e71b93 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -1632,7 +1632,7 @@ setCaption = do
try $ spaces >> controlSeq "label" >> (Just <$> tok)
let ils' = case mblabel of
Just lab -> ils <> spanWith
- ("",[],[("data-label", stringify lab)]) mempty
+ ("",[],[("label", stringify lab)]) mempty
Nothing -> ils
updateState $ \st -> st{ sCaption = Just ils' }
return mempty
diff --git a/test/command/2118.md b/test/command/2118.md
index d640e2e2b..27b3723d3 100644
--- a/test/command/2118.md
+++ b/test/command/2118.md
@@ -7,5 +7,5 @@
\label{fig:setminus}
\end{figure}
^D
-[Para [Image ("",[],[("width","80%")]) [Str "Set",Space,Str "subtraction",Span ("",[],[("data-label","fig:setminus")]) []] ("setminus.png","fig:")]]
+[Para [Image ("",[],[("width","80%")]) [Str "Set",Space,Str "subtraction",Span ("",[],[("label","fig:setminus")]) []] ("setminus.png","fig:")]]
```