No comment. Sorry.
applyAttribute:beginningAt:
nextPutAll:
Optimized access to get around Text at:Put: overhead
withAttribute:do:
No-op here is overriden in TextStream for font emphasis
withAttributes:do: