--- a/TextStream.st	Wed May 15 00:35:20 1996 +0200
+++ b/TextStream.st	Thu May 16 11:28:12 1996 +0200
@@ -130,6 +130,9 @@
 !
 
 emphasis:aSymbol
+    "change the emphasis; all followup elements are appended with
+     that emphasis in effect"
+
     position ~~ 1 ifTrue:[
         self closeRun.
     ].
@@ -139,12 +142,12 @@
      |s|
 
      s := TextStream on:String new.
-     s emphasis:#italic.
-     s nextPutAll:'hello'.
-     s emphasis:nil.
-     s space.
-     s emphasis:#bold.
-     s nextPutAll:'world'.
+     s emphasis:#italic;
+       nextPutAll:'hello';
+       emphasis:nil;
+       space;
+       emphasis:#bold;
+       nextPutAll:'world'.
      s contents
     "
 ! !
@@ -164,5 +167,5 @@
 !TextStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/TextStream.st,v 1.1 1996-05-14 16:48:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/TextStream.st,v 1.2 1996-05-16 09:28:12 cg Exp $'
 ! !