(FILECREATED "19-Sep-84 21:57:14" ("compiled on " {ERIS}EMACS.;46) "19-Sep-84 12:21:06" recompiled changes: 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.CHARS EMACS.BOFP EMACS.EOFP EMACS.CCHAR EMACS.PEEKBIN EMACS.FCHAR EMACS.FWORD EMACS.FSKIP EMACS.FSKIPTO EMACS.BCHAR EMACS.BWORD EMACS.BSKIP EMACS.BSKIPTO EMACS.GOTO.BOL EMACS.BACK.CHAR EMACS.FWD.DELETE.CHAR EMACS.GOTO.EOL EMACS.FWD.CHAR EMACS.KILL.LINE EMACS.REDISPLAY EMACS.NEXT.LINE EMACS.PREVIOUS.LINE EMACS.QUOTE.CHAR EMACS.SEARCH EMACS.TRANSPOSE.CHARS EMACS.NEXT.SCREENFULL EMACS.CXCV EMACS.CXCW EMACS.CXCZ EMACS.FWD.SEXPR EMACS.BACK.DELETE.CHAR EMACS.GOTO.BOD EMACS.GOTO.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 TEDIT.GETINPUT EMACS.DELIMS EMACS.CR EMACS.TAB EMACS.TAB.INDENT 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.BACK.SEXPRS EMACS.BACK.SEXPR EMACS.BACK.SEXPR1 EMACS.INIT.SYNTAX in "INTERLISP-D 19-Sep-84 ..." dated "19-Sep-84 12:36:46") (FILECREATED "19-Sep-84 21:54:29" {ERIS}EMACS.;46 66208 changes to: (FNS EMACS.TEDIT1 EMACS.BCACHE EMACS.INIT EMACS.INIT.BACKGROUND DEDITEmacs EMACS.INIT.COMMANDS EMACS.COMMAND EMACS.OPERATE EMACS.GETKEY EMACS EMACS.PROCESS EMACS.WINDOW EMACS.SETFILEPTR EMACS.GETCARETPTR EMACS.SETCARETPTR EMACS.SHOWCARET EMACS.BOL EMACS.EOL EMACS.DELETE.CHARS EMACS.BOFP EMACS.EOFP EMACS.CCHAR EMACS.PEEKBIN EMACS.FCHAR EMACS.FWORD EMACS.FSKIP EMACS.FSKIPTO EMACS.BCHAR EMACS.BWORD EMACS.BSKIP EMACS.BSKIPTO EMACS.GOTO.BOL EMACS.BACK.CHAR EMACS.FWD.DELETE.CHAR EMACS.GOTO.EOL EMACS.FWD.CHAR EMACS.KILL.LINE EMACS.REDISPLAY EMACS.NEXT.LINE EMACS.PREVIOUS.LINE EMACS.QUOTE.CHAR EMACS.SEARCH EMACS.TRANSPOSE.CHARS EMACS.NEXT.SCREENFULL EMACS.CXCV EMACS.CXCW EMACS.CXCZ EMACS.FWD.SEXPR EMACS.BACK.DELETE.CHAR EMACS.GOTO.BOD EMACS.GOTO.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 TEDIT.GETINPUT EMACS.DELIMS EMACS.CR EMACS.TAB EMACS.TAB.INDENT 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.BACK.SEXPRS EMACS.BACK.SEXPR EMACS.BACK.SEXPR1 EMACS.INIT.SYNTAX) (RECORDS EMACSSTREAM) previous date: "19-Sep-84 21:33:26" {ERIS}EMACS.;45) 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) I ocPjPcdcVcg šSo¿Ucgg gggh(105Q CHANGECCODE 71Q DEFDEDITCOM 60Q EMACS.INIT.BACKGROUND 55Q EMACS.INIT.SYNTAX 52Q EMACS.INIT.COMMANDS 30Q BOUNDP) (102Q \TEDIT.COMMAND.LOOP 77Q TTYDISPLAYSTREAM 74Q NILL 66Q DEDITEmacs 63Q Emacs 35Q FMTSPEC 25Q TEDIT.DEFAULT.FMTSPEC) ( 41Q (70Q) 3 ((10Q HELP))) EMACS.INIT.BACKGROUND D1 (F 4 BackgroundMenuCommands F 5 BackgroundMenu) 4T1HµIco hc dgð¨»Jµ KhZY¿HX°ÙK&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 hiQ 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) |l€ghjcl€ghjcl€ghjcVdRHH*µñWdSHH*µñWdTHH*µñlÿjIdHñ‘hd U¿IkØY°í(163Q TEDIT.SETFUNCTION 157Q EMACS.COMMAND 41Q ARRAY 25Q ARRAY 11Q ARRAY) (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@l ›HlÚ¸b°ðV@(Y@lð¦@dlð—¿W°lð•Wl€@ñ¦W@l€ÙV@(Y³HA Zjð³A l ž@do ¥¿¿@ »HkÙjð’AK…AHK ¿AJHØ °+HkMLñ«AkI¿MkØ]°óW@(WWWääåjð“¿A h(306Q EMACS.SHOWCARET 301Q EMACS.FLUSH.CACHE 226Q EMACS.SETFILEPTR 216Q TEDIT.INSERT 213Q ALLOCSTRING 173Q MKSTRING 170Q CHARACTER 163Q EMACS.FLUSH.CACHE 156Q MEMB 144Q EQUAL 137Q \BACKPEEKBIN 126Q GETFILEPTR 77Q EMACS.GETKEY 64Q EMACS.GETKEY 33Q EMACS.GETKEY 22Q EQUAL 12Q EMACS.SETFILEPTR 7 EMACS.GETCARETPTR) NIL ( 153Q (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) ]@µA§BC b¿B²@AiClð²ç@ggb¿°Øgg@hgAhgChhggX 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 hhPc¿gi hhhPc¿gi hhhPc¿RQTUcci(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 ‘h‚g[ ¿K’H(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 XgAH(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) 6 @ÉÉXdÉdgð™¿HÉkÙgð–HÉ (63Q 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) *@ XAdjñ¡¿jdHñ‘¿Hb@AkØjg@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.CHARS D1 (P 1 LENGTH P 0 PTR I 2 PTR2 I 1 PTR1 I 0 STREAM) F @ XjAñ¡A€jb@ dBñ‘¿BbdjAÙkØØY@AkØIHdAñ£¿@H‰Bñ¢@Aƒ@HIÙ h(102Q EMACS.SETFILEPTR 54Q TEDIT.DELETE 24Q GETEOFPTR 6 GETFILEPTR) NIL () EMACS.BOFP D1 (I 0 STREAM) @ jð(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.FCHAR D1 (I 0 STREAM) @ ¡@ h(3 EMACS.EOFP) NIL () EMACS.FWORD D1 (I 0 STREAM F 0 EMACS.WS F 1 EMACS.NONWS) @P @Q h(11Q EMACS.FSKIP 4 EMACS.FSKIP) NIL () EMACS.FSKIP D1 (I 2 LIMIT I 1 CLASS I 0 STREAM F 0 EMACS.SYNTAX) 3B¦@ b¿@ Býñ´!P@ d¥d¡µn(Aåjð£@ °Úh(26Q EMACS.PEEKBIN 14Q GETFILEPTR 5 GETEOFPTR) NIL () EMACS.FSKIPTO D1 (I 1 CLASS I 0 STREAM F 0 EMACS.SYNTAX) "@ ³P@ d¥d¡µn(Aåjð³ãh(3 EMACS.EOFP) NIL () EMACS.BCHAR D1 (I 0 STREAM) @ £@ h(10Q \BACKBIN 3 EMACS.BOFP) 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) 1B£jb¿@ Bñ´#P@ d¥d¡µn(Aåjð¥@ °Ùh(53Q \BACKBIN 22Q \BACKPEEKBIN 11Q GETFILEPTR) NIL () EMACS.BSKIPTO D1 (I 1 CLASS I 0 STREAM F 0 EMACS.SYNTAX) $@ ³P@ d¥d¡µn(Aåjð³áh(12Q \BACKBIN 3 EMACS.BOFP) NIL () EMACS.GOTO.BOL D1 (I 0 STREAM F 0 EMACS.NONCR) @P h(4 EMACS.BSKIP) NIL () EMACS.BACK.CHAR D1 (I 0 STREAM) @ h(3 EMACS.BCHAR) NIL () EMACS.FWD.DELETE.CHAR D1 (P 0 PTR I 0 STREAM) @ X@Hdh(15Q EMACS.DELETE.CHARS 6 GETFILEPTR) NIL () EMACS.GOTO.EOL D1 (I 0 STREAM F 0 EMACS.NONCR) @P h(4 EMACS.FSKIP) NIL () EMACS.FWD.CHAR D1 (I 0 STREAM) @ h(3 EMACS.FCHAR) 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.CHARS 41Q GETEOFPTR 20Q GETFILEPTR 14Q EMACS.FSKIP 6 GETFILEPTR) NIL () EMACS.REDISPLAY D1 (P 0 PTR I 0 STREAM) @ X@ÉÉ @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Ù¾dNñ‘¿N½@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Ù½dMñ‘¿M¼@JLØ h(70Q EMACS.SETFILEPTR 44Q EMACS.BOL 14Q EMACS.BOL 6 GETFILEPTR) NIL () EMACS.QUOTE.CHAR 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 TEXTOBJ F 2 RESETY F 3 OFILE F 4 CH) &g` hhPc¿QS hdi cci(36Q TEDIT.FIND 27Q MKSTRING 10Q CURSOR) (5 WAITINGCURSOR 2 CURSOR) () EMACS.SEARCHA0001A0002 D1 (NAME ERRORSET P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 SEL F 4 TEXTOBJ F 5 OFILE F 6 CH F 7 RESETVARSLST F 10Q W F 11Q STREAM F 12Q LISPXHIST F 13Q RESETY F 14Q PTR) oT hWc¿TgF¿Wg c ¿oUoc ¢±ÅWgU¿TÉc ¿W!Wog ‘h‚gZ ¿J“¿V²MSV¿SV ¿SVVÙkØ¿Sg¿S ¿ST ¿T ¿Shi¿Wd °9` ¿o` ¿U` ¿o` ¿` ¿Shi¿WW ¿Tmÿ¿mÿci(370Q EMACS.SETFILEPTR 360Q \SHOWSEL 351Q TERPRI 342Q PRIN1 327Q PRIN1 317Q PRIN1 304Q FRESHLINE 274Q EMACS.GETCARETPTR 265Q \SHOWSEL 256Q TEDIT.NORMALIZECARET 251Q \FIXSEL 243Q TEDIT.RESET.EXTEND.PENDING.DELETE 156Q ERROR! 150Q RESETRESTORE 136Q EMACS.SEARCHA0001A0002A0003 114Q \SHOWSEL 100Q PUTWINDOWPROP 61Q TEDIT.GETINPUT 42Q GETWINDOWUSERPROP 7 \TEDIT.MARKACTIVE) (375Q TEXTOBJ 346Q PROMPTWINDOW 337Q PROMPTWINDOW 324Q PROMPTWINDOW 314Q PROMPTWINDOW 301Q PROMPTWINDOW 234Q RIGHT 231Q SELECTION 212Q SELECTION 200Q SELECTION 167Q SELECTION 144Q ERROR 133Q INTERNAL 105Q TEXTOBJ 74Q TEDIT.LAST.FIND.STRING 37Q TEDIT.LAST.FIND.STRING 27Q Find 24Q TEXTOBJ) ( 334Q "' not found." 311Q "String '" 130Q (EMACS.SEARCHA0001A0002A0003) 56Q (15Q 12Q 33Q 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 ‘h‚gZ ¿J’i(36Q ERROR! 30Q RESETRESTORE 16Q EMACS.SEARCHA0001A0002) (24Q ERROR 13Q INTERNAL) ( 10Q (EMACS.SEARCHA0001A0002)) EMACS.SEARCH D1 (P 5 CH P 4 SEL P 3 OFILE P 2 W P 1 TEXTOBJ P 0 PTR I 0 STREAM) &`@ X@ÉY@ÉÉZoi h(42Q EMACS.SEARCHA0001 6 GETFILEPTR) (27Q TEXTOBJ 22Q STREAM 13Q STREAM) ( 36Q (EMACS.SEARCHA0001)) EMACS.TRANSPOSE.CHARS D1 (P 2 CH P 1 CODE P 0 PTR I 0 STREAM) J0@ ³@@ ³:@ X@ Yddd¥d¡—¿d º@Hd@HkÙ @JH@HkØ h(106Q EMACS.SETFILEPTR 77Q TEDIT.INSERT 71Q EMACS.SETFILEPTR 62Q EMACS.DELETE.CHARS 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@ÉÉXjYHg hH ÙZ@ÉhFHIJh(63Q \TEDIT.SCROLLFN 37Q FONTHEIGHT 34Q DSPFONT 27Q GETWINDOWPROP) (52Q TEXTOBJ 45Q STREAM 24Q HEIGHT 13Q TEXTOBJ 6 STREAM) () EMACS.CXCV D1 (P 0 FILE I 0 STREAM) 7@Éo Xd´#@ÉÉ.”@ ¿@ÉH @j h(63Q EMACS.SETFILEPTR 56Q TEDIT.GET 43Q EMACS.CXCW 17Q TEDIT.GETINPUT) (50Q STREAM 34Q TEXTOBJ 27Q STREAM 6 STREAM) ( 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 F 1 EMACS.READTABLE) @Q XgH h(17Q PROCESS.EVAL 7 READ) (13Q EXEC) () EMACS.FWD.SEXPRA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 STREAM F 2 EMACS.READTABLE F 3 RESETY) "gd go ¿Pc¿QR ci(34Q READ 21Q SETTOPVAL 6 GETTOPVAL) (12Q \BQUOTELEVEL 2 \BQUOTELEVEL) ( 16Q 7777777777Q) EMACS.FWD.SEXPR D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 STREAM F 3 LISPXHIST F 4 RESETVARSLST) #S!Tog ‘h‚gZ ¿J´h(37Q ERROR! 30Q RESETRESTORE 16Q EMACS.FWD.SEXPRA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (EMACS.FWD.SEXPRA0001)) EMACS.BACK.DELETE.CHAR D1 (P 0 PTR I 0 STREAM) @ X@HkÙHkÙh(21Q EMACS.DELETE.CHARS 6 GETFILEPTR) NIL () EMACS.GOTO.BOD D1 (P 0 CODE I 0 STREAM F 1 EMACS.NONCR F 2 EMACS.SYNTAX F 3 EMACS.NONWS) )@ @ ³@Q ¿R@ (Såjð´ @ ¿°ãh(42Q EMACS.BCHAR 27Q EMACS.CCHAR 21Q EMACS.BSKIP 12Q EMACS.BOFP 6 EMACS.BCHAR) NIL () EMACS.GOTO.EOD D1 (P 0 CODE I 0 STREAM F 1 EMACS.NONCR F 2 EMACS.SYNTAX F 3 EMACS.NONWS) '@ @ ³@Q ¿@ ¿R@ (Såjð³åh(34Q EMACS.CCHAR 26Q EMACS.FCHAR 21Q EMACS.FSKIP 12Q EMACS.EOFP 6 EMACS.FCHAR) NIL () EMACS.KILL.SEXPR D1 (P 1 PTR2 P 0 PTR1 I 0 STREAM F 2 EMACS.READTABLE) " @ X@R @ Y@HIkÙ@H h(36Q EMACS.SETFILEPTR 31Q EMACS.DELETE.CHARS 20Q GETFILEPTR 14Q READ 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 (I 0 STREAM) @ h(3 EMACS.BWORD) NIL () EMACS.FWD.DELETE.WORD D1 (P 1 PTR2 P 0 PTR1 I 0 STREAM F 2 EMACS.WS F 3 EMACS.NONWS) ' @ X@R @S @ Y@HIkÙ@H h(43Q EMACS.SETFILEPTR 36Q EMACS.DELETE.CHARS 25Q GETFILEPTR 21Q EMACS.FSKIP 14Q EMACS.FSKIP 6 GETFILEPTR) NIL () EMACS.EDIT D1 (P 2 PTR2 P 1 PTR1 P 0 EXPR I 0 STREAM F 3 EMACS.READTABLE) 10@ @ Y@S X@ Z@IJkÙH Xdhddd@ h(55Q PRINTDEF 42Q EDITE 36Q EMACS.DELETE.CHARS 25Q GETFILEPTR 20Q READ 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 F 3 EMACS.READTABLE) ,0@ @ Y@S X@ Z@IJkÙHhddd@ h(50Q PRINTDEF 36Q EMACS.DELETE.CHARS 25Q GETFILEPTR 20Q READ 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@ÉÉXjYhH Hg ÙZ@ÉhFHIJh(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) t€@ X@H Y@H ZIdjð³YkÙ\@L [@I @W @ dKñ¡¿K]@I @W @ JkØ_¿dOñ’¿O^@M @MNkÙ@l @MkØ h(160Q EMACS.SETFILEPTR 151Q \BOUT 143Q EMACS.DELETE.CHARS 133Q EMACS.SETFILEPTR 107Q GETFILEPTR 103Q EMACS.FSKIP 75Q EMACS.SETFILEPTR 61Q GETFILEPTR 55Q EMACS.BSKIP 47Q EMACS.SETFILEPTR 41Q EMACS.BOL 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.CHARS 17Q GETFILEPTR 13Q EMACS.BWORD 6 GETFILEPTR) NIL () NEW.TEDIT.SELECT.LINE.SCANNER D1 (P 1 PTR P 0 SELECTION I 6 SELOPERATION I 5 WORDSELFLG I 4 REGION I 3 LINE.LIST I 2 TEXTOBJ I 1 Y I 0 X) ; @ABCDEF Xd gð²Hg¿BÉ0HÉkÙ ¿H(67Q EMACS.FLUSH.CACHE 63Q EMACS.SETFILEPTR 22Q TYPENAME 15Q OLD.TEDIT.SELECT.LINE.SCANNER) (54Q SELECTION 46Q TEXTOBJ 37Q LEFT 34Q SELECTION 25Q SELECTION) () TEDIT.GETINPUT D1 (P 2 ANSWER P 1 PW P 0 WINDOW I 2 DELIMITER.LIST I 1 DEFAULTSTRING I 0 PROMPTSTRING) @0g Xdg Y@`ð›Ab¿Bb¿hb¿I @AhIhdBµo (75Q PROMPTFORWORD 54Q CLEARW 23Q GETWINDOWUSERPROP 13Q PROCESSPROP 5 THIS.PROCESS) (32Q TEXTOBJTYPE# 20Q PROMPTWINDOW 10Q WINDOW) ( 71Q (15Q 12Q 11Q 33Q)) EMACS.DELIMS D1 (P 0 BUCKET I 1 RCHARCODE I 0 LCHARCODE F 2 EMACS.DELIMS F 3 EMACS.COMMANDS F 4 EMACS.SYNTAX F 5 EMACS.NONWS F 6 EMACS.NONCR F 7 EMACS.RDELIMS F 10Q EMACS.SDELIMS F 11Q EMACS.LDELIMS F 12Q EMACS.SD F 13Q EMACS.BD F 14Q EMACS.NONSD) ƒ @AXdR ³tdRc@dAÙjð²$¿T@UVWää*¿S@d *¿@Wc¿°EAh°d¹TIVUWWäää*¿µîS@d *¿SAd *¿@Wc¿AWch(160Q EMACS.RDELIM.COMMAND 155Q MKSTRING 152Q CHARACTER 142Q EMACS.LDELIM.COMMAND 137Q MKSTRING 134Q CHARACTER 61Q EMACS.SDELIM.COMMAND 56Q MKSTRING 53Q CHARACTER 13Q MEMBER) NIL () EMACS.CR D1 (P 0 PTR I 0 STREAM F 1 EMACS.SCACHE F 2 EMACS.BCACHE) R@ X@l @HkØ @ gð³/@ÉÉ ¿@Q ¿nè ¿@HkØ ¿gc¿hch(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.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]JkÙIOOñ³2@ [l ‘i¾WKd¥d¡µn(Wåjð«MkØ½OkØ_°ÍN²#@IdMkÙØ¿Ljð³G@Lo IkØ°5MdLÙjð³-Lñ@IdMLÙkÙØ°LMñ²@LMÙo IkØ‚¿HIMØñ£@IL„@HLMÙØ h(311Q EMACS.SETFILEPTR 265Q SHOULDNT 261Q TEDIT.INSERT 253Q ALLOCSTRING 231Q EMACS.DELETE.CHARS 200Q TEDIT.INSERT 172Q ALLOCSTRING 153Q EMACS.DELETE.CHARS 65Q EQUAL 35Q EMACS.SETFILEPTR 27Q EMACS.EOL 21Q EMACS.BOL 13Q EMACS.TAB.INDENT 6 GETFILEPTR) NIL ( 250Q " " 167Q " ") EMACS.TAB.INDENT D1 (P 12Q I P 10Q ANSWER P 7 INDENT P 6 ATOM P 5 IEOL P 4 IBOL P 3 IPTR P 2 PBOL P 1 BOL P 0 PTR I 0 STREAM F 13Q EMACS.WS F 14Q EMACS.READTABLE F 15Q EMACS.BCACHE F 16Q EMACS.TAB.LIST) @ ¸@H Yjð–j_¿±ã@I ¿@IkÙ º@WJ¿@ Jñ¦j_¿±¿@ ¿Wdd¥d¡—¿j_¿±¤kØ»@K ¿@K ½@WM¿@ Mýñ²G@ »@ ³"@ W gð²@W W ™KkØ°@ ¿@WM¿@ Mýñ”@ »@K ¼@L ¿j_¿KkÙL OOñ³@ l Ùjð”Ol‚OkØ_¿OkØ_°á@H O(374Q EMACS.SETFILEPTR 307Q EMACS.SETFILEPTR 301Q EMACS.BOL 273Q GETFILEPTR 263Q GETFILEPTR 256Q EMACS.FSKIP 246Q EMACS.FWD.SEXPR 234Q MEMB 227Q READ 213Q GETSYNTAX 206Q \PEEKBIN 200Q EMACS.EOFP 173Q GETFILEPTR 162Q GETFILEPTR 155Q EMACS.FSKIP 145Q EMACS.EOL 137Q EMACS.SETFILEPTR 77Q EMACS.BCACHE 61Q GETFILEPTR 54Q EMACS.BSKIP 44Q EMACS.BOL 34Q EMACS.SETFILEPTR 14Q EMACS.BOL 6 GETFILEPTR) (216Q OTHER) () 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) )A XA@ AHkØ A gð”A ƒA h(45Q EMACS.CLOSE.STRING 40Q EMACS.OPEN.STRING 27Q EMACS.SCACHE 23Q EMACS.SETFILEPTR 14Q TEDIT.INSERT 6 GETFILEPTR) (32Q OUTSIDE) () EMACS.LDELIM D1 (P 0 PTR I 1 STREAM I 0 LDELIM) %A XA@ AHkØ A gð´A h(41Q EMACS.OPEN.BALANCE 27Q EMACS.SCACHE 23Q EMACS.SETFILEPTR 14Q TEDIT.INSERT 6 GETFILEPTR) (32Q OUTSIDE) () EMACS.RDELIM D1 (P 0 PTR I 1 STREAM I 0 RDELIM) %A XA@ AHkØ A gð´A h(41Q EMACS.CLOSE.BALANCE 27Q EMACS.SCACHE 23Q EMACS.SETFILEPTR 14Q TEDIT.INSERT 6 GETFILEPTR) (32Q OUTSIDE) () EMACS.OPEN.STRING D1 (P 0 LPTR I 0 STREAM F 1 EMACS.SCACHE) @ kÙdch(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 @ kÙY@I @ [@V @ @ X@ ZdKÙjð\d™@H ¿lÈ°@ÉÉ ¿@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.BCHAR 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) "@ kÙXQd¥d¡“dh‚HQch(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) ”`@ XdkÙZ@J @ \@ Vd¥d¡hð]d²BV¹@I ¿@ »@I ¿KW LÙjð“lÈ°@ÉÉ ¿nè ¿Vc°@V ¿@ÉÉ ¿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@ Hýñ©Ic@H I@SH¿@ ¿@ Hýñ²ã@ ¹@SH¿@ ¿@ Hýñ²Ég¹°»(123Q GETFILEPTR 116Q EMACS.FCHAR 111Q EMACS.FSKIP 102Q GETFILEPTR 71Q GETFILEPTR 64Q EMACS.FCHAR 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 3 EMACS.BCACHE) d0Sµ^@ ¸@ Ygð³@I ¿@ ©@ l ’I°,@ ¥@ °!@ jð©@ l ”@ ˆ@ hº@H ¿Jc(135Q EMACS.SETFILEPTR 125Q 1- 122Q GETFILEPTR 115Q GETFILEPTR 110Q = 103Q \BACKPEEKBIN 74Q GETFILEPTR 66Q GETFILEPTR 61Q EMACS.BACK.SEXPRS 51Q = 44Q \BACKPEEKBIN 37Q EMACS.BOFP 32Q EMACS.SETFILEPTR 16Q EMACS.SCACHE 11Q GETFILEPTR) (22Q OUTSIDE) () EMACS.BACK.SEXPRSA0001 D1 (NAME ERRORSET F 0 STREAM) P i(3 EMACS.BACK.SEXPR1) NIL () EMACS.BACK.SEXPRS D1 (P 1 ANSWER P 0 PTR I 0 STREAM F 2 EMACS.WS) > @R @ Xjð³,o ¥@ I@ jð³H@ Ùjðª@ l Ùjð²Ïi(63Q \BACKPEEKBIN 53Q GETFILEPTR 42Q GETFILEPTR 34Q FLASHWINDOW 27Q EMACS.BACK.SEXPRSA0001 13Q GETFILEPTR 7 EMACS.BSKIP) NIL ( 24Q (EMACS.BACK.SEXPRSA0001)) EMACS.BACK.SEXPRA0001 D1 (NAME ERRORSET F 0 STREAM) P i(3 EMACS.BACK.SEXPR1) NIL () EMACS.BACK.SEXPR D1 (P 0 PTR I 0 STREAM F 1 EMACS.WS) /@Q @ Xdjð§o ¥@ hH@ Ùjð“@ i(53Q \BACKBIN 43Q GETFILEPTR 34Q FLASHWINDOW 27Q EMACS.BACK.SEXPRA0001 13Q GETFILEPTR 7 EMACS.BSKIP) NIL ( 24Q (EMACS.BACK.SEXPRA0001)) EMACS.BACK.SEXPR1 D1 (P 1 LDELIM P 0 RDELIM I 0 STREAM F 3 EMACS.WS F 4 EMACS.DELIMS F 5 EMACS.BQ F 6 EMACS.ALPHA F 7 EMACS.LDELIMS) ¤0@S @ “¿@ XTZµhYdµ@V°|dHÙjð¤¿J°è°êHÙjð²%@ ¿@ ©@ IÙjð²î@ “¿@ °F@ ¿@S ¿@ ”¿Š@ W ³@ ¿@ ª@ l Ùjð²Ò°Ì@ ¿@U h(240Q EMACS.BSKIP 232Q \BACKBIN 224Q ERROR! 212Q \BACKPEEKBIN 205Q EMACS.BOFP 200Q EMACS.BACK.SEXPR1 172Q MEMB 165Q \BACKPEEKBIN 157Q ERROR! 153Q EMACS.BOFP 146Q EMACS.BSKIP 140Q \BACKBIN 132Q \BACKBIN 125Q ERROR! 121Q EMACS.BOFP 107Q \BACKPEEKBIN 102Q EMACS.BOFP 75Q \BACKBIN 24Q \BACKPEEKBIN 17Q ERROR! 13Q EMACS.BOFP 7 EMACS.BSKIP) NIL () 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.CR F 11Q EMACS.BQ F 12Q EMACS.DELIMS) Œ ngjdcnjIHñ³RITUSVäää*¿IkØY°íodRHWTSää*µïRl WWSää*o°dRHUTSWVääää*µëhcl(l) l[l] l{l} l"d h(210Q EMACS.DELIMS 202Q EMACS.DELIMS 173Q EMACS.DELIMS 164Q EMACS.DELIMS 12Q ARRAY) (5 WORD) ( 121Q (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.CHAR) (4 EMACS.FWD.DELETE.CHAR) (5 EMACS.GOTO.EOL) (6 EMACS.FWD.CHAR) (9 EMACS.TAB) (11 EMACS.KILL.LINE) (12 EMACS.REDISPLAY) (14 EMACS.NEXT.LINE) (16 EMACS.PREVIOUS.LINE) (17 EMACS.QUOTE.CHAR) (19 EMACS.SEARCH) (20 EMACS.TRANSPOSE.CHARS) (22 EMACS.NEXT.SCREENFULL) (24 EMACS.CX ) (26 EMACS.CZ) (41 EMACS.RPAREN) (93 EMACS.RBRACKET) (125 EMACS.RBRACE) (127 EMACS.BACK.DELETE.CHAR)) )) (EMACS.MLIST (QUOTE ((1 EMACS.GOTO.BOD) (2 EMACS.BACK.SEXPR) (5 EMACS.GOTO.EOD) (6 EMACS.FWD.SEXPR) (11 EMACS.KILL.SEXPR) (60 EMACS.GOTO.BOF) (62 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)))) (\BQUOTELEVEL 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.CHARS EMACS.BOFP EMACS.EOFP EMACS.CCHAR EMACS.PEEKBIN EMACS.FCHAR EMACS.FWORD EMACS.FSKIP EMACS.FSKIPTO EMACS.BCHAR EMACS.BWORD EMACS.BSKIP EMACS.BSKIPTO EMACS.GOTO.BOL EMACS.BACK.CHAR EMACS.FWD.DELETE.CHAR EMACS.GOTO.EOL EMACS.FWD.CHAR EMACS.KILL.LINE EMACS.REDISPLAY EMACS.NEXT.LINE EMACS.PREVIOUS.LINE EMACS.QUOTE.CHAR EMACS.SEARCH EMACS.TRANSPOSE.CHARS EMACS.NEXT.SCREENFULL EMACS.CXCV EMACS.CXCW EMACS.CXCZ EMACS.FWD.SEXPR EMACS.BACK.DELETE.CHAR EMACS.GOTO.BOD EMACS.GOTO.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 TEDIT.GETINPUT) (P (MOVD (QUOTE EMACS) (QUOTE TEDIT)) (MOVD? (QUOTE TEDIT.SELECT.LINE.SCANNER) (QUOTE OLD.TEDIT.SELECT.LINE.SCANNER)) (MOVD (QUOTE NEW.TEDIT.SELECT.LINE.SCANNER) (QUOTE TEDIT.SELECT.LINE.SCANNER)))) (COMS (* BALANCE *) (INITVARS ( EMACS.TAB.LIST (QUOTE (PROG DEFEXPR DEFFEXPR DEFVAR LAMBDA DATATYPE RECORD ACCESSFNS SELECT SELECTQ))) (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.DELIMS NIL)) (FNS EMACS.DELIMS EMACS.CR EMACS.TAB EMACS.TAB.INDENT 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.BACK.SEXPRS EMACS.BACK.SEXPR EMACS.BACK.SEXPR1 EMACS.INIT.SYNTAX)) (P (EMACS.INIT)))) (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.CHAR) (4 EMACS.FWD.DELETE.CHAR) (5 EMACS.GOTO.EOL) (6 EMACS.FWD.CHAR) (9 EMACS.TAB) (11 EMACS.KILL.LINE) (12 EMACS.REDISPLAY) (14 EMACS.NEXT.LINE) (16 EMACS.PREVIOUS.LINE) (17 EMACS.QUOTE.CHAR) (19 EMACS.SEARCH) (20 EMACS.TRANSPOSE.CHARS) (22 EMACS.NEXT.SCREENFULL) (24 EMACS.CX) (26 EMACS.CZ) (41 EMACS.RPAREN) (93 EMACS.RBRACKET) (125 EMACS.RBRACE) (127 EMACS.BACK.DELETE.CHAR)))) (RPAQ? EMACS.MLIST (QUOTE ((1 EMACS.GOTO.BOD) (2 EMACS.BACK.SEXPR) (5 EMACS.GOTO.EOD) (6 EMACS.FWD.SEXPR) (11 EMACS.KILL.SEXPR) (60 EMACS.GOTO.BOF) (62 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? \BQUOTELEVEL 0) (ACCESSFNS EMACSSTREAM ((TEXTOBJ (STREAM.F3 DATUM)) (WINDOW (fetch (TEXTOBJ \WINDOW) 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)))) (MOVD (QUOTE EMACS) (QUOTE TEDIT)) (MOVD? (QUOTE TEDIT.SELECT.LINE.SCANNER) (QUOTE OLD.TEDIT.SELECT.LINE.SCANNER)) (MOVD (QUOTE NEW.TEDIT.SELECT.LINE.SCANNER) (QUOTE TEDIT.SELECT.LINE.SCANNER)) (RPAQ? EMACS.TAB.LIST (QUOTE (PROG DEFEXPR DEFFEXPR DEFVAR LAMBDA DATATYPE RECORD ACCESSFNS SELECT SELECTQ))) (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.DELIMS NIL) (EMACS.INIT) (PUTPROPS EMACS COPYRIGHT ("Xerox Corporation" 1984)) NIL