Experimental change to charWidth in Pretty.

Hunch that this might help with #3526.

src/Text/Pandoc/Pretty.hs

@@ -511,6 +511,7 @@ doubleQuotes = inside (char '"') (char '"')
 -- | Returns width of a character in a monospace font:  0 for a combining
 -- character, 1 for a regular character, 2 for an East Asian wide character.
 charWidth :: Char -> Int
+charWidth '\r' = 0
 charWidth c =
   case c of
       _ | c <  '\x0300'                    -> 1