@@ -1039,13 +1039,14 @@ str :: GenParser Char ParserState Inline
10391039str = do
10401040 result <- many1 strChar
10411041 state <- getState
1042+ let spacesToNbr = map (\c -> if c == ' ' then '\160' else c)
10421043 if stateSmart state
10431044 then case likelyAbbrev result of
10441045 [] -> return $ Str result
10451046 xs -> choice (map (\x ->
10461047 try (string x >> char ' ' >>
10471048 notFollowedBy spaceChar >>
1048− return (Str $ result ++ x ++ "\160"))) xs)
1049+ return (Str $ result ++ spacesToNbr x ++ "\160"))) xs)
10491050 <|> (return $ Str result)
10501051 else return $ Str result
10511052