(FILECREATED " 2-Feb-87 17:54:47" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH191.;1
 2162   

      changes to:  (VARS RHTPATCH191COMS))


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

(PRETTYCOMPRINT RHTPATCH191COMS)

(RPAQQ RHTPATCH191COMS
 ((* * Fixes the unreported bug whereby fileboxes were incorrectly getting 
			     ExtraTEditProps passed to OPENTEXTSTREAM.)
			  (* * Change to NCTEXTCARD)
			  (FNS NC.GetTextSubstance)))
(* * Fixes the unreported bug whereby fileboxes were incorrectly getting ExtraTEditProps 
passed to OPENTEXTSTREAM.)


(* * Change to NCTEXTCARD)


(DEFINEQ

(NC.GetTextSubstance

  (LAMBDA (Card Length Stream)                               (* rht: " 2-Feb-87 17:51")

                                                             (* Get a text stream from the database file)


          (* * fgh 11/13/85 Updated to handle Card objects.)




          (* * fgh 11/20/85 NoteCards now passes down start and end pointer as args.)




          (* * fgh 11/21/85 Now passed Length instead of start and end ptrs.)




          (* * rht 1/23/86: Now takes Stream as arg instead of computing from Card.)




          (* * rht 2/2/87: Fixed bug in the way NC.MakeTEditPropsList was being called.)



    (LET ((TempStream (
OPENSTREAM
 (
QUOTE
 {NODIRCORE})
				    (
QUOTE
 BOTH)
				    (
QUOTE
 NEW)))
	  TextStream StartPtr)

          (* * Copy text stream to a NODIRCORE file from the current location. Number of bytes copied should be Length minus 

	  the 4 bytes already read for OriginalLocation)



         (
COPYBYTES
 Stream TempStream (
SETQ
 StartPtr (
GETFILEPTR
 Stream))
		      (
PLUS
 StartPtr Length))

          (* * return an open textstream on the temp file)



         (
SETQ
 TextStream (
OPENTEXTSTREAM
 TempStream NIL NIL NIL (
NC.MakeTEditPropsList

						NIL
						(
NC.FileBoxP
 Card T)
						(fetch
 (Card NoteFile) of
 Card))))
         (
STREAMPROP
 TextStream (
QUOTE
 NoteCardObject)
		       Card)
     TextStream)))
)
(PUTPROPS RHTPATCH191 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (609 2080 (NC.GetTextSubstance 619 . 2078)))))
STOP