(FILECREATED "10-Mar-85 15:30:41" ("compiled on " {ERIS}LISPUSERS>EMACS.;9) " 7-Mar-85 16:25:43" recompiled changes: EMACS.GETCARETPTR in "INTERLISP-D 7-Mar-85 ..." dated " 7-Mar-85 16:38:13") (FILECREATED "10-Mar-85 15:29:27" {ERIS}LISPUSERS>EMACS.;9 72917 changes to: (FNS EMACS.GETCARETPTR) previous date: "28-Feb-85 11:56:58" {ERIS}LISPUSERS>EMACS.;8) EMACS.INIT D1 (F 0 DEFAULTCARET F 1 TEDIT.INTERRUPTS F 2 BXCARET F 3 TEDIT.DEFAULT.FMTSPEC F 4 BXHICARET F 5 FILERDTBL F 6 DEFAULTCURSOR F 7 TEDIT.LINECURSOR F 10Q EMACS.READTABLE) L ocPjPcdcVcg So U cgg ggg h(110Q CHANGECCODE 74Q DEFDEDITCOM 63Q EMACS.INIT.BACKGROUND 60Q EMACS.INIT.SYNTAX 55Q EMACS.INIT.COMMANDS 50Q COPYREADTABLE 30Q BOUNDP) (105Q \TEDIT.COMMAND.LOOP 102Q TTYDISPLAYSTREAM 77Q NILL 71Q DEDITEmacs 66Q Emacs 35Q FMTSPEC 25Q TEDIT.DEFAULT.FMTSPEC) ( 41Q (70Q) 3 ((7 ERROR) (10Q HELP))) EMACS.INIT.BACKGROUND D1 (F 4 BackgroundMenuCommands F 5 BackgroundMenu) 4T1HIco hc dgJ KhZYHXK&Z(22Q ADDTOVAR) (34Q TEdit) ( 17Q (BackgroundMenuCommands (EMACS (QUOTE (EMACS)) "Opens an Edit Window."))) DEDITEmacs D1 (P 0 EXPR F 1 EMACS.READTABLE) $i Xd hi Q XH h(40Q DEDITZAPCAR 34Q TOPSELECTION 30Q READ 24Q EMACS 17Q MKSTRING 11Q TOPSELECTION 6 CURSOR) NIL () EMACS.INIT.COMMANDS D1 (P 1 I F 2 EMACS.COMMANDS F 3 EMACS.MCOMMANDS F 4 EMACS.XCOMMANDS F 5 TEDIT.READTABLE F 6 EMACS.LIST F 7 EMACS.MLIST F 10Q EMACS.XLIST) lghj clghj clghj cVdRHH*WdSHH*WdTHH*Un ljIdHhd U IkY(177Q TEDIT.SETFUNCTION 173Q EMACS.COMMAND 150Q HARRAY 41Q ARRAY 25Q ARRAY 11Q ARRAY) (142Q READTABLEP 34Q POINTER 20Q POINTER 4 POINTER) () EMACS.COMMAND D1 (L (0 I)) gghg@ghhNIL (16Q STREAM 12Q EMACS.OPERATE 5 STREAM 2 LAMBDA) () EMACS.OPERATE D1 (P 5 J P 3 CH P 2 PTR P 1 FN P 0 N I 1 STREAM I 0 I F 6 EMACS.COMMANDS F 7 EMACS.MCOMMANDS F 10Q EMACS.XCOMMANDS F 11Q EMACS.BD F 12Q EMACS.SYNTAX F 13Q EMACS.CR F 14Q EMACS.SD) @Ad kX@lHlڸbV@(Y@l@dlWlWl@W@lفV@(YPA Zj#JJ A l @do @ HkjAKAHK AJH +HkMLAkIMk]W@(WWWjA h(314Q EMACS.SHOWCARET 307Q EMACS.FLUSH.CACHE 234Q EMACS.SETFILEPTR 224Q TEDIT.INSERT 221Q ALLOCSTRING 201Q MKSTRING 176Q CHARACTER 171Q EMACS.FLUSH.CACHE 164Q MEMB 147Q \BACKPEEKBIN 141Q \FZEROP 124Q GETFILEPTR 75Q EMACS.GETKEY 62Q EMACS.GETKEY 31Q EMACS.GETKEY 12Q EMACS.SETFILEPTR 7 EMACS.GETCARETPTR) NIL ( 161Q (40Q 11Q)) EMACS.GETKEY D1 (P 0 CODE) g Xi H(20Q CARET 13Q \GETKEY 10Q CARET) (5 OFF) () EMACS D1 (P 0 PROCESS I 3 PROPS I 2 DONTSPAWN I 1 WINDOW I 0 TEXT) ]@ABC bB@AiC l@gg bgg@hgAhgChhgg X H(131Q TTY.PROCESS 125Q ADD.PROCESS 52Q OPENFILE 31Q EMACS.TEDIT1 14Q EMACS.WINDOW) (122Q NO 117Q EMACS 103Q QUOTE 74Q QUOTE 65Q QUOTE 62Q EMACS.PROCESS 47Q OLD 44Q INPUT) () EMACS.PROCESS D1 (I 2 PROPS I 1 WINDOW I 0 TEXT) Ag @AhB (20Q EMACS.TEDIT1 11Q PUTWINDOWPROP 6 THIS.PROCESS) (3 PROCESS) () EMACS.TEDIT1A0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 WINDOW F 2 TEXT F 3 RESETY F 4 UNSPAWNED F 5 PROPS F 6 ANSWER) EgQ hhPcgi hhhPcgi hhhPcRQTU c ci(75Q \TEDIT1 52Q OUTFILE 27Q INFILE 6 TTYDISPLAYSTREAM) (46Q OUTPUT 23Q INPUT 2 TTYDISPLAYSTREAM) () EMACS.TEDIT1 D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 ANSWER I 3 PROPS I 2 UNSPAWNED I 1 WINDOW I 0 TEXT F 4 LISPXHIST F 5 RESETVARSLST) %T!Uog hg[ KH(41Q ERROR! 33Q RESETRESTORE 21Q EMACS.TEDIT1A0001) (27Q ERROR 16Q INTERNAL) ( 13Q (EMACS.TEDIT1A0001)) EMACS.WINDOW D1 (P 0 WINDOW I 1 PROPS I 0 DONTSPAWN F 1 TEDIT.DEFAULT.WINDOW) @Q o XgA H(26Q PUTWINDOWPROP 16Q TEDIT.CREATEW) (22Q TEDIT.PROPS) ( 13Q "Indicate region for EMACS") EMACS.SETFILEPTR D1 (I 1 PTR I 0 STREAM) @ j@A @A h(22Q SETFILEPTR 14Q SETFILEPTR 3 GETEOFPTR) NIL () EMACS.GETCARETPTR D1 (P 1 ANSWER P 0 SELECTION I 0 STREAM) 8 @XddgHkgH k(65Q SHOULDNT) (55Q SELECTION 47Q RIGHT 37Q SELECTION 30Q LEFT 22Q SELECTION 13Q TEXTOBJ 6 STREAM) () EMACS.SETCARETPTR D1 (P 0 EOF I 1 PTR I 0 STREAM) *@ XAdjjdHHb@Akjg @A h(46Q EMACS.SETFILEPTR 41Q TEDIT.SETSEL 6 GETEOFPTR) (36Q LEFT) () EMACS.SHOWCARET D1 (P 0 PTR I 0 STREAM) @ X@H @ @H h(32Q EMACS.SETFILEPTR 25Q TEDIT.NORMALIZECARET 14Q EMACS.SETCARETPTR 6 GETFILEPTR) (20Q STREAM) () EMACS.BOL D1 (P 1 BOL P 0 OLDPTR I 1 PTR I 0 STREAM F 2 EMACS.NONCR)  @ X@A @R @ Y@H I(33Q EMACS.SETFILEPTR 25Q GETFILEPTR 21Q EMACS.BSKIP 14Q EMACS.SETFILEPTR 6 GETFILEPTR) NIL () EMACS.EOL D1 (P 1 EOL P 0 OLDPTR I 1 PTR I 0 STREAM F 2 EMACS.NONCR)  @ X@A @R @ Y@H I(33Q EMACS.SETFILEPTR 25Q GETFILEPTR 21Q EMACS.FSKIP 14Q EMACS.SETFILEPTR 6 GETFILEPTR) NIL () EMACS.DELETE.BYTES D1 (P 1 LENGTH P 0 PTR I 2 PTR2 I 1 PTR1 I 0 STREAM) F @ XjAAjb@ dBBbdjAkY@AkI HdA@HB@A@HI h(102Q EMACS.SETFILEPTR 54Q TEDIT.DELETE 24Q GETEOFPTR 6 GETFILEPTR) NIL () EMACS.BOFP D1 (I 0 STREAM) @ Hj HH (24Q \FZEROP 3 GETFILEPTR) NIL () EMACS.EOFP D1 (I 0 STREAM) @ @ j(7 GETEOFPTR 3 GETFILEPTR) NIL () EMACS.CCHAR D1 (P 0 ANSWER I 0 STREAM) @ X@ H(11Q \BACKBIN) NIL () EMACS.PEEKBIN D1 (P 1 ANSWER P 0 PTR I 0 STREAM)  @ X@ Y@H I(17Q EMACS.SETFILEPTR 6 GETFILEPTR) NIL () EMACS.FBYTE D1 (I 0 STREAM) @ @ h(3 EMACS.EOFP) NIL () EMACS.FWORDA0001 D1 (NAME ERRORSET F 0 STREAM) P h(3 RATOM) NIL () EMACS.FWORD D1 (I 0 STREAM) o (6 EMACS.FWORDA0001) NIL ( 3 (EMACS.FWORDA0001)) EMACS.FSKIP D1 (I 2 LIMIT I 1 CLASS I 0 STREAM F 0 EMACS.SYNTAX) 3B@ b@ B!P@ ddn(Aj@ h(26Q EMACS.PEEKBIN 14Q GETFILEPTR 5 GETEOFPTR) NIL () EMACS.FSKIPTO D1 (I 1 CLASS I 0 STREAM F 0 EMACS.SYNTAX) "@ P@ ddn(Ajh(3 EMACS.EOFP) NIL () EMACS.BBYTE D1 (I 0 STREAM) @ @ h(10Q \BACKBIN 3 EMACS.BOFP) NIL () EMACS.BCHAR D1 (P 1 BYTE2 P 0 BYTE1 I 0 STREAM)  @ X@ @ YIl%@ H(33Q EMACS.BBYTE 20Q \BACKPEEKBIN 13Q EMACS.BOFP 6 EMACS.BBYTE) NIL () EMACS.BPEEKCHAR D1 (P 1 BYTE P 0 PTR I 0 STREAM)  @ X@ Y@H I(21Q SETFILEPTR 13Q EMACS.BCHAR 6 GETFILEPTR) NIL () EMACS.BWORD D1 (I 0 STREAM F 0 EMACS.WS F 1 EMACS.NONWS) @P @Q h(11Q EMACS.BSKIP 4 EMACS.BSKIP) NIL () EMACS.BSKIP D1 (I 2 LIMIT I 1 CLASS I 0 STREAM F 0 EMACS.SYNTAX) 1Bjb@ B#P@ ddn(Aj@ h(53Q \BACKBIN 22Q \BACKPEEKBIN 11Q GETFILEPTR) NIL () EMACS.BSKIPTO D1 (I 1 CLASS I 0 STREAM F 0 EMACS.SYNTAX) $@ P@ ddn(Ajh(12Q \BACKBIN 3 EMACS.BOFP) NIL () EMACS.SET.EOF D1 (L (1 PTR 0 STREAM)) !@A @Al @AhNIL (32Q TEXTOBJ 25Q STREAM 13Q STREAM 3 STREAM) () EMACS.GOTO.BOL D1 (I 0 STREAM F 0 EMACS.NONCR) @P h(4 EMACS.BSKIP) NIL () EMACS.BACK.BYTE D1 (I 0 STREAM) @ h(3 EMACS.BBYTE) NIL () EMACS.FWD.DELETE.BYTE D1 (P 0 PTR I 0 STREAM) @ X@Hd h(15Q EMACS.DELETE.BYTES 6 GETFILEPTR) NIL () EMACS.GOTO.EOL D1 (I 0 STREAM F 0 EMACS.NONCR) @P h(4 EMACS.FSKIP) NIL () EMACS.FWD.BYTE D1 (I 0 STREAM) @ h(3 EMACS.FBYTE) NIL () EMACS.KILL.LINE D1 (P 1 EOL P 0 PTR I 0 STREAM F 2 EMACS.NONCR) 4 @ X@R @ YddH@HIkى@ @Id @H h(60Q EMACS.SETFILEPTR 52Q EMACS.DELETE.BYTES 41Q GETEOFPTR 20Q GETFILEPTR 14Q EMACS.FSKIP 6 GETFILEPTR) NIL () EMACS.REDISPLAY D1 (P 0 PTR I 0 STREAM) @ X@J @H h(32Q EMACS.SETFILEPTR 25Q REDISPLAYW 6 GETFILEPTR) (20Q TEXTOBJ 13Q STREAM) () EMACS.NEXT.LINE D1 (P 5 OFFSET P 4 NEOL P 3 NBOL P 2 EOL P 1 BOL P 0 PTR I 0 STREAM) Hp@ X@H YHjI]@H Zdk[@ K@d @K MLKپdNN@KM h(104Q EMACS.SETFILEPTR 60Q EMACS.EOL 51Q GETEOFPTR 41Q GETEOFPTR 30Q EMACS.EOL 14Q EMACS.BOL 6 GETFILEPTR) NIL () EMACS.PREVIOUS.LINE D1 (P 4 OFFSET P 3 PEOL P 2 PBOL P 1 BOL P 0 PTR I 0 STREAM) <`@ X@H YHjI\Ik[dj@j@K LKJٽdMM@JL h(70Q EMACS.SETFILEPTR 44Q EMACS.BOL 14Q EMACS.BOL 6 GETFILEPTR) NIL () EMACS.QUOTE.BYTE D1 (P 1 CH P 0 PTR I 0 STREAM)  @ XY@IHk @Hk h(32Q EMACS.SETFILEPTR 23Q TEDIT.INSERT 12Q EMACS.GETKEY 6 GETFILEPTR) NIL () EMACS.SEARCHA0001A0002A0003 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 STRING F 2 STREAM F 3 RESETY F 4 PTR F 5 NEWPTR) g` hhPcQRT c ci(30Q FILEPOS 10Q CURSOR) (5 WAITINGCURSOR 2 CURSOR) () EMACS.SEARCHA0001A0002 D1 (NAME ERRORSET P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 STRING F 4 RESETVARSLST F 5 STREAM F 6 TEXTOBJ F 7 WINDOW F 10Q NEWPTR F 11Q PTR F 12Q LISPXHIST F 13Q RESETY)  oV hTcVg>Wg cUoSo cpWgS W!Tog hgZ JWUWS ذ1` o` S` o` ` UW ci(243Q EMACS.SETFILEPTR 234Q TERPRI 225Q PRIN1 212Q PRIN1 202Q PRIN1 167Q FRESHLINE 156Q NCHARS 142Q ERROR! 134Q RESETRESTORE 122Q EMACS.SEARCHA0001A0002A0003 101Q PUTWINDOWPROP 76Q MKSTRING 61Q TEDIT.GETINPUT 41Q GETWINDOWUSERPROP 7 \TEDIT.MARKACTIVE) (231Q PROMPTWINDOW 222Q PROMPTWINDOW 207Q PROMPTWINDOW 177Q PROMPTWINDOW 164Q PROMPTWINDOW 130Q ERROR 117Q INTERNAL 72Q TEDIT.LAST.FIND.STRING 36Q TEDIT.LAST.FIND.STRING 26Q Find 23Q TEXTOBJ) ( 217Q "' not found." 174Q "String '" 114Q (EMACS.SEARCHA0001A0002A0003) 56Q (15Q 23Q) 51Q "Text to find: " 3 (AND (\TEDIT.MARKINACTIVE OLDVALUE))) EMACS.SEARCHA0001 D1 (NAME ERRORSET P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ Ji(36Q ERROR! 30Q RESETRESTORE 16Q EMACS.SEARCHA0001A0002) (24Q ERROR 13Q INTERNAL) ( 10Q (EMACS.SEARCHA0001A0002)) EMACS.SEARCH D1 (P 4 NEWPTR P 3 STRING P 2 WINDOW P 1 TEXTOBJ P 0 PTR I 0 STREAM) &P@ X@Y@JZoi h(42Q EMACS.SEARCHA0001 6 GETFILEPTR) (27Q TEXTOBJ 22Q STREAM 13Q STREAM) ( 36Q (EMACS.SEARCHA0001)) EMACS.TRANSPOSE.BYTES D1 (P 2 CH P 1 CODE P 0 PTR I 0 STREAM) J0@ @@ :@ X@ Yddddd @Hd @Hk @JH @Hk h(106Q EMACS.SETFILEPTR 77Q TEDIT.INSERT 71Q EMACS.SETFILEPTR 62Q EMACS.DELETE.BYTES 53Q MKSTRING 50Q CHARACTER 22Q GETFILEPTR 14Q EMACS.EOFP 6 EMACS.BOFP) NIL () EMACS.NEXT.SCREENFULL D1 (P 2 DELTAY P 1 DELTAX P 0 WINDOW I 0 STREAM) 70@JXjYHg hH Z@h>HIJ h(63Q \TEDIT.SCROLLFN 37Q FONTHEIGHT 34Q DSPFONT 27Q GETWINDOWPROP) (52Q TEXTOBJ 45Q STREAM 24Q HEIGHT 13Q TEXTOBJ 6 STREAM) () EMACS.CXCV D1 (P 3 WINDOW P 1 FILE P 0 PTR I 0 STREAM)  @ X@o Y@H I@oi h Yd@oi hJh(@oi h[g IKiJZI8@,j@ @I @JgI @j h(255Q EMACS.SETFILEPTR 250Q PUTWINDOWPROP 226Q TEDIT.GET 213Q EMACS.CXCW 147Q GETWINDOWUSERPROP 135Q TEDIT.PROMPTPRINT 104Q ACTIVEWINDOWS 77Q TEDIT.PROMPTPRINT 56Q INFILEP 51Q TEDIT.PROMPTPRINT 30Q SETFILEPTR 22Q MKATOM 17Q TEDIT.GETINPUT 6 GETFILEPTR) (244Q EMACS.VISITING 237Q TEXTOBJ 232Q STREAM 220Q STREAM 201Q TEXTOBJ 174Q STREAM 144Q EMACS.VISITING 123Q STREAM 65Q STREAM 37Q STREAM) ( 131Q "[Already visiting file.]" 73Q "[Visit couldn't find file.]" 45Q "[Visit aborted.]" 14Q "File to GET:") EMACS.CXCW D1 (I 0 STREAM) @ h(10Q TEDIT.PUT) (3 STREAM) () EMACS.CXCZ D1 (P 0 FORM I 0 STREAM) @ XgH h(16Q PROCESS.EVAL 6 READ) (12Q EXEC) () EMACS.FWD.SEXPRA0001A0002 D1 (NAME ERRORSET F 0 STREAM) P h(3 READ) NIL () EMACS.FWD.SEXPRA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 SEXPR F 2 RESETY F 3 STREAM F 4 PTR) -gd go Pco cS cci(45Q GETFILEPTR 36Q EMACS.FWD.SEXPRA0001A0002 21Q SETTOPVAL 6 GETTOPVAL) (12Q \BQUOTE.LEVEL 2 \BQUOTE.LEVEL) ( 33Q (EMACS.FWD.SEXPRA0001A0002) 16Q 7777777777Q) EMACS.FWD.SEXPR D1 (P 6 RESETZ P 5 RESETY P 4 LISPXHIST P 3 PTR P 2 SEXPR P 1 EOD P 0 EOD I 0 STREAM F 7 LISPXHIST F 10Q RESETVARSLST) ?@W!Wog hg^ NJ@J @K h(73Q SETFILEPTR 65Q FLASHWINDOW 43Q ERROR! 35Q RESETRESTORE 23Q EMACS.FWD.SEXPRA0001) (60Q TEXTOBJ 53Q STREAM 31Q ERROR 20Q INTERNAL) ( 15Q (EMACS.FWD.SEXPRA0001)) EMACS.BACK.DELETE.BYTE D1 (P 0 PTR I 0 STREAM) @ X@HkHk h(21Q EMACS.DELETE.BYTES 6 GETFILEPTR) NIL () EMACS.GOTO.BOD D1 (I 0 STREAM) @d h(7 SETFILEPTR 4 EMACS.BOD) NIL () EMACS.BOD D1 (P 1 ANSWER P 0 PTR I 0 STREAM F 2 EMACS.CR F 3 EMACS.NONCR) @ @ X@R @ "@S @ @ @ l(@ @ Y@H I(74Q SETFILEPTR 66Q GETFILEPTR 57Q EMACS.BBYTE 47Q \PEEKBIN 42Q EMACS.BOFP 34Q EMACS.BOFP 27Q EMACS.BSKIP 20Q EMACS.BOFP 14Q EMACS.BSKIP 6 GETFILEPTR) NIL () EMACS.GOTO.EOD D1 (I 0 STREAM) @d h(7 SETFILEPTR 4 EMACS.EOD) NIL () EMACS.EOD D1 (P 1 ANSWER P 0 PTR I 0 STREAM F 2 EMACS.CR F 3 EMACS.NONCR) D @ X@R @ &@S @ @ @ @ l @ @ Y@H I(100Q SETFILEPTR 72Q GETFILEPTR 65Q \BACKBIN 54Q \PEEKBIN 47Q EMACS.EOFP 42Q EMACS.FBYTE 34Q EMACS.EOFP 27Q EMACS.FSKIP 20Q EMACS.EOFP 14Q EMACS.FSKIP 6 GETFILEPTR) NIL () EMACS.KILL.SEXPR D1 (P 1 PTR2 P 0 PTR1 I 0 STREAM) ! @ X@ @ Y@HIk @H h(35Q EMACS.SETFILEPTR 30Q EMACS.DELETE.BYTES 17Q GETFILEPTR 13Q EMACS.FWD.SEXPR 6 GETFILEPTR) NIL () EMACS.GOTO.BOF D1 (I 0 STREAM) @j h(4 EMACS.SETFILEPTR) NIL () EMACS.GOTO.EOF D1 (I 0 STREAM) @d h(7 EMACS.SETFILEPTR 4 GETEOFPTR) NIL () EMACS.BACK.WORD D1 (P 3 OTHERS P 2 SNX P 1 CH P 0 SA I 0 STREAM F 4 EMACS.READTABLE) d@@ @ TX@ F@ HIZji@ @ "@ @ @ HIZlF@ iJl`K@ h(140Q \BACKBIN 104Q \BACKBIN 76Q EMACS.BOFP 71Q \BACKBIN 63Q EMACS.BACK.ESCAPEDP 40Q \BACKBIN 32Q EMACS.BOFP 16Q ERROR! 12Q EMACS.BOFP 6 EMACS.BACK.SKIPSEPRS) (23Q READTABLEP) () EMACS.FWD.DELETE.WORD D1 (P 1 PTR2 P 0 PTR1 I 0 STREAM) ! @ X@ @ Y@HIk @H h(35Q EMACS.SETFILEPTR 30Q EMACS.DELETE.BYTES 17Q GETFILEPTR 13Q EMACS.FWORD 6 GETFILEPTR) NIL () EMACS.EDIT D1 (P 2 PTR2 P 1 PTR1 P 0 EXPR I 0 STREAM) 00@ @ Y@ X@ Z@IJk H Xdhddd@ h(54Q PRINTDEF 41Q EDITE 35Q EMACS.DELETE.BYTES 24Q GETFILEPTR 17Q EMACS.FWD.SEXPR 12Q GETFILEPTR 6 SKIPSEPRS) NIL () EMACS.FWD.WORD D1 (I 0 STREAM) @ h(3 EMACS.FWORD) NIL () EMACS.GRIND D1 (P 2 PTR2 P 1 PTR1 P 0 EXPR I 0 STREAM) +0@ @ Y@ X@ Z@IJk Hhddd@ h(47Q PRINTDEF 35Q EMACS.DELETE.BYTES 24Q GETFILEPTR 17Q EMACS.FWD.SEXPR 12Q GETFILEPTR 6 SKIPSEPRS) NIL () EMACS.SNARF D1 (P 0 EXPR I 0 STREAM) Xdhddd@ h(21Q PRINTDEF 5 TOPSELECTION) NIL () EMACS.MT D1 (P 4 FPTR2 P 3 FPTR1 P 2 BPTR2 P 1 BPTR1 P 0 PTR I 0 STREAM F 5 EMACS.WS) 4P@ X@U @ Z@ Y@H @U @ [@ @ h(60Q GETFILEPTR 54Q EMACS.FWORD 47Q GETFILEPTR 43Q EMACS.FSKIP 36Q EMACS.SETFILEPTR 30Q GETFILEPTR 24Q EMACS.BWORD 20Q GETFILEPTR 14Q EMACS.BSKIP 6 GETFILEPTR) NIL () EMACS.PREVIOUS.SCREENFULL D1 (P 2 DELTAY P 1 DELTAX P 0 WINDOW I 0 STREAM) 70@JXjYhH Hg Z@h>HIJ h(63Q \TEDIT.SCROLLFN 37Q GETWINDOWPROP 30Q FONTHEIGHT 25Q DSPFONT) (52Q TEXTOBJ 45Q STREAM 34Q HEIGHT 13Q TEXTOBJ 6 STREAM) () EMACS.JOIN.LINES D1 (P 6 PTR2 P 5 PTR1 P 4 PEOL P 3 PBOL P 2 EOL P 1 BOL P 0 PTR I 0 STREAM F 10Q EMACS.WS) ~@ X@H Y@H ZIjdId ZIk\@L [@I @W @ dKK]@I @W @ Jk_dOO^@M @MNk @l @Mk h(172Q EMACS.SETFILEPTR 163Q \BOUT 155Q EMACS.DELETE.BYTES 145Q EMACS.SETFILEPTR 121Q GETFILEPTR 115Q EMACS.FSKIP 107Q EMACS.SETFILEPTR 73Q GETFILEPTR 67Q EMACS.BSKIP 61Q EMACS.SETFILEPTR 53Q EMACS.BOL 40Q \FZEROP 22Q EMACS.EOL 14Q EMACS.BOL 6 GETFILEPTR) NIL () EMACS.BACK.DELETE.WORD D1 (P 1 PTR2 P 0 PTR1 I 0 STREAM)  @ X@ @ Y@IHk h(30Q EMACS.DELETE.BYTES 17Q GETFILEPTR 13Q EMACS.BWORD 6 GETFILEPTR) NIL () NEW.TEDIT.SELECT.LINE.SCANNER D1 (P 1 PTR P 0 SELECTION I 7 WINDOW I 6 SELOPERATION I 5 WORDSELFLG I 4 REGION I 3 LINE.LIST I 2 TEXTOBJ I 1 Y I 0 X) = @ABCDEFG Xd gHgB.Hk H(71Q EMACS.FLUSH.CACHE 65Q EMACS.SETFILEPTR 24Q TYPENAME 17Q OLD.TEDIT.SELECT.LINE.SCANNER) (56Q SELECTION 50Q TEXTOBJ 41Q LEFT 36Q SELECTION 27Q SELECTION) () EMACS.DELIMS D1 (P 0 BUCKET I 1 RCHARCODE I 0 LCHARCODE F 2 EMACS.DELIMS F 3 EMACS.READTABLE F 4 EMACS.COMMANDS F 5 EMACS.SYNTAX F 6 EMACS.NONWS F 7 EMACS.NONCR F 10Q EMACS.RDELIMS F 11Q EMACS.SDELIMS F 12Q EMACS.LDELIMS F 13Q EMACS.NONSD F 14Q EMACS.SD F 15Q EMACS.BD)   @AXdR dRc@dAj,gS U@VWW*T@d *@WcXgS AgS @AhdUIWVWW*T@d *TAd *@WcAWch(215Q EMACS.RDELIM.COMMAND 212Q MKSTRING 207Q CHARACTER 177Q EMACS.LDELIM.COMMAND 174Q MKSTRING 171Q CHARACTER 126Q SETSYNTAX 115Q SETSYNTAX 73Q EMACS.SDELIM.COMMAND 70Q MKSTRING 65Q CHARACTER 43Q SETSYNTAX 13Q MEMBER) (122Q RIGHTPAREN 111Q LEFTPAREN 37Q STRINGDELIM) () EMACS.CR D1 (P 0 PTR I 0 STREAM F 1 EMACS.SCACHE F 2 EMACS.BCACHE) R@ X@l @Hk @ g/@J @Q n @Hk gchch(104Q EMACS.SETCARETPTR 74Q DISMISS 65Q EMACS.SETCARETPTR 57Q FLASHWINDOW 33Q EMACS.SCACHE 27Q EMACS.SETFILEPTR 20Q TEDIT.INSERT 15Q CHARACTER 6 GETFILEPTR) (110Q OUTSIDE 52Q TEXTOBJ 45Q STREAM 36Q OUTSIDE) () EMACS.RPAREN D1 (P 0 PTR I 0 STREAM) (@ X@o @Hk @ g@ h(44Q EMACS.CLOSE.BALANCE 32Q EMACS.SCACHE 26Q EMACS.SETFILEPTR 17Q TEDIT.INSERT 6 GETFILEPTR) (35Q OUTSIDE) ( 14Q ")") EMACS.RBRACKET D1 (P 0 PTR I 0 STREAM) (@ X@o @Hk @ g@ h(44Q EMACS.CLOSE.BALANCE 32Q EMACS.SCACHE 26Q EMACS.SETFILEPTR 17Q TEDIT.INSERT 6 GETFILEPTR) (35Q OUTSIDE) ( 14Q "]") EMACS.RBRACE D1 (P 0 PTR I 0 STREAM) (@ X@o @Hk @ g@ h(44Q EMACS.CLOSE.BALANCE 32Q EMACS.SCACHE 26Q EMACS.SETFILEPTR 17Q TEDIT.INSERT 6 GETFILEPTR) (35Q OUTSIDE) ( 14Q "}") EMACS.RANGLE D1 (P 0 PTR I 0 STREAM) (@ X@o @Hk @ g@ h(44Q EMACS.CLOSE.BALANCE 32Q EMACS.SCACHE 26Q EMACS.SETFILEPTR 17Q TEDIT.INSERT 6 GETFILEPTR) (35Q OUTSIDE) ( 14Q ">") EMACS.SDELIM.COMMAND D1 (L (0 SDELIM)) gghg@ghhNIL (16Q STREAM 12Q EMACS.SDELIM 5 STREAM 2 LAMBDA) () EMACS.LDELIM.COMMAND D1 (L (0 LDELIM)) gghg@ghhNIL (16Q STREAM 12Q EMACS.LDELIM 5 STREAM 2 LAMBDA) () EMACS.RDELIM.COMMAND D1 (L (0 RDELIM)) gghg@ghhNIL (16Q STREAM 12Q EMACS.RDELIM 5 STREAM 2 LAMBDA) () EMACS.SDELIM D1 (P 0 PTR I 1 STREAM I 0 SDELIM) 0A XA@ AHk A hA gA A h(54Q EMACS.CLOSE.STRING 47Q EMACS.OPEN.STRING 36Q EMACS.SCACHE 27Q EMACS.BACK.ESCAPEDP 23Q EMACS.SETFILEPTR 14Q TEDIT.INSERT 6 GETFILEPTR) (41Q OUTSIDE) () EMACS.LDELIM D1 (P 0 PTR I 1 STREAM I 0 LDELIM) -A XA@ AHk A hA gA (50Q EMACS.OPEN.BALANCE 36Q EMACS.SCACHE 27Q EMACS.BACK.ESCAPEDP 23Q EMACS.SETFILEPTR 14Q TEDIT.INSERT 6 GETFILEPTR) (41Q OUTSIDE) () EMACS.RDELIM D1 (P 0 PTR I 1 STREAM I 0 RDELIM) -A XA@ AHk A hA gA (50Q EMACS.CLOSE.BALANCE 36Q EMACS.SCACHE 27Q EMACS.BACK.ESCAPEDP 23Q EMACS.SETFILEPTR 14Q TEDIT.INSERT 6 GETFILEPTR) (41Q OUTSIDE) () EMACS.OPEN.STRING D1 (P 0 LPTR I 0 STREAM F 1 EMACS.SCACHE) @ kdch(6 GETFILEPTR) NIL () EMACS.CLOSE.STRING D1 (P 4 MATCHED P 3 RDELIM P 2 LDELIM P 1 RPTR P 0 LPTR I 0 STREAM F 5 EMACS.SCACHE F 6 EMACS.NONSD) kPgc @ kY@I @ [@V @ @ X@ ZdKj\d@H lȰ@J @H n @Ik @Ik h(147Q EMACS.SETFILEPTR 140Q EMACS.SETCARETPTR 130Q DISMISS 121Q EMACS.SETCARETPTR 113Q FLASHWINDOW 70Q EMACS.SETCARETPTR 52Q \PEEKBIN 45Q GETFILEPTR 41Q EMACS.BBYTE 35Q EMACS.BSKIP 27Q \PEEKBIN 23Q EMACS.SETFILEPTR 13Q GETFILEPTR) (106Q TEXTOBJ 101Q STREAM 5 OUTSIDE) () EMACS.OPEN.BALANCE D1 (P 0 LPTR I 0 STREAM F 1 EMACS.BCACHE) "@ kXQdddhHQch(6 GETFILEPTR) NIL () EMACS.CLOSE.BALANCE D1 (P 5 BALANCED P 4 RDELIM P 3 LDELIM P 2 RPTR P 1 LPTR P 0 PTR I 0 STREAM F 6 EMACS.BCACHE F 7 EMACS.DELIMS) `@ XdkZ@J @ \@ Vddh]dBV@I @ @I KW LjlȰ@J n Vc @V @J n @H @H h(220Q EMACS.SETFILEPTR 213Q EMACS.SETCARETPTR 205Q DISMISS 176Q FLASHWINDOW 157Q EMACS.SETCARETPTR 143Q DISMISS 134Q FLASHWINDOW 104Q ASSOC 75Q EMACS.SETCARETPTR 67Q \PEEKBIN 62Q EMACS.SETFILEPTR 31Q EMACS.BCACHE 24Q \PEEKBIN 20Q EMACS.SETFILEPTR 6 GETFILEPTR) (171Q TEXTOBJ 164Q STREAM 127Q TEXTOBJ 122Q STREAM) () EMACS.FLUSH.CACHE D1 (F 0 EMACS.SCACHE F 1 EMACS.BCACHE) hcdcNIL NIL () EMACS.SCACHE D1 (P 1 ANSWER P 0 PTR I 0 STREAM F 2 EMACS.SCACHE F 3 EMACS.NONSD) ` R%@ X@dH gY@ HIc@H I@SH @ @ H@ @SH @ @ Hg(123Q GETFILEPTR 116Q EMACS.FBYTE 111Q EMACS.FSKIP 102Q GETFILEPTR 71Q GETFILEPTR 64Q EMACS.FBYTE 57Q EMACS.FSKIP 47Q EMACS.SETFILEPTR 33Q GETFILEPTR 23Q EMACS.SETFILEPTR 20Q EMACS.BOL 11Q GETFILEPTR) (133Q OUTSIDE 26Q OUTSIDE) () EMACS.BCACHE D1 (P 2 ANSWER P 1 SCACHE P 0 PTR I 0 STREAM F 4 EMACS.BCACHE) n@Th@ @ Yg@I @ @ l jI6@ @ +@ [jKK @ l j@ @ kh@H Jc(147Q EMACS.SETFILEPTR 135Q GETFILEPTR 130Q GETFILEPTR 116Q \BACKPEEKBIN 111Q \FZEROP 74Q GETFILEPTR 66Q GETFILEPTR 61Q EMACS.SAFE.BACK.SEXPRS 44Q \BACKPEEKBIN 37Q EMACS.BOFP 32Q EMACS.SETFILEPTR 16Q EMACS.SCACHE 11Q GETFILEPTR) (22Q OUTSIDE) () EMACS.SAFE.BACK.SEXPRSA0002 D1 (NAME ERRORSET F 0 STREAM) P i(3 EMACS.BACK.SEXPR) NIL () EMACS.SAFE.BACK.SEXPRS D1 (P 0 ANSWER I 0 STREAM F 2 EMACS.LDELIMS) C @ @ Yj"II @ l j@ R@ io @ H(77Q FLASHWINDOW 71Q EMACS.SAFE.BACK.SEXPRSA0002 57Q EMACS.BACK.ESCAPEDP 50Q \BACKPEEKBIN 36Q \BACKPEEKBIN 30Q \FZEROP 13Q GETFILEPTR 6 EMACS.BACK.SKIPSEPRS) NIL ( 66Q (EMACS.SAFE.BACK.SEXPRSA0002)) EMACS.SAFE.BACK.SEXPRA0001 D1 (NAME ERRORSET F 0 STREAM) P i(3 EMACS.BACK.SEXPR) NIL () EMACS.SAFE.BACK.SEXPR D1 (I 0 STREAM) o @ hi(13Q FLASHWINDOW 6 EMACS.SAFE.BACK.SEXPRA0001) NIL ( 3 (EMACS.SAFE.BACK.SEXPRA0001)) EMACS.BACK.SEXPR D1 (P 1 LDELIM P 0 RDELIM I 0 STREAM F 3 EMACS.DELIMS F 4 EMACS.LDELIMS F 5 EMACS.BQ) 0@ @ @ XSZhYd%@ @ @ hdHjJHj+@ @ @ Ij@ @ @ G@ @ @ @ T@ @ @ @ l j@ @U h(266Q EMACS.BSKIP 260Q \BACKBIN 252Q ERROR! 240Q \BACKPEEKBIN 233Q EMACS.BOFP 226Q EMACS.BACK.SEXPR 220Q EMACS.BACK.ESCAPEDP 211Q \BACKPEEKBIN 203Q ERROR! 177Q EMACS.BOFP 172Q EMACS.BACK.SKIPSEPRS 165Q \BACKBIN 157Q \BACKBIN 152Q ERROR! 146Q EMACS.BOFP 140Q EMACS.BACK.ESCAPEDP 126Q \BACKPEEKBIN 121Q EMACS.BOFP 114Q \BACKBIN 60Q EMACS.BACK.WORD 52Q EMACS.BACK.ESCAPEDP 43Q EMACS.BACK.WORD 24Q \BACKPEEKBIN 17Q ERROR! 12Q EMACS.BOFP 6 EMACS.BACK.SKIPSEPRS) NIL () EMACS.BACK.WORD D1 (P 3 OTHERS P 2 SNX P 1 CH P 0 SA I 0 STREAM F 4 EMACS.READTABLE) d@@ @ TX@ F@ HIZji@ @ "@ @ @ HIZlF@ iJl`K@ h(140Q \BACKBIN 104Q \BACKBIN 76Q EMACS.BOFP 71Q \BACKBIN 63Q EMACS.BACK.ESCAPEDP 40Q \BACKBIN 32Q EMACS.BOFP 16Q ERROR! 12Q EMACS.BOFP 6 EMACS.BACK.SKIPSEPRS) (23Q READTABLEP) () EMACS.BACK.SKIPSEPRS D1 (P 2 SNX P 1 CH P 0 SA I 0 STREAM F 3 EMACS.READTABLE) V0SX@ h@ YHIZdl`@ @ @ HIZdl`@ lF@ @ @ (121Q \BACKBIN 113Q EMACS.BACK.ESCAPEDP 74Q \BACKBIN 55Q \BACKPEEKBIN 47Q EMACS.BOFP 43Q \BACKBIN 24Q \BACKPEEKBIN 15Q EMACS.BOFP) (6 READTABLEP) () EMACS.BACK.ESCAPEDP D1 (P 4 ANSWER P 3 SNX P 2 CH P 1 SA P 0 PTR I 0 STREAM F 5 EMACS.READTABLE) 8P@ XdkhUY@ @ IJ[lFLh@ @H L(64Q SETFILEPTR 55Q EMACS.BOFP 34Q \BACKBIN 30Q \BACKBIN 6 GETFILEPTR) (21Q READTABLEP) () EMACS.TAB D1 (P 10Q I P 6 TABFLG P 5 OFFSET P 4 INDENT P 3 CODE P 2 EOL P 1 BOL P 0 PTR I 0 STREAM F 11Q EMACS.SYNTAX F 12Q EMACS.WS) p@ X@ \@H Y@H Z@I j]JkIOO0@ [l iWKddn(WjMkؽOk_N-@IdMk LjQLL G@Lo Ik 5MdLj-L@IdMLk LM@LMo Ik HIM@IL@HLM h(321Q EMACS.SETFILEPTR 275Q SHOULDNT 271Q TEDIT.INSERT 263Q ALLOCSTRING 241Q EMACS.DELETE.BYTES 210Q TEDIT.INSERT 202Q ALLOCSTRING 167Q \FZEROP 151Q EMACS.DELETE.BYTES 35Q EMACS.SETFILEPTR 27Q EMACS.EOL 21Q EMACS.BOL 13Q EMACS.TAB.INDENT 6 GETFILEPTR) NIL ( 260Q " " 177Q " ") EMACS.TAB.INDENT D1 (P 13Q I P 11Q ANSWER P 10Q BOL P 7 OFFSET P 6 SISTERPTR P 5 SISTER1 P 4 LDELIMFLG P 3 SISTER2PTR P 2 SISTER1PTR P 1 BOD P 0 PTR I 0 STREAM F 14Q EMACS.WS F 15Q EMACS.SPACE F 16Q EMACS.LDELIMS)  @ j@dH @WI @W @ I@ W;@ 5iJ@J @ J@ M O%Okٰ+lMg_@ J@ ZMkLKj_@N _@O O_NkO OO@ l jOlOk_Ok_@H O(316Q EMACS.SETFILEPTR 227Q EMACS.SETFILEPTR 216Q EMACS.BOL 167Q GETFILEPTR 160Q EMACS.SAFE.BACK.SEXPR 117Q GETFILEPTR 107Q RATOM 102Q SETFILEPTR 67Q EMACS.BACK.ESCAPEDP 56Q \BACKPEEKBIN 46Q GETFILEPTR 41Q EMACS.BSKIP 32Q EMACS.BSKIP 22Q EMACS.SETFILEPTR 17Q EMACS.BOL 6 GETFILEPTR) (147Q EMACS.TAB) () EMACS.INIT.SYNTAX D1 (F 2 EMACS.SYNTAX F 3 EMACS.NONSD F 4 EMACS.NONCR F 5 EMACS.NONWS F 6 EMACS.ALPHA F 7 EMACS.WS F 10Q EMACS.LDELIMS F 11Q EMACS.SDELIMS F 12Q EMACS.DELIMS F 13Q EMACS.SPACE F 14Q EMACS.CR F 15Q EMACS.BQ F 16Q EMACS.RDELIMS)  ngjd cnjIHRITUSV*IkYodRHWTSW*Rl WWS*odRHUTSWV*hcdcdcdcl(l) l[l] l{l} l"d h(225Q EMACS.DELIMS 217Q EMACS.DELIMS 210Q EMACS.DELIMS 201Q EMACS.DELIMS 12Q ARRAY) (5 WORD) ( 125Q (47Q 54Q 100Q 140Q) 56Q (11Q 12Q 40Q)) (PRETTYCOMPRINT EMACSCOMS) (RPAQQ EMACSCOMS ((* EMACS -- By Kelly Roach *) (COMS (* EMACS *) (INITVARS (BytesPerPage 512) ( EMACS.COMMANDS NIL) (EMACS.MCOMMANDS NIL) (EMACS.XCOMMANDS NIL) (EMACS.LIST (QUOTE ((1 EMACS.GOTO.BOL) (2 EMACS.BACK.BYTE) (4 EMACS.FWD.DELETE.BYTE) (5 EMACS.GOTO.EOL) (6 EMACS.FWD.BYTE) (9 EMACS.TAB) (11 EMACS.KILL.LINE) (12 EMACS.REDISPLAY) (14 EMACS.NEXT.LINE) (16 EMACS.PREVIOUS.LINE) (17 EMACS.QUOTE.BYTE) (19 EMACS.SEARCH) (20 EMACS.TRANSPOSE.BYTES) (22 EMACS.NEXT.SCREENFULL) (24 EMACS.CX ) (26 EMACS.CZ) (41 EMACS.RPAREN) (93 EMACS.RBRACKET) (125 EMACS.RBRACE) (127 EMACS.BACK.DELETE.BYTE)) )) (EMACS.MLIST (QUOTE ((1 EMACS.GOTO.BOD) (2 EMACS.SAFE.BACK.SEXPR) (5 EMACS.GOTO.EOD) (6 EMACS.FWD.SEXPR) (11 EMACS.KILL.SEXPR) (62 EMACS.GOTO.BOF) (60 EMACS.GOTO.EOF) (66 EMACS.BACK.WORD) ( 68 EMACS.FWD.DELETE.WORD) (69 EMACS.EDIT) (70 EMACS.FWD.WORD) (71 EMACS.GRIND) (52 EMACS.SNARF) (86 EMACS.PREVIOUS.SCREENFULL) (94 EMACS.JOIN.LINES) (127 EMACS.BACK.DELETE.WORD)))) (EMACS.XLIST (QUOTE ( (22 EMACS.CXCV) (23 EMACS.CXCW) (26 EMACS.CXCZ)))) (\BQUOTE.LEVEL 0)) (RECORDS EMACSSTREAM) (FNS EMACS.INIT EMACS.INIT.BACKGROUND DEDITEmacs EMACS.INIT.COMMANDS EMACS.COMMAND EMACS.OPERATE EMACS.GETKEY EMACS EMACS.PROCESS EMACS.TEDIT1 EMACS.WINDOW EMACS.SETFILEPTR EMACS.GETCARETPTR EMACS.SETCARETPTR EMACS.SHOWCARET EMACS.BOL EMACS.EOL EMACS.DELETE.BYTES EMACS.BOFP EMACS.EOFP EMACS.CCHAR EMACS.PEEKBIN EMACS.FBYTE EMACS.FWORD EMACS.FSKIP EMACS.FSKIPTO EMACS.BBYTE EMACS.BCHAR EMACS.BPEEKCHAR EMACS.BWORD EMACS.BSKIP EMACS.BSKIPTO EMACS.SET.EOF EMACS.GOTO.BOL EMACS.BACK.BYTE EMACS.FWD.DELETE.BYTE EMACS.GOTO.EOL EMACS.FWD.BYTE EMACS.KILL.LINE EMACS.REDISPLAY EMACS.NEXT.LINE EMACS.PREVIOUS.LINE EMACS.QUOTE.BYTE EMACS.SEARCH EMACS.TRANSPOSE.BYTES EMACS.NEXT.SCREENFULL EMACS.CXCV EMACS.CXCW EMACS.CXCZ EMACS.FWD.SEXPR EMACS.BACK.DELETE.BYTE EMACS.GOTO.BOD EMACS.BOD EMACS.GOTO.EOD EMACS.EOD EMACS.KILL.SEXPR EMACS.GOTO.BOF EMACS.GOTO.EOF EMACS.BACK.WORD EMACS.FWD.DELETE.WORD EMACS.EDIT EMACS.FWD.WORD EMACS.GRIND EMACS.SNARF EMACS.MT EMACS.PREVIOUS.SCREENFULL EMACS.JOIN.LINES EMACS.BACK.DELETE.WORD NEW.TEDIT.SELECT.LINE.SCANNER)) ( COMS (* BALANCE *) (PROPS (ACCESSFNS EMACS.TAB) (DATATYPE EMACS.TAB) (DEFEXPR EMACS.TAB) (DEFFEXPR EMACS.TAB) (DEFVAR EMACS.TAB) (DO EMACS.TAB) (FOR EMACS.TAB) (LAMBDA EMACS.TAB) (PROG EMACS.TAB) ( RECORD EMACS.TAB) (SELECT EMACS.TAB) (SELECTQ EMACS.TAB) (UNTIL EMACS.TAB) (WHILE EMACS.TAB)) ( INITVARS (EMACS.DELIMS NIL) (EMACS.SDELIMS NIL) (EMACS.LDELIMS NIL) (EMACS.RDELIMS NIL) (EMACS.SCACHE NIL) (EMACS.BCACHE NIL) (EMACS.SYNTAX NIL) (EMACS.CR 1) (EMACS.WS 2) (EMACS.SD 4) (EMACS.NONCR 8) ( EMACS.NONWS 16) (EMACS.NONSD 32) (EMACS.BQ 64) (EMACS.ALPHA 128) (EMACS.BD 256) (EMACS.SPACE 512)) ( FNS EMACS.DELIMS EMACS.CR EMACS.RPAREN EMACS.RBRACKET EMACS.RBRACE EMACS.RANGLE EMACS.SDELIM.COMMAND EMACS.LDELIM.COMMAND EMACS.RDELIM.COMMAND EMACS.SDELIM EMACS.LDELIM EMACS.RDELIM EMACS.OPEN.STRING EMACS.CLOSE.STRING EMACS.OPEN.BALANCE EMACS.CLOSE.BALANCE EMACS.FLUSH.CACHE EMACS.SCACHE EMACS.BCACHE EMACS.SAFE.BACK.SEXPRS EMACS.SAFE.BACK.SEXPR EMACS.BACK.SEXPR EMACS.BACK.WORD EMACS.BACK.SKIPSEPRS EMACS.BACK.ESCAPEDP EMACS.TAB EMACS.TAB.INDENT EMACS.INIT.SYNTAX)) (DECLARE: DONTEVAL@LOAD DOCOPY (P ( EMACS.INIT) (MOVD? (QUOTE TEDIT.SELECT.LINE.SCANNER) (QUOTE OLD.TEDIT.SELECT.LINE.SCANNER)) (MOVD ( QUOTE NEW.TEDIT.SELECT.LINE.SCANNER) (QUOTE TEDIT.SELECT.LINE.SCANNER)) (MOVD (QUOTE EMACS) (QUOTE TEDIT)))))) (RPAQ? BytesPerPage 512) (RPAQ? EMACS.COMMANDS NIL) (RPAQ? EMACS.MCOMMANDS NIL) (RPAQ? EMACS.XCOMMANDS NIL) (RPAQ? EMACS.LIST (QUOTE ((1 EMACS.GOTO.BOL) (2 EMACS.BACK.BYTE) (4 EMACS.FWD.DELETE.BYTE) (5 EMACS.GOTO.EOL) (6 EMACS.FWD.BYTE) (9 EMACS.TAB) (11 EMACS.KILL.LINE) (12 EMACS.REDISPLAY) (14 EMACS.NEXT.LINE) (16 EMACS.PREVIOUS.LINE) (17 EMACS.QUOTE.BYTE) (19 EMACS.SEARCH) (20 EMACS.TRANSPOSE.BYTES) (22 EMACS.NEXT.SCREENFULL) (24 EMACS.CX) (26 EMACS.CZ) (41 EMACS.RPAREN) (93 EMACS.RBRACKET) (125 EMACS.RBRACE) (127 EMACS.BACK.DELETE.BYTE)))) (RPAQ? EMACS.MLIST (QUOTE ((1 EMACS.GOTO.BOD) (2 EMACS.SAFE.BACK.SEXPR) (5 EMACS.GOTO.EOD) (6 EMACS.FWD.SEXPR) (11 EMACS.KILL.SEXPR) (62 EMACS.GOTO.BOF) (60 EMACS.GOTO.EOF) (66 EMACS.BACK.WORD) ( 68 EMACS.FWD.DELETE.WORD) (69 EMACS.EDIT) (70 EMACS.FWD.WORD) (71 EMACS.GRIND) (52 EMACS.SNARF) (86 EMACS.PREVIOUS.SCREENFULL) (94 EMACS.JOIN.LINES) (127 EMACS.BACK.DELETE.WORD)))) (RPAQ? EMACS.XLIST (QUOTE ((22 EMACS.CXCV) (23 EMACS.CXCW) (26 EMACS.CXCZ)))) (RPAQ? \BQUOTE.LEVEL 0) (ACCESSFNS EMACSSTREAM ((TEXTOBJ (fetch (STREAM F3) of DATUM)) (WINDOW (fetch (TEXTOBJ SELWINDOW) of ( fetch (EMACSSTREAM TEXTOBJ) of DATUM))) (SELECTION (fetch (TEXTOBJ SEL) of (fetch (EMACSSTREAM TEXTOBJ ) of DATUM))) (CARETPTR (EMACS.GETCARETPTR DATUM)) (FILEPTR (GETFILEPTR DATUM)) (DIRTY (fetch (TEXTOBJ \DIRTY) of (fetch (EMACSSTREAM TEXTOBJ) of DATUM))) (BCACHE (EMACS.BCACHE DATUM)) (SCACHE ( EMACS.SCACHE DATUM)))) (PUTPROPS ACCESSFNS EMACS.TAB 2) (PUTPROPS DATATYPE EMACS.TAB 2) (PUTPROPS DEFEXPR EMACS.TAB 2) (PUTPROPS DEFFEXPR EMACS.TAB 2) (PUTPROPS DEFVAR EMACS.TAB 2) (PUTPROPS DO EMACS.TAB 1) (PUTPROPS FOR EMACS.TAB 1) (PUTPROPS LAMBDA EMACS.TAB 2) (PUTPROPS PROG EMACS.TAB 2) (PUTPROPS RECORD EMACS.TAB 2) (PUTPROPS SELECT EMACS.TAB 2) (PUTPROPS SELECTQ EMACS.TAB 2) (PUTPROPS UNTIL EMACS.TAB 1) (PUTPROPS WHILE EMACS.TAB 1) (RPAQ? EMACS.DELIMS NIL) (RPAQ? EMACS.SDELIMS NIL) (RPAQ? EMACS.LDELIMS NIL) (RPAQ? EMACS.RDELIMS NIL) (RPAQ? EMACS.SCACHE NIL) (RPAQ? EMACS.BCACHE NIL) (RPAQ? EMACS.SYNTAX NIL) (RPAQ? EMACS.CR 1) (RPAQ? EMACS.WS 2) (RPAQ? EMACS.SD 4) (RPAQ? EMACS.NONCR 8) (RPAQ? EMACS.NONWS 16) (RPAQ? EMACS.NONSD 32) (RPAQ? EMACS.BQ 64) (RPAQ? EMACS.ALPHA 128) (RPAQ? EMACS.BD 256) (RPAQ? EMACS.SPACE 512) (EMACS.INIT) (MOVD? (QUOTE TEDIT.SELECT.LINE.SCANNER) (QUOTE OLD.TEDIT.SELECT.LINE.SCANNER)) (MOVD (QUOTE NEW.TEDIT.SELECT.LINE.SCANNER) (QUOTE TEDIT.SELECT.LINE.SCANNER)) (MOVD (QUOTE EMACS) (QUOTE TEDIT)) (PUTPROPS EMACS COPYRIGHT ("Xerox Corporation" 1985)) NIL