diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2022-01-05 14:48:19 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2022-01-05 14:48:19 -0800 |
| commit | ea745822887bd91b34bd808d3037e3da8009a18e (patch) | |
| tree | 88bb5f45f4680157fd9184839746aea4cdbfebd5 /src/Text | |
| parent | 73e429dccbca504db7e08bd0f345597d2067e09a (diff) | |
AsciiDoc writer: improve detection of intraword emphasis.
Closes #7803.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/AsciiDoc.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/AsciiDoc.hs b/src/Text/Pandoc/Writers/AsciiDoc.hs index 99c353c82..378d512b6 100644 --- a/src/Text/Pandoc/Writers/AsciiDoc.hs +++ b/src/Text/Pandoc/Writers/AsciiDoc.hs @@ -454,7 +454,7 @@ inlineListToAsciiDoc opts lst = do _ -> False isSpacy Start (Str xs) | Just (c, _) <- T.uncons xs = isPunctuation c || isSpace c - isSpacy _ _ = False + isSpacy _ _ = True setIntraword :: PandocMonad m => Bool -> ADW m () setIntraword b = modify $ \st -> st{ intraword = b } |