diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs index 7c54944e3..1f8e3bf1e 100644 --- a/src/Text/Pandoc/Readers/Man.hs +++ b/src/Text/Pandoc/Readers/Man.hs @@ -186,8 +186,8 @@ escapeLexer = do choice [ ("\xae" <$ char 'R') , ("" <$ char 'S') -- switch back to default font size - , ("\x201c" <$ try (string "(lq")) - , ("\x201d" <$ try (string "(rq")) + , ("\x201c" <$ try (string "(lq") <|> try (string "[lq]")) + , ("\x201d" <$ try (string "(rq") <|> try (string "[rq]")) , ("" <$ try (string "(HF" >> modifyState (\r -> r {fontKind = singleton Bold}))) , ("\x2122" <$ try (string "(Tm")) |