(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "19-Feb-2021 11:40:35" ("compiled on " {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EMACS.;9) " 9-Apr-2000 18:01:32" brecompiled exprs%: nothing in "Medley 3.5 Full Sysout 17-Feb-2021 ..." dated "17-Feb-2021 13:51:51") (FILECREATED "19-Feb-2021 11:40:35" {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EMACS.;9 86790 changes to%: (VARS EMACSCOMS) previous date%: "19-Feb-2021 11:24:35" {DSK}kaplan>Local>medley3.5>git-medley>lispusers>EMACS.;6) EMACS.INIT :D8 (F 0 TEDIT.INTERRUPTS F 1 EMACS.READTABLE) Coc` co ggg h(63 CHANGECCODE 43 ADDTOVAR 33 EMACS.INIT.BACKGROUND 28 EMACS.INIT.SYNTAX 23 EMACS.INIT.COMMANDS 16 COPYREADTABLE) (58 \TEDIT.COMMAND.LOOP 53 TTYDISPLAYSTREAM 48 NILL 11 FILERDTBL) ( 38 (*DEDIT-MENU-COMMANDS* (Emacs DEDITEmacs)) 4 ((7 HELP))) EMACS.INIT.BACKGROUND :D8 (F 4 BackgroundMenuCommands F 5 BackgroundMenu) 9T1HIco hc dgJ KhZYHXK&Z(21 ADDTOVAR) (33 TEdit) ( 16 (BackgroundMenuCommands (EMACS (QUOTE (EMACS)) "Opens an Edit Window."))) DEDITEmacs :D8 (P 0 EXPR F 1 EMACS.READTABLE) 2i Xd hi Q XH h(46 DEDITZAPCAR 40 TOPSELECTION 34 READ 28 EMACS 21 MKSTRING 13 TOPSELECTION 8 CURSOR) NIL () EMACS.INIT.COMMANDS :D8 (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 8 EMACS.XLIST) lghj clghj clghj cVdRHH WdSHH WdTHH ljIdHhd U IkY(146 TEDIT.SETFUNCTION 140 EMACS.COMMAND 116 SETA 91 SETA 66 SETA 45 ARRAY 29 ARRAY 13 ARRAY) (38 POINTER 22 POINTER 6 POINTER) () EMACS.COMMAND :D8 (L (0 I)) gog@ohNIL (14 EMACS.OPERATE 4 LAMBDA) ( 20 (STREAM) 9 (STREAM)) EMACS.OPERATE :D8 (P 7 J P 5 CH P 4 PTR P 3 FN P 2 N P 1 I P 0 TEXTOBJ I 0 STREAM F 8 EMACS.MCOMMANDS F 9 SEL F 10 EMACS.XCOMMANDS F 11 EMACS.COMMANDS F 12 EMACS.BD F 13 EMACS.SYNTAX F 14 EMACS.CR F 15 EMACS.SD) a`@J @X@ h@d kIllJںYIlIdlW [9lW [&lIWI [nIWIl [KwWH @ \j+LL @ l Io JkjIWH I @JM @LJ JkON@kKOk_nIWI WWWj(347 EMACS.FLUSH.CACHE 327 ELT 281 SETFILEPTR 271 TEDIT.INSERT 266 ALLOCSTRING 257 MKSTRING 252 CHARACTER 244 TEDIT.\INSERT 228 EMACS.FLUSH.CACHE 222 MEMB 206 \BACKPEEKBIN 198 \FZEROP 183 GETFILEPTR 176 TEDIT.DO.BLUEPENDINGDELETE 163 ELT 143 ELT 127 ELT 122 \GETKEY 108 ELT 103 \GETKEY 81 \GETKEY 63 SETFILEPTR 58 EMACS.GETCARETPTR 50 \GETKEY 43 EMACS.SHOWCARET 36 \SYSBUFP 22 TTYDISPLAYSTREAM) (28 STREAM 15 TEXTOBJ 8 STREAM) ( 217 (32 9)) EMACS.GETKEY :D8 (P 0 CODE) g Xi H(24 CARET 17 \GETKEY 12 CARET) (7 OFF) () EMACS :D8 (P 0 PROCESS I 3 PROPS I 2 DONTSPAWN I 1 WINDOW I 0 TEXT) w@ABC bB'@AiC d3@@gg bgg@hgAhgChhgg X H(115 TTY.PROCESS 109 ADD.PROCESS 52 OPENFILE 29 EMACS.TEDIT1 14 EMACS.WINDOW) (104 NO 99 EMACS 85 QUOTE 76 QUOTE 67 QUOTE 62 EMACS.PROCESS 47 OLD 42 INPUT) () EMACS.PROCESS :D8 (I 2 PROPS I 1 WINDOW I 0 TEXT) Ag` @AhB (24 EMACS.TEDIT1 15 PUTWINDOWPROP) (10 \RUNNING.PROCESS 5 PROCESS) () EMACS.TEDIT1A0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 WINDOW F 2 TEXT F 3 ANSWER F 4 UNSPAWNED F 5 PROPS) MgQ hhPcgi hhdPcgi hhdPcRQTU c(72 \TEDIT1 52 OUTFILE 30 INFILE 10 TTYDISPLAYSTREAM) (46 OUTPUT 24 INPUT 4 TTYDISPLAYSTREAM) () EMACS.TEDIT1 :D8 (P 3 RESETSTATE P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 ANSWER I 3 PROPS I 2 UNSPAWNED I 1 WINDOW I 0 TEXT F 4 LISPXHIST) "T!g $H(26 SI::RESETUNWIND 21 \MVLIST 16 EMACS.TEDIT1A0001) (11 SI::RESETUNWIND) () EMACS.WINDOW :D8 (P 0 WINDOW I 1 PROPS I 0 DONTSPAWN F 1 TEDIT.DEFAULT.WINDOW) !@Q o XgA H(29 PUTWINDOWPROP 17 TEDIT.CREATEW) (23 TEDIT.PROPS) ( 12 "Indicate region for EMACS") EMACS.SETFILEPTR :D8 (I 1 PTR I 0 STREAM) @ j@A @A h(24 SETFILEPTR 16 SETFILEPTR 5 GETEOFPTR) NIL () EMACS.GETCARETPTR :D8 (P 1 ANSWER P 0 SELECTION I 0 STREAM) F @XddgHkgH (67 SHOULDNT) (59 SELECTION 51 RIGHT 41 SELECTION 32 LEFT 24 SELECTION 15 TEXTOBJ 8 STREAM) () EMACS.SETCARETPTR :D8 (P 0 EOF I 1 PTR I 0 STREAM) 2@ XAdjjdHHb@Akjg @A h(46 EMACS.SETFILEPTR 39 TEDIT.SETSEL 8 GETEOFPTR) (34 LEFT) () EMACS.SHOWCARET :D8 (P 0 PTR I 0 STREAM) (@ X@H @ @H h(36 EMACS.SETFILEPTR 29 TEDIT.NORMALIZECARET 16 EMACS.SETCARETPTR 8 GETFILEPTR) (22 STREAM) () EMACS.BOL :D8 (P 1 BOL P 0 OLDPTR I 1 PTR I 0 STREAM F 2 EMACS.NONCR) ) @ X@A @R @ Y@H I(37 EMACS.SETFILEPTR 29 GETFILEPTR 23 EMACS.BSKIP 16 EMACS.SETFILEPTR 8 GETFILEPTR) NIL () EMACS.EOL :D8 (P 1 EOL P 0 OLDPTR I 1 PTR I 0 STREAM F 2 EMACS.NONCR) ) @ X@A @R @ Y@H I(37 EMACS.SETFILEPTR 29 GETFILEPTR 23 EMACS.FSKIP 16 EMACS.SETFILEPTR 8 GETFILEPTR) NIL () EMACS.DELETE.BYTES :D8 (P 1 LENGTH P 0 PTR I 2 PTR2 I 1 PTR1 I 0 STREAM) N @ XjAAjb@ dBBbdjAkY@AkI HdA@HB@A@HI h(74 EMACS.SETFILEPTR 50 TEDIT.DELETE 24 GETEOFPTR 8 GETFILEPTR) NIL () EMACS.BOFP :D8 (I 0 STREAM) @ Hj HH (24 \FZEROP 5 GETFILEPTR) NIL () EMACS.EOFP :D8 (I 0 STREAM) @ @ j(11 GETEOFPTR 5 GETFILEPTR) NIL () EMACS.CCHAR :D8 (P 0 ANSWER I 0 STREAM) @ X@ H(11 \BACKBIN) NIL () EMACS.PEEKBIN :D8 (P 1 ANSWER P 0 PTR I 0 STREAM)  @ X@ Y@H I(19 EMACS.SETFILEPTR 8 GETFILEPTR) NIL () EMACS.FBYTE :D8 (I 0 STREAM) @ @ h(5 EMACS.EOFP) NIL () EMACS.FWORD :D8 (I 0 STREAM F 0 EMACS.WS F 1 EMACS.NONWS) @P @Q h(13 EMACS.FSKIP 6 EMACS.FSKIP) NIL () EMACS.BYTEP :D8 (L (0 N)) @ n@@NIL NIL () EMACS.FSKIP :D8 (I 2 LIMIT I 1 CLASS I 0 STREAM F 0 EMACS.SYNTAX) 8B@ b@ B"P@ n Aj@ h(43 ELT 33 EMACS.BYTEP 28 EMACS.PEEKBIN 16 GETFILEPTR 7 GETEOFPTR) NIL () EMACS.FSKIPTO :D8 (I 1 CLASS I 0 STREAM F 0 EMACS.SYNTAX) #@ P@ n Ajh(25 ELT 15 EMACS.BYTEP 5 EMACS.EOFP) NIL () EMACS.BBYTE :D8 (I 0 STREAM) @ @ h(12 \BACKBIN 5 EMACS.BOFP) NIL () EMACS.BCHAR :D8 (I 0 STREAM) @ @ h(12 \BACKBIN 5 EMACS.BOFP) NIL () EMACS.BPEEKCHAR :D8 (P 1 BYTE P 0 PTR I 0 STREAM)  @ X@ Y@H I(23 SETFILEPTR 15 EMACS.BCHAR 8 GETFILEPTR) NIL () EMACS.BWORD :D8 (I 0 STREAM F 0 EMACS.WS F 1 EMACS.NONWS) @P @Q h(13 EMACS.BSKIP 6 EMACS.BSKIP) NIL () EMACS.BSKIP :D8 (I 2 LIMIT I 1 CLASS I 0 STREAM F 0 EMACS.SYNTAX) 6Bjb@ B&P@ n Aj@ h(48 \BACKBIN 37 ELT 27 EMACS.BYTEP 22 \BACKPEEKBIN 11 GETFILEPTR) NIL () EMACS.BSKIPTO :D8 (I 1 CLASS I 0 STREAM F 0 EMACS.SYNTAX) '@ P@ n Ajh(29 ELT 19 EMACS.BYTEP 14 \BACKBIN 5 EMACS.BOFP) NIL () EMACS.SET.EOF :D8 (I 1 PTR I 0 STREAM) )@A@Al@AhNIL (34 TEXTOBJ 27 STREAM 15 STREAM 5 STREAM) () EMACS.GOTO.BOL :D8 (I 0 STREAM F 0 EMACS.NONCR) @P h(6 EMACS.BSKIP) NIL () EMACS.BACK.BYTE :D8 (I 0 STREAM) @ h(5 EMACS.BBYTE) NIL () EMACS.FWD.DELETE.BYTE :D8 (P 0 PTR I 0 STREAM) @ X@Hd h(17 EMACS.DELETE.BYTES 8 GETFILEPTR) NIL () EMACS.GOTO.EOL :D8 (I 0 STREAM F 0 EMACS.NONCR) @P h(6 EMACS.FSKIP) NIL () EMACS.FWD.BYTE :D8 (I 0 STREAM) @ h(5 EMACS.FBYTE) NIL () EMACS.KILL.LINE :D8 (P 1 EOL P 0 PTR I 0 STREAM F 2 EMACS.NONCR) @ @ X@R @ YddH@HIkً@ @Id @H h(60 EMACS.SETFILEPTR 52 EMACS.DELETE.CHARS 41 GETEOFPTR 22 GETFILEPTR 16 EMACS.FSKIP 8 GETFILEPTR) NIL () EMACS.DELETE.CHARS :D8 (P 1 LENGTH P 0 PTR I 2 PTR2 I 1 PTR1 I 0 STREAM) N @ XjAAjb@ dBBbdjAkY@AkI HdA@HB@A@HI h(74 SETFILEPTR 50 TEDIT.DELETE 24 GETEOFPTR 8 GETFILEPTR) NIL () EMACS.REDISPLAY :D8 (P 0 PTR I 0 STREAM) (@ X@J @H h(36 EMACS.SETFILEPTR 29 REDISPLAYW 8 GETFILEPTR) (22 TEXTOBJ 15 STREAM) () EMACS.NEXT.LINE :D8 (P 5 OFFSET P 4 NEOL P 3 NBOL P 2 EOL P 1 BOL P 0 PTR I 0 STREAM) Vp@ X@H YHjI]@H Zdk[@ K@d @K MLKپdNN@KM h(82 EMACS.SETFILEPTR 60 EMACS.EOL 51 GETEOFPTR 41 GETEOFPTR 30 EMACS.EOL 16 EMACS.BOL 8 GETFILEPTR) NIL () EMACS.PREVIOUS.LINE :D8 (P 4 OFFSET P 3 PEOL P 2 PBOL P 1 BOL P 0 PTR I 0 STREAM) D`@ X@H YHjI\Ik[dj@j@K LKJٽdMM@JL h(64 EMACS.SETFILEPTR 42 EMACS.BOL 16 EMACS.BOL 8 GETFILEPTR) NIL () EMACS.QUOTE.BYTE :D8 (P 1 CH P 0 PTR I 0 STREAM) & @ XY@IHk @Hk h(34 EMACS.SETFILEPTR 25 TEDIT.INSERT 14 \GETKEY 8 GETFILEPTR) NIL () EMACS.SEARCHA0001A0002A0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 TEXTOBJ F 2 OFILE F 3 CH) ,g` hhPcQR hdi c(39 TEDIT.FIND 30 MKSTRING 14 CURSOR) (9 WAITINGCURSOR 4 CURSOR) () EMACS.SEARCHA0001A0002 :D8 (NAME SI::*UNWIND-PROTECT* P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 SI::*CLEANUP-FORMS* F 3 SEL F 4 TEXTOBJ F 5 OFILE F 6 CH F 7 STREAM F 8 SI::*RESETFORMS* F 9 W F 10 PTR F 11 LISPXHIST) J oT hWcTg>Wg c WoUo c dWgU Tchd W!g $VaSVSV SVVk SgS ST T Shi Wd Q` o` U` o` ` Shi WW Tmm(314 EMACS.SETFILEPTR 304 \SHOWSEL 295 TERPRI 284 PRIN1 268 PRIN1 256 PRIN1 240 FRESHLINE 228 EMACS.GETCARETPTR 219 \SHOWSEL 210 TEDIT.NORMALIZECARET 203 \FIXSEL 195 TEDIT.RESET.EXTEND.PENDING.DELETE 127 SI::RESETUNWIND 122 \MVLIST 117 EMACS.SEARCHA0001A0002A0003 101 \SHOWSEL 83 PUTWINDOWPROP 63 TEDIT.GETINPUT 43 GETWINDOWUSERPROP 10 \TEDIT.MARKACTIVE) (321 TEXTOBJ 290 PROMPTWINDOW 279 PROMPTWINDOW 263 PROMPTWINDOW 251 PROMPTWINDOW 235 PROMPTWINDOW 186 RIGHT 181 SELECTION 164 SELECTION 152 SELECTION 141 SELECTION 112 SI::RESETUNWIND 90 TEXTOBJ 77 TEDIT.LAST.FIND.STRING 38 TEDIT.LAST.FIND.STRING 29 Find 24 TEXTOBJ) ( 274 "' not found." 246 "String '" 58 (13 10 27 19) 52 "Text to find: " 4 (AND (\TEDIT.MARKINACTIVE OLDVALUE))) EMACS.SEARCHA0001 :D8 (P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 5 LISPXHIST F 6 SI::NLSETQ-VALUE) -i@U!g $hc g(28 SI::RESETUNWIND 23 \MVLIST 18 EMACS.SEARCHA0001A0002) (42 :NORMAL 13 SI::RESETUNWIND) () EMACS.SEARCH :D8 (P 8 SI::*NLSETQFLAG* P 7 *PROCEED-CASES* P 6 SI::NLSETQ-VALUE P 5 CH P 4 SEL P 3 OFILE P 2 W P 1 TEXTOBJ P 0 PTR I 0 STREAM F 9 *PROCEED-CASES*) B `@ X@Y@JZ`WO gh(55 EMACS.SEARCHA0001 8 GETFILEPTR) (61 :NORMAL 42 SI::NLSETQ-PROCEED-CASE 31 TEXTOBJ 24 STREAM 15 STREAM) () EMACS.TRANSPOSE.BYTES :D8 (P 2 CH P 1 CODE P 0 PTR I 0 STREAM) T0@ H@ @@ X@ Ydd3d @Hd @Hk @JH @Hk h(80 EMACS.SETFILEPTR 71 TEDIT.INSERT 63 EMACS.SETFILEPTR 54 EMACS.DELETE.BYTES 45 MKSTRING 40 CHARACTER 24 GETFILEPTR 16 EMACS.EOFP 8 EMACS.BOFP) NIL () EMACS.NEXT.SCREENFULL :D8 (P 2 DELTAY P 1 DELTAX P 0 WINDOW I 0 STREAM) K0@JXjYHg hH  Z@h>HIJ h(71 \TEDIT.SCROLLFN 38 DSPFONT 31 GETWINDOWPROP) (60 TEXTOBJ 53 STREAM 43 FONTDESCRIPTOR 26 HEIGHT 15 TEXTOBJ 8 STREAM) () EMACS.CXCV :D8 (P 0 FILE I 0 STREAM) F@o Xd-@,j@ @H @j h(66 EMACS.SETFILEPTR 59 TEDIT.GET 44 EMACS.CXCW 20 TEDIT.GETINPUT) (51 STREAM 30 STREAM 8 STREAM) ( 15 "File to GET:") EMACS.CXCW :D8 (I 0 STREAM) @ h(12 TEDIT.PUT) (5 STREAM) () EMACS.CXCZ :D8 (P 0 FORM I 0 STREAM F 1 EMACS.READTABLE) @Q XgH h(21 PROCESS.EVAL 9 READ) (15 EXEC) () EMACS.FWD.SEXPRA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 STREAM F 2 EMACS.READTABLE) )gd go PcQR (38 READ 26 SETTOPVAL 10 GETTOPVAL) (16 \BQUOTELEVEL 4 \BQUOTELEVEL) ( 21 1073741823) EMACS.FWD.SEXPR :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 STREAM F 3 LISPXHIST) S!g $h(23 SI::RESETUNWIND 18 \MVLIST 13 EMACS.FWD.SEXPRA0001) (8 SI::RESETUNWIND) () EMACS.BACK.DELETE.BYTE :D8 (P 0 PTR I 0 STREAM) @ X@HkHk h(21 EMACS.DELETE.BYTES 8 GETFILEPTR) NIL () EMACS.GOTO.BOD :D8 (P 0 CODE I 0 STREAM F 1 EMACS.NONCR F 2 EMACS.SYNTAX F 3 EMACS.NONWS) 7@ @ %@Q R@ Sj @ h(48 EMACS.BCHAR 36 ELT 31 EMACS.CCHAR 23 EMACS.BSKIP 14 EMACS.BOFP 8 EMACS.BCHAR) NIL () EMACS.BOD :D8 (P 1 ANSWER P 0 PTR I 0 STREAM F 2 EMACS.CR F 3 EMACS.NONCR) U @ X@R @ @ Y@H I@S @ @ @ l(@ (80 EMACS.BBYTE 69 \PEEKBIN 61 EMACS.BOFP 53 EMACS.BOFP 46 EMACS.BSKIP 37 SETFILEPTR 29 GETFILEPTR 22 EMACS.BOFP 16 EMACS.BSKIP 8 GETFILEPTR) NIL () EMACS.GOTO.EOD :D8 (P 0 CODE I 0 STREAM F 1 EMACS.NONCR F 2 EMACS.SYNTAX F 3 EMACS.NONWS) 5@ @ #@Q @ R@ Sjh(43 ELT 38 EMACS.CCHAR 30 EMACS.FCHAR 23 EMACS.FSKIP 14 EMACS.EOFP 8 EMACS.FCHAR) NIL () EMACS.EOD :D8 (P 1 ANSWER P 0 PTR I 0 STREAM F 2 EMACS.CR F 3 EMACS.NONCR) Z @ X@R @ 2@S @ "@ @ @ l @ @ Y@H I(86 SETFILEPTR 78 GETFILEPTR 71 \BACKBIN 60 \PEEKBIN 53 EMACS.EOFP 46 EMACS.FBYTE 38 EMACS.EOFP 31 EMACS.FSKIP 22 EMACS.EOFP 16 EMACS.FSKIP 8 GETFILEPTR) NIL () EMACS.KILL.SEXPR :D8 (P 1 PTR2 P 0 PTR1 I 0 STREAM F 2 EMACS.READTABLE) , @ X@R @ Y@HIk @H h(40 EMACS.SETFILEPTR 33 EMACS.DELETE.CHARS 22 GETFILEPTR 16 READ 8 GETFILEPTR) NIL () EMACS.GOTO.BOF :D8 (I 0 STREAM) @j h(6 EMACS.SETFILEPTR) NIL () EMACS.GOTO.EOF :D8 (I 0 STREAM) @d h(11 EMACS.SETFILEPTR 6 GETEOFPTR) NIL () EMACS.BACK.WORD :D8 (I 0 STREAM) @ h(5 EMACS.BWORD) NIL () EMACS.FWD.DELETE.WORD :D8 (P 1 PTR2 P 0 PTR1 I 0 STREAM F 2 EMACS.WS F 3 EMACS.NONWS) 3 @ X@R @S @ Y@HIk @H h(47 EMACS.SETFILEPTR 40 EMACS.DELETE.CHARS 29 GETFILEPTR 23 EMACS.FSKIP 16 EMACS.FSKIP 8 GETFILEPTR) NIL () EMACS.EDIT :D8 (P 2 PTR2 P 1 PTR1 P 0 EXPR I 0 STREAM F 3 EMACS.READTABLE) ?0@ @ Y@S X@ Z@IJk H Xdhddd@ h(59 PRINTDEF 46 EDITE 40 EMACS.DELETE.CHARS 29 GETFILEPTR 22 READ 14 GETFILEPTR 8 SKIPSEPRS) NIL () EMACS.FWD.WORD :D8 (I 0 STREAM) @ h(5 EMACS.FWORD) NIL () EMACS.GRIND :D8 (P 2 PTR2 P 1 PTR1 P 0 EXPR I 0 STREAM F 3 EMACS.READTABLE) 80@ @ Y@S X@ Z@IJk Hhddd@ h(52 PRINTDEF 40 EMACS.DELETE.CHARS 29 GETFILEPTR 22 READ 14 GETFILEPTR 8 SKIPSEPRS) NIL () EMACS.SNARF :D8 (P 0 EXPR I 0 STREAM) Xdhddd@ h(21 PRINTDEF 7 TOPSELECTION) NIL () EMACS.MT :D8 (P 4 FPTR2 P 3 FPTR1 P 2 BPTR2 P 1 BPTR1 P 0 PTR I 0 STREAM F 5 EMACS.WS) HP@ X@U @ Z@ Y@H @U @ [@ @ h(68 GETFILEPTR 62 EMACS.FWORD 55 GETFILEPTR 49 EMACS.FSKIP 42 EMACS.SETFILEPTR 34 GETFILEPTR 28 EMACS.BWORD 22 GETFILEPTR 16 EMACS.BSKIP 8 GETFILEPTR) NIL () EMACS.PREVIOUS.SCREENFULL :D8 (P 2 DELTAY P 1 DELTAX P 0 WINDOW I 0 STREAM) K0@JXjYhH  Hg Z@h>HIJ h(71 \TEDIT.SCROLLFN 45 GETWINDOWPROP 27 DSPFONT) (60 TEXTOBJ 53 STREAM 40 HEIGHT 32 FONTDESCRIPTOR 15 TEXTOBJ 8 STREAM) () EMACS.JOIN.LINES :D8 (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 8 EMACS.WS) @ X@H Y@H ZIj|Id pIk\@L [@I @W @ dKK]@I @W @ Jk_dOO^@M @MNk @l @Mk h(152 EMACS.SETFILEPTR 143 \BOUT 135 EMACS.DELETE.CHARS 125 EMACS.SETFILEPTR 103 GETFILEPTR 97 EMACS.FSKIP 89 EMACS.SETFILEPTR 75 GETFILEPTR 69 EMACS.BSKIP 61 EMACS.SETFILEPTR 53 EMACS.BOL 40 \FZEROP 24 EMACS.EOL 16 EMACS.BOL 8 GETFILEPTR) NIL () EMACS.BACK.DELETE.WORD :D8 (P 1 PTR2 P 0 PTR1 I 0 STREAM) $ @ X@ @ Y@IHk h(32 EMACS.DELETE.CHARS 21 GETFILEPTR 15 EMACS.BWORD 8 GETFILEPTR) NIL () NEW.TEDIT.SELECT.LINE.SCANNER :D8 (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) O @ABCDEFG Xd g(HgB.Hk H(75 EMACS.FLUSH.CACHE 69 EMACS.SETFILEPTR 24 TYPENAME 17 OLD.TEDIT.SELECT.LINE.SCANNER) (60 SELECTION 52 TEXTOBJ 43 LEFT 38 SELECTION 29 SELECTION) () EMACS.DELIMS :D8 (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 8 EMACS.RDELIMS F 9 EMACS.SDELIMS F 10 EMACS.LDELIMS F 11 EMACS.NONSD F 12 EMACS.SD F 13 EMACS.BD)   @AXdR dRc@dAj>gS U@VWW T@d @WcxgS AgS @AhdUIWVWW T@d TAd @WcAWch(194 SETA 189 EMACS.RDELIM.COMMAND 184 MKSTRING 179 CHARACTER 170 SETA 165 EMACS.LDELIM.COMMAND 160 MKSTRING 155 CHARACTER 142 SETA 114 SETSYNTAX 101 SETSYNTAX 80 SETA 75 EMACS.SDELIM.COMMAND 70 MKSTRING 65 CHARACTER 56 SETA 41 SETSYNTAX 13 MEMBER) (108 RIGHTPAREN 95 LEFTPAREN 35 STRINGDELIM) () EMACS.CR :D8 (P 0 PTR I 0 STREAM F 1 EMACS.SCACHE F 2 EMACS.BCACHE) l@ X@l @Hk @ g=@J @Q n @Hk gchch(92 EMACS.SETCARETPTR 82 DISMISS 73 EMACS.SETCARETPTR 65 FLASHWINDOW 37 EMACS.SCACHE 31 EMACS.SETFILEPTR 22 TEDIT.INSERT 17 CHARACTER 8 GETFILEPTR) (98 OUTSIDE 58 TEXTOBJ 51 STREAM 42 OUTSIDE) () EMACS.RPAREN :D8 (P 0 PTR I 0 STREAM) 5@ X@o @Hk @ g @ h(49 EMACS.CLOSE.BALANCE 35 EMACS.SCACHE 29 EMACS.SETFILEPTR 20 TEDIT.INSERT 8 GETFILEPTR) (40 OUTSIDE) ( 15 ")") EMACS.RBRACKET :D8 (P 0 PTR I 0 STREAM) 5@ X@o @Hk @ g @ h(49 EMACS.CLOSE.BALANCE 35 EMACS.SCACHE 29 EMACS.SETFILEPTR 20 TEDIT.INSERT 8 GETFILEPTR) (40 OUTSIDE) ( 15 "]") EMACS.RBRACE :D8 (P 0 PTR I 0 STREAM) 5@ X@o @Hk @ g @ h(49 EMACS.CLOSE.BALANCE 35 EMACS.SCACHE 29 EMACS.SETFILEPTR 20 TEDIT.INSERT 8 GETFILEPTR) (40 OUTSIDE) ( 15 "}") EMACS.RANGLE :D8 (P 0 PTR I 0 STREAM) 5@ X@o @Hk @ g @ h(49 EMACS.CLOSE.BALANCE 35 EMACS.SCACHE 29 EMACS.SETFILEPTR 20 TEDIT.INSERT 8 GETFILEPTR) (40 OUTSIDE) ( 15 ">") EMACS.SDELIM.COMMAND :D8 (L (0 SDELIM)) gog@ohNIL (14 EMACS.SDELIM 4 LAMBDA) ( 20 (STREAM) 9 (STREAM)) EMACS.LDELIM.COMMAND :D8 (L (0 LDELIM)) gog@ohNIL (14 EMACS.LDELIM 4 LAMBDA) ( 20 (STREAM) 9 (STREAM)) EMACS.RDELIM.COMMAND :D8 (L (0 RDELIM)) gog@ohNIL (14 EMACS.RDELIM 4 LAMBDA) ( 20 (STREAM) 9 (STREAM)) EMACS.SDELIM :D8 (P 0 PTR I 1 STREAM I 0 SDELIM) @A XA@ AHk A hA gA A h(60 EMACS.CLOSE.STRING 53 EMACS.OPEN.STRING 40 EMACS.SCACHE 31 EMACS.BACK.ESCAPEDP 25 EMACS.SETFILEPTR 16 TEDIT.INSERT 8 GETFILEPTR) (45 OUTSIDE) () EMACS.LDELIM :D8 (P 0 PTR I 1 STREAM I 0 LDELIM) ;A XA@ AHk A hA gA (54 EMACS.OPEN.BALANCE 40 EMACS.SCACHE 31 EMACS.BACK.ESCAPEDP 25 EMACS.SETFILEPTR 16 TEDIT.INSERT 8 GETFILEPTR) (45 OUTSIDE) () EMACS.RDELIM :D8 (P 0 PTR I 1 STREAM I 0 RDELIM) ;A XA@ AHk A hA gA (54 EMACS.CLOSE.BALANCE 40 EMACS.SCACHE 31 EMACS.BACK.ESCAPEDP 25 EMACS.SETFILEPTR 16 TEDIT.INSERT 8 GETFILEPTR) (45 OUTSIDE) () EMACS.OPEN.STRING :D8 (P 0 LPTR I 0 STREAM F 1 EMACS.SCACHE) @ kdch(8 GETFILEPTR) NIL () EMACS.CLOSE.STRING :D8 (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) Pgc @ kY@I @ [@V @ @ X@ ZdKj\d@H lȰ"@J @H n @Ik @Ik h(135 EMACS.SETFILEPTR 126 EMACS.SETCARETPTR 116 DISMISS 107 EMACS.SETCARETPTR 99 FLASHWINDOW 74 EMACS.SETCARETPTR 58 \PEEKBIN 51 GETFILEPTR 45 EMACS.BBYTE 39 EMACS.BSKIP 31 \PEEKBIN 25 EMACS.SETFILEPTR 15 GETFILEPTR) (92 TEXTOBJ 85 STREAM 7 OUTSIDE) () EMACS.OPEN.BALANCE :D8 (P 0 LPTR I 0 STREAM F 1 EMACS.BCACHE) @ kXQ3dhHQch(8 GETFILEPTR) NIL () EMACS.CLOSE.BALANCE :D8 (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 @ \@ V3h]dNV@I @ @I KWLjlȰ@J n Vc '@V @J n @H @H h(170 EMACS.SETFILEPTR 163 EMACS.SETCARETPTR 155 DISMISS 146 FLASHWINDOW 125 EMACS.SETCARETPTR 111 DISMISS 102 FLASHWINDOW 67 EMACS.SETCARETPTR 59 \PEEKBIN 52 EMACS.SETFILEPTR 33 EMACS.BCACHE 26 \PEEKBIN 20 EMACS.SETFILEPTR 8 GETFILEPTR) (139 TEXTOBJ 132 STREAM 95 TEXTOBJ 88 STREAM) () EMACS.FLUSH.CACHE :D8 (F 0 EMACS.SCACHE F 1 EMACS.BCACHE) hcdcNIL NIL () EMACS.SCACHE :D8 (P 1 ANSWER P 0 PTR I 0 STREAM F 2 EMACS.SCACHE F 3 EMACS.NONSD) | Rv@ X@dH gY@ HF@SH @ @ H+@ @SH @ @ HgIc@H I(120 EMACS.SETFILEPTR 98 GETFILEPTR 91 EMACS.FBYTE 84 EMACS.FSKIP 75 GETFILEPTR 64 GETFILEPTR 57 EMACS.FBYTE 50 EMACS.FSKIP 37 GETFILEPTR 25 EMACS.SETFILEPTR 20 EMACS.BOL 11 GETFILEPTR) (107 OUTSIDE 30 OUTSIDE) () EMACS.BCACHE :D8 (P 2 ANSWER P 1 SCACHE P 0 PTR I 0 STREAM F 4 EMACS.BCACHE) @T@ @ Yg @I @ @ l jID@ @ 5@ [jKK @ l j@ @ kh@H Jc(135 EMACS.SETFILEPTR 123 GETFILEPTR 116 GETFILEPTR 104 \BACKPEEKBIN 97 \FZEROP 82 GETFILEPTR 74 GETFILEPTR 67 EMACS.SAFE.BACK.SEXPRS 52 \BACKPEEKBIN 45 EMACS.BOFP 38 EMACS.SETFILEPTR 22 EMACS.SCACHE 15 GETFILEPTR) (28 OUTSIDE) () EMACS.SAFE.BACK.SEXPRSA0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 STREAM F 3 SI::NLSETQ-VALUE) i@R hcg(10 EMACS.BACK.SEXPR) (19 :NORMAL) () EMACS.SAFE.BACK.SEXPRS :D8 (P 5 *CONDITION-HANDLER-BINDINGS* P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 0 ANSWER I 0 STREAM F 6 EMACS.LDELIMS F 7 *PROCEED-CASES* F 8 *CONDITION-HANDLER-BINDINGS*) r @ @ Yj*II @ l j@ V@ i`WioWK gJ@ H(110 FLASHWINDOW 91 EMACS.SAFE.BACK.SEXPRSA0002 59 EMACS.BACK.ESCAPEDP 50 \BACKPEEKBIN 38 \BACKPEEKBIN 30 \FZEROP 15 GETFILEPTR 8 EMACS.BACK.SKIPSEPRS) (97 :NORMAL 70 SI::NLSETQ-PROCEED-CASE) ( 79 (CL:ERROR . SI::NLSETQHANDLER)) EMACS.SAFE.BACK.SEXPRA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 STREAM F 3 SI::NLSETQ-VALUE) i@R hcg(10 EMACS.BACK.SEXPR) (19 :NORMAL) () EMACS.SAFE.BACK.SEXPR :D8 (P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 STREAM F 4 *PROCEED-CASES* F 5 *CONDITION-HANDLER-BINDINGS*) 2`TioUI gH@ hi(44 FLASHWINDOW 26 EMACS.SAFE.BACK.SEXPRA0001) (32 :NORMAL 7 SI::NLSETQ-PROCEED-CASE) ( 15 (CL:ERROR . SI::NLSETQHANDLER)) EMACS.BACK.SEXPR :D8 (P 1 LDELIM P 0 RDELIM I 0 STREAM F 3 EMACS.DELIMS F 4 EMACS.LDELIMS F 5 EMACS.BQ) 0@ @ "@ XSZ hYd+@ @ @ hdHjJHj:@ @ @ Ij@ @ @ `@ @ @ @ T@ $@ @ @ l j@ @U h(236 EMACS.BSKIP 228 \BACKBIN 220 ERROR! 208 \BACKPEEKBIN 201 EMACS.BOFP 194 EMACS.BACK.SEXPR 186 EMACS.BACK.ESCAPEDP 177 \BACKPEEKBIN 168 ERROR! 162 EMACS.BOFP 155 EMACS.BACK.SKIPSEPRS 148 \BACKBIN 140 \BACKBIN 133 ERROR! 127 EMACS.BOFP 119 EMACS.BACK.ESCAPEDP 107 \BACKPEEKBIN 99 EMACS.BOFP 92 \BACKBIN 62 EMACS.BACK.WORD 54 EMACS.BACK.ESCAPEDP 45 EMACS.BACK.WORD 28 \BACKPEEKBIN 21 ERROR! 14 EMACS.BOFP 8 EMACS.BACK.SKIPSEPRS) NIL () EMACS.BACK.SKIPSEPRS :D8 (P 2 SNX P 1 CH P 0 SA I 0 STREAM F 3 EMACS.READTABLE) h0SX@ h@ YHIZdl`@ @ @ HIZdl`@ lF@ @ @ (99 \BACKBIN 91 EMACS.BACK.ESCAPEDP 74 \BACKBIN 57 \BACKPEEKBIN 49 EMACS.BOFP 43 \BACKBIN 26 \BACKPEEKBIN 17 EMACS.BOFP) (8 READTABLEP) () EMACS.BACK.ESCAPEDP :D8 (P 4 ANSWER P 3 SNX P 2 CH P 1 SA P 0 PTR I 0 STREAM F 5 EMACS.READTABLE) DP@ XdkhUY@ @ IJ[lFLh@ @H L(64 SETFILEPTR 55 EMACS.BOFP 36 \BACKBIN 30 \BACKBIN 8 GETFILEPTR) (21 READTABLEP) () EMACS.TAB :D8 (P 8 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 9 EMACS.SYNTAX F 10 EMACS.WS) p@ X@ \@H Y@H Z@I j]JkIOO?Nf@IdMm LjLL @Lo Ik k@ [l iWK3n WjMkؽOk_MdLj8L@IdMLm #LM@LMo Ik HIM@IL@HLM h(243 EMACS.SETFILEPTR 221 SHOULDNT 215 TEDIT.INSERT 207 ALLOCSTRING 186 EMACS.DELETE.BYTES 140 ELT 114 TEDIT.INSERT 106 ALLOCSTRING 90 \FZEROP 72 EMACS.DELETE.BYTES 39 EMACS.SETFILEPTR 31 EMACS.EOL 23 EMACS.BOL 15 EMACS.TAB.INDENT 8 GETFILEPTR) NIL ( 202 " " 101 " ") EMACS.TAB.INDENT :D8 (P 11 I P 9 ANSWER P 8 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 12 EMACS.WS F 13 EMACS.SPACE F 14 EMACS.LDELIMS)  @ j@dH @WI @W @ I@ WJ@ BiJ@J @ J@ M O/Okٰ5d3@Mg _@ J@ ZMkLKj_@N _@O O_NkO OO@ l jOlOk_Ok_@H O(245 EMACS.SETFILEPTR 188 EMACS.SETFILEPTR 177 EMACS.BOL 152 GETFILEPTR 143 EMACS.SAFE.BACK.SEXPR 133 GETPROP 102 GETFILEPTR 92 RATOM 85 EMACS.SETFILEPTR 71 EMACS.BACK.ESCAPEDP 60 \BACKPEEKBIN 50 GETFILEPTR 43 EMACS.BSKIP 34 EMACS.BSKIP 24 EMACS.SETFILEPTR 19 EMACS.BOL 8 GETFILEPTR) (128 EMACS.TAB) () EMACS.INIT.SYNTAX :D8 (P 1 I 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 8 EMACS.LDELIMS F 9 EMACS.SDELIMS F 10 EMACS.DELIMS F 11 EMACS.SPACE F 12 EMACS.CR F 13 EMACS.BQ F 14 EMACS.RDELIMS)  ngjd cnjIHo.RITUSV IkYdRHWTSW Rl WWS odRHUTSWV hcdcdcdcl(l) l[l] l{l} l"d h(178 EMACS.DELIMS 170 EMACS.DELIMS 161 EMACS.DELIMS 152 EMACS.DELIMS 126 SETA 97 SETA 77 SETA 49 SETA 14 ARRAY) (7 WORD) ( 102 (39 44 64 96) 33 (9 10 32)) (PRETTYCOMPRINT EMACSCOMS) (RPAQQ EMACSCOMS ((* EMACS -- By Kelly Roach *) (* ;; "Patched by Ron Kaplan (2021) to require TEDIT and to eliminate a dependency on a historical attempt at BQUOTE." ) (* ;; "So it loads, but it really doesn't work.") (* ;; "This has to be compiled with EXPORTS.ALL") (DECLARE%: (FILES TEDIT)) (COMS (* EMACS *) (INITVARS (BytesPerPage 512) (EMACS.COMMANDS NIL) ( EMACS.MCOMMANDS NIL) (EMACS.XCOMMANDS NIL) (EMACS.LIST %' ((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 %' ((1 EMACS.GOTO.BOD) (2 EMACS.SAFE.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 %' ((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.BYTEP 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.DELETE.CHARS 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.SKIPSEPRS EMACS.BACK.ESCAPEDP EMACS.TAB EMACS.TAB.INDENT EMACS.INIT.SYNTAX)) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (EMACS.INIT) (MOVD? %'TEDIT.SELECT.LINE.SCANNER %' OLD.TEDIT.SELECT.LINE.SCANNER) (MOVD %'NEW.TEDIT.SELECT.LINE.SCANNER %' TEDIT.SELECT.LINE.SCANNER) (MOVD %'EMACS %'TEDIT))))) (FILESLOAD TEDIT) (RPAQ? BytesPerPage 512) (RPAQ? EMACS.COMMANDS NIL) (RPAQ? EMACS.MCOMMANDS NIL) (RPAQ? EMACS.XCOMMANDS NIL) (RPAQ? EMACS.LIST %' ((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 %' ((1 EMACS.GOTO.BOD) (2 EMACS.SAFE.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 %' ((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? %'TEDIT.SELECT.LINE.SCANNER %' OLD.TEDIT.SELECT.LINE.SCANNER) (MOVD %'NEW.TEDIT.SELECT.LINE.SCANNER %' TEDIT.SELECT.LINE.SCANNER) (MOVD %'EMACS %'TEDIT) (PUTPROPS EMACS COPYRIGHT ("Xerox Corporation" 1985 1986 2021)) NIL