@@ -726,11 +726,13 @@ emph = do
726726 return (Emph (normalizeSpaces result))
727727
728728strong = do
729− result <- choice [ (enclosed (try (count 2 (char emphStart)))
730− (try (count 2 (char emphEnd))) inline),
731− (enclosed (try (count 2 (char emphStartAlt)))
732− (try (count 2 (char emphEndAlt))) inline) ]
729+ result <- (enclosed strongStart strongEnd inline) <|>
730+ (enclosed strongStartAlt strongEndAlt inline)
733731 return (Strong (normalizeSpaces result))
732+ where strongStart = count 2 (char emphStart)
733+ strongEnd = try strongStart
734+ strongStartAlt = count 2 (char emphStartAlt)
735+ strongEndAlt = try strongStartAlt
734736
735737smartPunctuation = do
736738 failUnlessSmart
@@ -829,8 +831,10 @@ entity = do
829831 ent <- characterEntity
830832 return $ Str [ent]
831833
834+strChar = noneOf (specialChars ++ spaceChars ++ endLineChars)
835+
832836str = do
833− result <- many1 ((noneOf (specialChars ++ spaceChars ++ endLineChars)))
837+ result <- many1 strChar
834838 return (Str result)
835839
836840-- an endline character that can be treated as a space, not a structural break