From cf57a8344a13fcdd67a94a08b3edc427be77dc2e Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 11 Jul 2022 23:58:13 +0200
Subject: Fix roff ms syntax highlighting definitions.

Begin each string definition with `\&`.
Closes #8175. Thanks to Branden Robinson.
---
 src/Text/Pandoc/Writers/Ms.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs
index c5fdf30ed..28b2c438c 100644
--- a/src/Text/Pandoc/Writers/Ms.hs
+++ b/src/Text/Pandoc/Writers/Ms.hs
@@ -578,7 +578,7 @@ hexColor (RGB r g b) = T.pack $ printf "%02x%02x%02x" r g b
 
 toMacro :: Style -> TokenType -> Doc Text
 toMacro sty toktype =
-  nowrap (literal ".ds " <> literal (tshow toktype) <> literal " " <>
+  nowrap (literal ".ds " <> literal (tshow toktype) <> literal " \\&" <>
             setbg <> setcolor <> setfont <>
             literal "\\\\$1" <>
             resetfont <> resetcolor <> resetbg)
-- 
cgit v1.2.3