@@ -125,7 +125,7 @@ toSmallCaps opts (c:cs)
125 "\\s0" ++ toSmallCaps opts rest
125 "\\s0" ++ toSmallCaps opts rest
126 | isUpper c = let (uppers,rest) = span isUpper (c:cs)
126 | isUpper c = let (uppers,rest) = span isUpper (c:cs)
127 in escString opts uppers ++ toSmallCaps opts rest
127 in escString opts uppers ++ toSmallCaps opts rest
128− | otherwise = escapeChar (writerPreferAscii opts) c ++ toSmallCaps opts cs
128+ | otherwise = escapeString (writerPreferAscii opts) [c] ++ toSmallCaps opts cs
130-- We split inline lists into sentences, and print one sentence per
130-- We split inline lists into sentences, and print one sentence per
131-- line. groff/troff treats the line-ending period differently.
131-- line. groff/troff treats the line-ending period differently.