(FILECREATED "16-Mar-87 17:28:43" {QV}<NOTECARDS>1.3K>NEXT>PMIPATCH021.;1
 1488   

      changes to:  (VARS PMIPATCH021COMS)
		   (FNS NC.AppendStringToStream))


(* Copyright (c) 1987 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT PMIPATCH021COMS)

(RPAQQ PMIPATCH021COMS
 ((* * Fixes bug 465: NC.AppendStringToStream filed in wrong place. Was in 
			     NCDOCUMENTCARD, should be placed in NCUTILITIES.)
			  (* * This is only here to make sure people have it loaded.)
			  (FNS NC.AppendStringToStream)))
(* * Fixes bug 465: NC.AppendStringToStream filed in wrong place. Was in NCDOCUMENTCARD, 
should be placed in NCUTILITIES.)


(* * This is only here to make sure people have it loaded.)


(DEFINEQ

(NC.AppendStringToStream

  (LAMBDA (Stream String BoldFlg)                            (* rht: "26-Jun-85 12:17")


          (* * Add the String to the end of the tedit Stream.)




          (* * rht 11/16/84: Now calls TEDIT.LOOKS in any case, bold or no.)




          (* * rht 6/26/85: Took out call to TEDIT.LOOKS and just stuck boldifying into call to TEDIT.INSERT.)



    (
TEDIT.INSERT
 Stream String (
ADD1
 (fetch
 (
TEXTOBJ
 TEXTLEN) of
 (
TEXTOBJ
 Stream)))
		    (
FONTCOPY
 (
TEXTPROP
 Stream (
QUOTE
 FONT))
				(
QUOTE
 FACE)
				(
COND

				  (BoldFlg (
QUOTE
 BRR))
				  (T (
QUOTE
 MRR))))
		    T)))
)
(PUTPROPS PMIPATCH021 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (728 1406 (NC.AppendStringToStream 738 . 1404)))))
STOP