@@ -376,7 +376,6 @@ lexMacro = do
376376 "ie" -> lexConditional "ie"
377377 "if" -> lexConditional "if"
378378 "el" -> lexConditional "el"
379− "TS" -> lexTable pos
380379
381380 _ -> do
382381 args <- lexArgs
@@ -384,6 +383,7 @@ lexMacro = do
384383 "" -> return mempty
385384 "\\\"" -> return mempty
386385 "\\#" -> return mempty
386+ "TS" -> lexTable pos
387387 "de" -> lexMacroDef args
388388 "de1" -> lexMacroDef args
389389 "ds" -> lexStringDef args
@@ -458,8 +458,7 @@ tableOption = do
458458 char '('
459459 manyTill anyChar (char ')')
460460 skipMany spacetab
461− optional (char ',')
462− skipMany spacetab
461+ optional (char ',' >> skipMany spacetab)
463462 return (k,v)
464463
465464tableFormatSpec :: PandocMonad m => RoffLexer m [[CellFormat]]