diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-06-28 14:20:53 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-06-28 14:20:53 +0200 |
| commit | cd690d04015431e89feefa7f68e9609efab1f16b (patch) | |
| tree | ae649c5f7463541773d7811d83f092f6cf6840ec /src/Text | |
| parent | f5f84859230568ddafb2e7e23b5d9b3e98fdbba5 (diff) | |
| download | pandoc-cd690d04015431e89feefa7f68e9609efab1f16b.tar.gz | |
LaTeX writer: fixed detection of otherlangs.
We weren't recursing into inline contexts.
Closes #3770.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 5d505ed15..07ddddcb0 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -1245,9 +1245,9 @@ mbBraced x = if not (all isAlphaNum x) -- Extract a key from divs and spans extract :: String -> Block -> [String] extract key (Div attr _) = lookKey key attr -extract key (Plain ils) = concatMap (extractInline key) ils -extract key (Para ils) = concatMap (extractInline key) ils -extract key (Header _ _ ils) = concatMap (extractInline key) ils +extract key (Plain ils) = query (extractInline key) ils +extract key (Para ils) = query (extractInline key) ils +extract key (Header _ _ ils) = query (extractInline key) ils extract _ _ = [] -- Extract a key from spans |