LaTeX reader: more careful placement of withVerbatimMode.

for macros

src/Text/Pandoc/Readers/LaTeX.hs

@@ -1541,8 +1541,9 @@ newcommand = do
                              controlSeq "renewcommand" <|>
                              controlSeq "providecommand" <|>
                              controlSeq "DeclareRobustCommand"
-  optional $ symbol '*'
+  Tok _ (CtrlSeq name) txt <- withVerbatimMode $ do
-  Tok _ (CtrlSeq name) txt <- withVerbatimMode $ anyControlSeq <|>
+    optional (symbol '*')
+    anyControlSeq <|>
       (symbol '{' *> spaces *> anyControlSeq <* spaces <* symbol '}')
   spaces
   numargs <- option 0 $ try bracketedNum
@@ -1564,18 +1565,19 @@ newenvironment = do
   Tok _ (CtrlSeq mtype) _ <- controlSeq "newenvironment" <|>
                              controlSeq "renewenvironment" <|>
                              controlSeq "provideenvironment"
+  name <- withVerbatimMode $ do
     optional $ symbol '*'
     spaces
-  name <- untokenize <$> braced
+    untokenize <$> braced
+  numargs <- withVerbatimMode $ do
     spaces
-  numargs <- option 0 $ try bracketedNum
+    option 0 $ try bracketedNum
   let argspecs = map (\i -> ArgNum i) [1..numargs]
+  optarg <- withVerbatimMode $ do
     spaces
-  optarg <- option Nothing $ Just <$> try bracketedToks
+    option Nothing $ Just <$> try bracketedToks
-  spaces
+  startcontents <- withVerbatimMode $ spaces >> bracedOrToken
-  startcontents <- withVerbatimMode bracedOrToken
+  endcontents <- withVerbatimMode $ spaces >> bracedOrToken
-  spaces
-  endcontents <- withVerbatimMode bracedOrToken
   when (mtype == "newenvironment") $ do
     macros <- sMacros <$> getState
     case M.lookup name macros of