@@ -538,7 +538,7 @@ inNote ils =
538538inlineCommand' :: PandocMonad m => LP m Inlines
539539inlineCommand' = try $ do
540540 Tok _ (CtrlSeq name) cmd <- anyControlSeq
541− guard $ name /= "begin" && name /= "end"
541+ guard $ name /= "begin" && name /= "end" && name /= "and"
542542 star <- option "" ("*" <$ symbol '*' <* sp)
543543 overlay <- option "" overlaySpecification
544544 let name' = name <> star <> overlay
@@ -1275,10 +1275,7 @@ addMeta field val = updateState $ \st ->
12751275authors :: PandocMonad m => LP m ()
12761276authors = try $ do
12771277 bgroup
1278− let oneAuthor = mconcat <$>
1279− many1 (notFollowedBy' (controlSeq "and") >>
1280− (inline <|> mempty <$ blockCommand))
1281− -- skip e.g. \vspace{10pt}
1278+ let oneAuthor = blocksToInlines' . B.toList . mconcat <$> many1 block
12821279 auths <- sepBy oneAuthor (controlSeq "and")
12831280 egroup
12841281 addMeta "author" (map trimInlines auths)
@@ -1468,7 +1465,7 @@ section (ident, classes, kvs) lvl = do
14681465blockCommand :: PandocMonad m => LP m Blocks
14691466blockCommand = try $ do
14701467 Tok _ (CtrlSeq name) txt <- anyControlSeq
1471− guard $ name /= "begin" && name /= "end"
1468+ guard $ name /= "begin" && name /= "end" && name /= "and"
14721469 star <- option "" ("*" <$ symbol '*' <* sp)
14731470 let name' = name <> star
14741471 let names = ordNub [name', name]