diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX/Parsing.hs | 6 | ||||
| -rw-r--r-- | test/command/6796.md | 16 |
2 files changed, 21 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX/Parsing.hs b/src/Text/Pandoc/Readers/LaTeX/Parsing.hs index 6d6d4f3ec..09f332bb8 100644 --- a/src/Text/Pandoc/Readers/LaTeX/Parsing.hs +++ b/src/Text/Pandoc/Readers/LaTeX/Parsing.hs @@ -484,7 +484,11 @@ doMacros' n inp = Nothing -> mzero Just (Macro expansionPoint argspecs optarg newtoks) -> do let getargs' = do - args <- case optarg of + args <- + (case expansionPoint of + ExpandWhenUsed -> withVerbatimMode + ExpandWhenDefined -> id) + $ case optarg of Nothing -> getargs M.empty argspecs Just o -> do x <- option o bracketedToks diff --git a/test/command/6796.md b/test/command/6796.md new file mode 100644 index 000000000..f51205a81 --- /dev/null +++ b/test/command/6796.md @@ -0,0 +1,16 @@ +``` +% pandoc -f latex -t markdown +\newcommand{\cL}{\mathcal{L}} +\newcommand{\til}[1]{\tilde{#1}} + +$$\til\cL$$ + +\newcommand{\mc}[1]{\mathcal{#1}} +\newcommand{\dL}{\mc{L}} + +$$\til\dL$$ +^D +$$\tilde{\mathcal{L}}$$ + +$$\tilde{\mathcal{L}}$$ +``` |