@@ -1610,7 +1610,7 @@ isBlockCommand s =
16101610
16111611treatAsBlock :: Set.Set Text
16121612treatAsBlock = Set.fromList
1613− [ "let", "def"
1613+ [ "let", "def", "DeclareRobustCommand"
16141614 , "newcommand", "renewcommand"
16151615 , "newenvironment", "renewenvironment"
16161616 , "providecommand", "provideenvironment"
@@ -1838,7 +1838,8 @@ newcommand = do
18381838 pos <- getPosition
18391839 Tok _ (CtrlSeq mtype) _ <- controlSeq "newcommand" <|>
18401840 controlSeq "renewcommand" <|>
1841− controlSeq "providecommand"
1841+ controlSeq "providecommand" <|>
1842+ controlSeq "DeclareRobustCommand"
18421843 optional $ symbol '*'
18431844 Tok _ (CtrlSeq name) txt <- withVerbatimMode $ anyControlSeq <|>
18441845 (symbol '{' *> spaces *> anyControlSeq <* spaces <* symbol '}')