(FILECREATED " 7-Dec-87 13:22:47" {QV}<NOTECARDS>1.3KNEXT>RGPATCH069.;1
 1453   

      changes to:  (VARS RGPATCH069COMS)
		   (FNS NC.RevertTextCard))


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

(PRETTYCOMPRINT RGPATCH069COMS)

(RPAQQ RGPATCH069COMS
 ((* * rg 12/7/87 fixes bogus free variable in NC.RevertTextCard)
			 (* * changes to NCTEXTCARD)
			 (FNS NC.RevertTextCard)))
(* * rg 12/7/87 fixes bogus free variable in NC.RevertTextCard)


(* * changes to NCTEXTCARD)


(DEFINEQ

(NC.RevertTextCard

  [LAMBDA (Card)                                             (* Randy.Gobbel " 7-Dec-87 12:04")

    (
NC.GetNoteCard
 Card)
    (LET (TEditProcess (Window (
NC.FetchWindow
 Card)))
         (UNINTERRUPTABLY
             (
KILL-PROCESS-OF-TEDIT-WINDOW
 Window)
	     (
UNMARK-AS-WITHOUT-PROCESS
 Window))
         [
SETQ
 TEditProcess (
TEDIT
 (
NC.FetchSubstance
 Card)
				       Window NIL (
NC.MakeTEditPropsList
 Window (
NC.FileBoxP

									     Card T)
									   (fetch
 (Card NoteFile)
									      of
 Card]
         (until
 (
TEDIT-PROCESS-P
 TEditProcess) do
 (
BLOCK
)))
                                                             (* wait for process to establish itself so TEdit 

							     killer doesn't get confused)

    (
NC.MarkCardDirty
 Card T])
)
(PUTPROPS RGPATCH069 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (517 1372 (NC.RevertTextCard 527 . 1370)))))
STOP