(FILECREATED "15-Jan-88 11:09:48" ("compiled on " {QV}<NOTECARDS>1.3KNEXT>PMIPATCH077.;1) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 8-Sep-87 ..." dated " 8-Sep-87 19:13:09") (FILECREATED "15-Jan-88 11:09:33" {QV}<NOTECARDS>1.3KNEXT>PMIPATCH077.;1 1593 changes to: (VARS PMIPATCH077COMS)) NCP.CoerceToInterestedWindow D1 (I 0 WinOrCardOrNoteFile) @ (3 NC.CoerceToInterestedWindow) NIL () NCP.NewCardP D1 (I 0 Card) @ (3 NC.FetchNewCardFlg) NIL () NCP.NoteFileAddProp D1 (I 2 NEWVALUE I 1 PROP I 0 NoteFile) @AB (5 NC.NoteFileAddProp) NIL () (PRETTYCOMPRINT PMIPATCH077COMS) (RPAQQ PMIPATCH077COMS ((* * pmi 1/15/88: A few programmer's interface functions that I needed for History card hacking, and thought would be of general interest:) (* * New for NCPROGINT) (FNS NCP.CoerceToInterestedWindow NCP.NewCardP NCP.NoteFileAddProp))) (PUTPROPS PMIPATCH077 COPYRIGHT ("Xerox Corporation" 1988)) NIL