(FILECREATED "14-Jul-85 17:09:28" ("compiled on " {ERIS}TEDITHISTORY.;3) "14-Jul-85 12:50:16" tcompl'd in "INTERLISP-D 14-Jul-85 ..." dated "14-Jul-85 13:05:00") (FILECREATED "14-Jun-85 10:21:09" {ERIS}TEDITHISTORY.;3 26586 changes to: (FNS TEDIT.REDO.INSERTION \TEDIT.HISTORYADD TEDIT.UNDO TEDIT.UNDO.INSERTION TEDIT.UNDO.DELETION TEDIT.REDO TEDIT.UNDO.MOVE TEDIT.UNDO.REPLACE TEDIT.REDO.REPLACE TEDIT.REDO.MOVE) previous date: "24-Apr-85 18:54:08" {ERIS}TEDITHISTORY.;1) \TEDIT.HISTORYADD D1 (L (1 EVENT 0 TEXTOBJ)) @AHANIL (3 TEXTOBJ) () TEDIT.UNDOA0001 D1 (NAME ERRORSET F 0 EVENT F 1 TEXTOBJ F 2 LEN F 3 CH# F 4 FIRSTPIECE F 5 UNDOFN F 6 RESETVARSLST F 7 SEL F 10Q RESETY) g` hhVc W PdgdgdgQPRST dgQPRST |dgQPRST jdgQPRST XdgQPRST FdgQPRST 4dgQo"gQoP`c QoP i Whi cic QPRSTlU(315Q \SHOWSEL 305Q TEDIT.PROMPTPRINT 301Q CONCAT 221Q TEDIT.UNDO.REPLACE 177Q TEDIT.UNDO.MOVE 155Q TEDIT.UNDO.PARALOOKS 133Q TEDIT.UNDO.LOOKS 111Q TEDIT.UNDO.DELETION 66Q TEDIT.UNDO.INSERTION 27Q \SHOWSEL 10Q CURSOR) (262Q TEDIT.HISTORY.TYPELST 244Q Put 227Q Get 205Q Replace 163Q Move 141Q ParaLooks 117Q Looks 75Q Delete 52Q Include 44Q Copy 36Q Insert 5 WAITINGCURSOR 2 CURSOR) ( 274Q "UNDO not implemented for " 253Q "You can't undo a Put." 237Q "You can't UNDO a GET.") TEDIT.UNDO D1 (P 7 RESETZ P 6 RESETY P 5 LISPXHIST P 4 FIRSTPIECE P 3 LEN P 2 CH# P 1 EVENT P 0 SEL I 0 TEXTOBJ F 10Q LISPXHIST F 11Q RESETVARSLST) V@A@HY @oi hIIW!Wog hg_ O(120Q ERROR! 111Q RESETRESTORE 76Q TEDIT.UNDOA0001 32Q TEDIT.PROMPTPRINT) (104Q ERROR 73Q INTERNAL 14Q TEXTOBJ 3 TEXTOBJ) ( 70Q (TEDIT.UNDOA0001) 26Q "Nothing to UNDO.") TEDIT.UNDO.INSERTION D1 (P 2 TL P 1 DELETEFN P 0 OBJ I 4 FIRSTPIECE I 3 CH# I 2 LEN I 1 EVENT I 0 TEXTOBJ)  @m@jjdhjBJODX!D@ JDغDbg YH@ h@.lI@@B@@CdB@ @ @g@@ Agh(256Q \FIXSEL 226Q TEDIT.UPDATE.SCREEN 222Q \FIXDLINES 135Q \INSUREWINDOW 117Q IMAGEOBJPROP 64Q \DELETEPIECE) (262Q Delete 250Q TEXTOBJ 242Q LEFT 237Q SELECTION 232Q TEXTOBJ 207Q TEXTOBJ 201Q TEXTOBJ 167Q TEXTOBJ 163Q TEXTOBJ 144Q TEXTOBJ 127Q TEXTOBJ 114Q WHENDELETEDFN 102Q PIECE 72Q PIECE 57Q TEXTOBJ 45Q PIECE 16Q TEXTOBJ 6 TEXTOBJ) () TEDIT.UNDO.DELETION D1 (P 13Q TL P 10Q INSERTFN P 7 OBJECT P 6 INSPC P 5 NEWPIECE P 4 OTEXTLEN P 3 SEL P 2 PCTB P 1 NPC P 0 INSPC# I 4 FIRSTPIECE I 3 CH# I 2 LEN I 1 EVENT I 0 TEXTOBJ) : C@ D@@@e @m@jjdhCJHH#JHk_OOC@H HkԸJHk_OO`D ]AMj BORMN@ M_#OD_IbI`D g _O@ h@ lO@@B@KCBL @ KCKCB KB KAKg K@ Agh(461Q \FIXSEL 454Q \TEDIT.SET.SEL.LOOKS 405Q TEDIT.UPDATE.SCREEN 401Q \FIXILINES 340Q TEXTSTREAM 333Q \TEDIT.PRIMARYW 321Q IMAGEOBJPROP 310Q NCREATE2 237Q \INSERTPIECE 207Q NCREATE2 144Q \SPLITPIECE 11Q \CHTOPCNO) (465Q Insert 451Q NORMAL 440Q SELECTION 431Q SELECTION 420Q SELECTION 411Q SELECTION 362Q TEXTOBJ 356Q TEXTOBJ 316Q WHENINSERTEDFN 304Q PIECETYPE# 276Q PIECE 260Q PIECE 244Q PIECE 203Q PIECETYPE# 165Q ARRAYP 124Q ARRAYP 77Q ARRAYP 60Q TEXTOBJ 50Q TEXTOBJ 37Q TEXTOBJ 31Q TEXTOBJ 23Q TEXTOBJ 15Q PIECE 4 TEXTOBJ) () TEDIT.REDOA0002A0006 D1 (NAME ERRORSET F 0 TEXTOBJ F 1 SEL F 2 EVENT F 3 CH F 4 RESETVARSLST F 5 RESETY) g` hhTcPoi Pc PR cUPo QSQSR  QR  QgQP P Qhi Po c i(223Q TEDIT.PROMPTPRINT 212Q \SHOWSEL 203Q TEDIT.NORMALIZECARET 176Q \FIXSEL 154Q NCHARS 131Q NCHARS 100Q TEDIT.PROMPTPRINT 64Q TEDIT.FIND 47Q \SHOWSEL 33Q TEDIT.PROMPTPRINT 10Q CURSOR) (166Q RIGHT 163Q SELECTION 141Q SELECTION 115Q SELECTION 105Q SELECTION 40Q TEXTOBJ 5 WAITINGCURSOR 2 CURSOR) ( 220Q "[Not found]" 75Q "done." 27Q "Searching...") TEDIT.REDOA0002 D1 (NAME ERRORSET L (0 NIL) P 3 RESETZ P 2 RESETY P 1 LISPXHIST F 4 SEL F 5 TEXTOBJ F 6 EVENT F 7 RESETVARSLST F 10Q RESETY F 11Q LISPXHIST) g` hhWcT Vdgdgdg6UVTdgTgT kHHk BdgTU 3dgUV $dg6UVTdgTgT kHHk dg6UVTdgTgT kHHk dg0W!Wog hg[ KUjxdgdg@UVdTdgTgT kHHkV -dgUogUoUoVo i Thi ci(647Q \SHOWSEL 640Q TEDIT.PROMPTPRINT 634Q CONCAT 563Q TEDIT.REDO.MOVE 436Q ERROR! 430Q RESETRESTORE 416Q TEDIT.REDOA0002A0006 362Q TEDIT.REDO.PARALOOKS 267Q TEDIT.REDO.LOOKS 174Q TEDIT.REDO.REPLACE 155Q \TEDIT.DELETE 136Q TEDIT.REDO.INSERTION 27Q \SHOWSEL 10Q CURSOR) (606Q Put 571Q Get 534Q SELECTION 525Q RIGHT 517Q SELECTION 510Q LEFT 502Q SELECTION 464Q ReplaceMove 456Q Move 444Q TEXTOBJ 424Q ERROR 413Q INTERNAL 371Q Find 342Q SELECTION 333Q RIGHT 325Q SELECTION 316Q LEFT 310Q SELECTION 276Q ParaLooks 247Q SELECTION 240Q RIGHT 232Q SELECTION 223Q LEFT 215Q SELECTION 203Q Looks 164Q Replace 145Q Delete 116Q SELECTION 107Q RIGHT 101Q SELECTION 72Q LEFT 64Q SELECTION 52Q Include 44Q Copy 36Q Insert 5 WAITINGCURSOR 2 CURSOR) ( 631Q " isn't implemented." 623Q "REDO of the action " 615Q "You can't REDO a PUT." 601Q "You can't REDO a GET." 410Q (TEDIT.REDOA0002A0006)) TEDIT.REDO D1 (P 6 RESETZ P 5 RESETY P 4 LISPXHIST P 2 CH P 1 EVENT P 0 SEL I 0 TEXTOBJ F 7 LISPXHIST F 10Q RESETVARSLST) W@1@HY;H [j0KK &W!Wog hg^ N@oi h(123Q TEDIT.PROMPTPRINT 107Q ERROR! 101Q RESETRESTORE 67Q TEDIT.REDOA0002 44Q \FZEROP) (75Q ERROR 64Q INTERNAL 25Q SELECTION 14Q TEXTOBJ 3 TEXTOBJ) ( 117Q "Nothing to REDO." 61Q (TEDIT.REDOA0002)) TEDIT.REDO.INSERTION D1 (P 14Q TL P 12Q COPYFN P 11Q OBJ P 10Q NPC P 7 INSPC# P 6 INSPC P 5 OTEXTLEN P 4 FIRSTPIECE P 3 LEN P 2 PCTB P 1 SEL I 2 CH# I 1 EVENT I 0 TEXTOBJ)  @@AA`H dk@e AL@jjdhL_BJ _JOk_OO^BJOOjNNB@O Ol_^j KOL_4LN@ OL_`O dkOO_g _7O@.@.lO_g@oi g LOOLO Og _tO@ @.@.lOP@@K@IBKM @ IBIBK IK Ig I@ Agh(627Q \FIXSEL 622Q \TEDIT.SET.SEL.LOOKS 564Q TEDIT.UPDATE.SCREEN 560Q \FIXILINES 500Q \INSUREWINDOW 456Q IMAGEOBJPROP 443Q COPY 415Q RETFROM 406Q TEDIT.PROMPTPRINT 335Q IMAGEOBJPROP 300Q NCREATE2 253Q \INSERTPIECE 206Q \SPLITPIECE 121Q \CHTOPCNO 37Q NCREATE2) (633Q Insert 617Q NORMAL 610Q SELECTION 577Q SELECTION 570Q SELECTION 541Q TEXTOBJ 535Q TEXTOBJ 514Q TEXTOBJ 506Q TEXTOBJ 472Q TEXTOBJ 453Q WHENCOPIEDFN 436Q PIECE 423Q PIECE 412Q TEDIT.COPY 372Q DON'T 355Q TEXTOBJ 347Q TEXTOBJ 332Q COPYFN 320Q PIECE 273Q PIECETYPE# 262Q PIECE 237Q PIECE 156Q ARRAYP 136Q ARRAYP 110Q PIECE 72Q TEXTOBJ 52Q TEXTOBJ 33Q PIECETYPE# 11Q TEXTOBJ 3 TEXTOBJ) ( 402Q "COPY of this object not allowed.") TEDIT.UNDO.MOVE D1 (P 5 TOTEXTLEN P 4 TOSEL P 3 CH# P 2 SOURCECH# P 1 FROMOBJ P 0 TOOBJ I 4 FIRSTPIECE I 3 CH# I 2 LEN I 1 EVENT I 0 TEXTOBJ) AAAA$H I KdBBI IIKdBI IIK KIj IgH]HJAB HdJBM HHBI IHH HH II I` AgAHAIAKAJHhi Ihi h(432Q \SHOWSEL 417Q \SHOWSEL 336Q \COPYSEL 322Q \FIXSEL 310Q \FIXSEL 275Q TEDIT.UPDATE.SCREEN 265Q TEDIT.UPDATE.SCREEN 243Q \FIXILINES 225Q \TEDIT.INSERT.PIECES 117Q \FIXDLINES 72Q \DELETECH 61Q \SHOWSEL 50Q \SHOWSEL) (423Q TEXTOBJ 410Q TEXTOBJ 342Q Move 333Q TEDIT.SELECTION 326Q TEXTOBJ 314Q TEXTOBJ 302Q TEXTOBJ 253Q TEXTOBJ 247Q TEXTOBJ 232Q TEXTOBJ 206Q TEXTOBJ 200Q LEFT 175Q SELECTION 170Q TEXTOBJ 161Q SELECTION 154Q TEXTOBJ 141Q SELECTION 134Q TEXTOBJ 130Q SELECTION 123Q TEXTOBJ 104Q TEXTOBJ 76Q TEXTOBJ 54Q TEXTOBJ 43Q TEXTOBJ) () TEDIT.UNDO.REPLACE D1 (P 2 SEL P 1 CH# P 0 OLDEVENT I 4 FIRSTPIECE I 3 CH# I 2 LEN I 1 EVENT I 0 TEXTOBJ) AA@J @ABID J @HdIH HAHgAh@H JIJIH JH JAHAJ@ Jhi h(207Q \SHOWSEL 201Q \FIXSEL 120Q \TEDIT.HISTORYADD 66Q TEDIT.UNDO.DELETION 45Q \SHOWSEL 41Q TEDIT.UNDO.INSERTION 30Q \SHOWSEL) (161Q SELECTION 147Q SELECTION 133Q SELECTION 124Q SELECTION 102Q Replace 17Q TEXTOBJ) () TEDIT.REDO.REPLACE D1 (P 2 SEL P 1 CH# P 0 OLDEVENT I 1 EVENT I 0 TEXTOBJ) A@@J JJ J J@ @JdJ @ Jg@AI A@HXHgAgAI@A h(205Q \TEDIT.HISTORYADD 142Q TEDIT.REDO.INSERTION 123Q \FIXDLINES 73Q \DELETECH 36Q \SHOWSEL) (171Q Replace 164Q Replace 154Q TEXTOBJ 132Q LEFT 127Q SELECTION 114Q SELECTION 106Q SELECTION 77Q TEXTOBJ 64Q SELECTION 56Q SELECTION 50Q SELECTION 42Q SELECTION 25Q TEXTOBJ 17Q SELECTION 12Q TEXTOBJ) () TEDIT.REDO.MOVE D1 (P 5 OLDCHLIM P 4 MOVESEL P 3 SEL P 2 OLDCH# P 1 SOURCECH# P 0 FROMOBJ I 4 FIRSTPIECE I 3 CH# I 2 LEN I 1 EVENT I 0 TEXTOBJ) U@AA@@LJLJB LB LkkjhL@ Lg LK h(121Q TEDIT.MOVE 114Q \TEDIT.SET.SEL.LOOKS 105Q \FIXSEL) (111Q MOVE 66Q SELECTION 57Q SELECTION 46Q SELECTION 37Q SELECTION 26Q TEXTOBJ 20Q TEXTOBJ) () (PRETTYCOMPRINT TEDITHISTORYCOMS) (RPAQQ TEDITHISTORYCOMS ((FILES TEDIT TEXTOFD TEDITLOOKS) (GLOBALVARS TEDIT.HISTORY.TYPELST TEDIT.HISTORYLST) (INITVARS (TEDIT.HISTORY.TYPELST NIL) (TEDIT.HISTORYLST NIL)) (RECORDS TEDITHISTORYEVENT) (FNS \TEDIT.HISTORYADD TEDIT.UNDO TEDIT.UNDO.INSERTION TEDIT.UNDO.DELETION TEDIT.REDO TEDIT.REDO.INSERTION TEDIT.UNDO.MOVE TEDIT.UNDO.REPLACE TEDIT.REDO.REPLACE TEDIT.REDO.MOVE) )) (FILESLOAD TEDIT TEXTOFD TEDITLOOKS) (RPAQ? TEDIT.HISTORY.TYPELST NIL) (RPAQ? TEDIT.HISTORYLST NIL) (RECORD TEDITHISTORYEVENT (THACTION (* A LITATOM, specifying what the event was) THPOINT (* Was the selection to the left or right?) THLEN (* The # of chars involved) THCH# (* The starting ch#) THFIRSTPIECE (* First piece involved) THOLDINFO (* Old info, for undo) THAUXINFO (* Auxiliary info about the event, primarily for redo) THTEXTOBJ (* Place to remember a second textobj, for those like MOVE who need to remember both a source and a destination.)) THPOINT _ (QUOTE LEFT)) (PUTPROPS TEDITHISTORY COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984 1985)) NIL