@@ -591,7 +591,9 @@ inlineToHtml opts inline =
591 Nothing -> return
591 Nothing -> return
592 $ foldl (!) H.code (attrsToHtml opts attr)
592 $ foldl (!) H.code (attrsToHtml opts attr)
593 $ strToHtml str
593 $ strToHtml str
595+ modify $ \st -> st{ stHighlighting = True }
594− Just h -> return $ foldl (!) h $
596+ return $ foldl (!) h $
595 attrsToHtml opts (id',[],keyvals)
597 attrsToHtml opts (id',[],keyvals)
596 where (id',_,keyvals) = attr
598 where (id',_,keyvals) = attr
597 (Strikeout lst) -> inlineListToHtml opts lst >>=
599 (Strikeout lst) -> inlineListToHtml opts lst >>=