From bccfb1177f93c7cdf79d0f9dc2087866db16d053 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 20 Oct 2018 10:49:31 -0700
Subject: Man reader: support `\*[lq]`, `\*[rq]`.
---
src/Text/Pandoc/Readers/Man.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'src')
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"))
--
cgit v1.2.3