diff options
-rw-r--r-- | src/Text/Pandoc/Shared.hs | 2 | ||||
-rw-r--r-- | test/command/5797.md | 20 |
2 files changed, 21 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 765bc0826..c5183aacb 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -698,7 +698,7 @@ underlineSpan = B.spanWith ("", ["underline"], []) -- | Set of HTML elements that are represented as Span with a class equal as -- the element tag itself. htmlSpanLikeElements :: Set.Set T.Text -htmlSpanLikeElements = Set.fromList [T.pack "kbd"] +htmlSpanLikeElements = Set.fromList [T.pack "kbd", T.pack "mark"] -- | Returns the first sentence in a list of inlines, and the rest. breakSentence :: [Inline] -> ([Inline], [Inline]) diff --git a/test/command/5797.md b/test/command/5797.md new file mode 100644 index 000000000..0509a341c --- /dev/null +++ b/test/command/5797.md @@ -0,0 +1,20 @@ +``` +% pandoc -f html -t html +<mark>Ctrl-C</mark> +^D +<mark>Ctrl-C</mark> +``` + +``` +% pandoc -f html -t native +<mark>Ctrl-C</mark> +^D +[Plain [Span ("",["mark"],[]) [Str "Ctrl-C"]]] +``` + +``` +% pandoc -f native -t html +[Plain [Span ("",["mark"],[]) [Str "Ctrl-C"]]] +^D +<mark>Ctrl-C</mark> +``` |