(FILECREATED "13-Aug-84 14:21:49" ("compiled on " {PHYLUM}<3-LISP>AUG>COMS.FPKG;1) " 8-Jun-84 11:17:20" tcompl%'d in WORK dated "21-Jun-84 10:50:28") (FILECREATED "13-Aug-84 14:20:39" {PHYLUM}<3-LISP>AUG>COMS.FPKG;1 39695 changes to: (FNS EMACS.APPLY* EMACS.CALLFUN EMACS.CLOSE EMACS.MAKE.COMMAND TOUPPER TOLOWER EMACS.CHARACTER \\COM.EMACS.DISPATCH.^X EMACS.MAKE.^X.COMMAND \\COM.EMACS.DISPATCH.META EMACS.MAKE.META.COMMAND \\COM.FORWARD.CHARACTER \\COM.BACKWARDS.CHARACTER \\COM.DELETE.CHARACTER \\COM.RUBOUT \\COM.TRANSPOSE.CHARACTERS \\COM.FORWARD.WORD \\COM.BACKWARDS.WORD \\COM.DELETE.WORD.FORWARD \\COM.DELETE.WORD.BACKWARD \\COM.BEGINNING.OF.LINE \\COM.END.OF.LINE \\COM.PREVIOUS.LINE \\COM.NEXT.LINE \\COM.KILL.LINE \\COM.FORWARD.PARAGRAPH \\COM.BACKWARDS.PARAGRAPH \\COM.WRITE.FILE \\COM.SAVE.FILE \\COM.GET.FILE \\COM.INSERT.FILE \\COM.LAST.SCREENFUL \\COM.NEXT.SCREENFUL \\COM.EVAL.FROM.BUFFER \\COM.FORWARD.SEXPR \\COM.BACKWARDS.SEXPR \\COM.KILL.SEXPR \\COM.TOP.OF.DEFINITION \\COM.END.OF.DEFINITION \\COM.GRIND.DEFINITION EMACS.KILL.WHITESPACE.ON.LINE \\COM.INDENT.NEXT.LINE \\COM.INDENT.FOR.SEXPR EMACS.FLASH EMACS.FLASH.SEXPR.BACK \\COM.FLASH.PAREN \\COM.FLASH.BRACKET EMACS.PAREN.FLASHING.ON EMACS.PAREN.FLASHING.OFF DEDITEmacs \\COM.DEDIT.EXPRESSION \\COM.SNARF.EXPRESSION.FROM.DEDIT \\COM.JUMP.TO.BEGINNING \\COM.JUMP.TO.END \\COM.NOT.MODIFIED \\COM.UNIVERSAL.ARGUMENT \\COM.META.AUTOARGUMENT \\COM.JOIN.LINES \\COM.QUOTE.NEXT.CHARACTER \\COM.REDISPLAY \\COM.OPEN.LINE \\COM.DELETE.BLANK.LINES \\COM.QUIT.EMACS \\COM.HARDCOPY.BUFFER \\COM.STRING.SEARCH.FORWARD \\COM.STRING.REPLACE)) EMACS.APPLY* D1 (I 1 STREAM I 0 FN) /Adk Ak@A A (53Q EMACS.SHOWCARET 46Q EMACS.UPDATE.MODELINE 43Q \TEDIT.MAINW 25Q EMACS.SETCARETPTR) (36Q STREAM 16Q SELECTION 11Q TEXTOBJ 4 STREAM) () EMACS.CALLFUNA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FN F 1 STREAM) PQ h(4 EMACS.APPLY*) NIL () EMACS.CALLFUN D1 (P 0 SUCESSP I 1 STREAM I 0 FN) Joi HAoo HgA g AoA o h(106Q TEDIT.NOTIFY 77Q CONCAT 74Q EMACS.NUMERIC.ARG 61Q PUTWINDOWPROP 53Q \TEDIT.MAINW 31Q TEDIT.NOTIFY 7 EMACS.CALLFUNA0001) (56Q NUMERIC.ARG 46Q STREAM 37Q NUMERIC.ARG) ( 103Q (CLEARW) 70Q "Arg: " 26Q (FRESHLINE) 22Q "Command Aborted" 3 (DUMMY.FOR.ERRORSET)) EMACS.CLOSE D1 (L (0 FN)) gogg@hghhNIL (23Q STREAM 14Q QUOTE 11Q EMACS.CALLFUN 2 LAMBDA) ( 6 (STREAM)) EMACS.MAKE.COMMAND D1 (I 2 DOCUMENTATION I 1 FUNCTION I 0 CHARCODE F 0 TEDIT.READTABLE) @A P BAlh AgB (34Q PUTPROP 10Q TEDIT.SETFUNCTION 4 EMACS.CLOSE) (30Q EMACS.DOCUMENTATION) () TOUPPER D1 (L (0 CHAR)) la@@dlzl @NIL NIL () TOLOWER D1 (L (0 CHAR)) lA@@dlZl @NIL NIL () EMACS.CHARACTER D1 (P 0 BITBUF I 0 CHARNUM) 2@l@m h@dljgH@l@jgHXH (57Q PACK 11Q CHARACTER) (47Q C- 32Q M-) () \\COM.EMACS.DISPATCH.^X D1 (P 1 COM P 0 CHAR I 0 STREAM F 2 \\EMACS.^X.DISPATCH) >@oo  @H HR Ydd@ @oo (73Q TEDIT.NOTIFY 57Q BEEP 53Q EMACS.APPLY* 41Q SASSOC 34Q TEDIT.NOTIFY 31Q EMACS.CHARACTER 21Q TOUPPER 16Q TYI 13Q TEDIT.NOTIFY) NIL ( 70Q (FRESHLINE TERPRI) 64Q "Command not known." 10Q (CLEARW) 4 "C-X ") EMACS.MAKE.^X.COMMAND D1 (I 2 DOCUMENTATION I 1 FUNCTION I 0 CHARNUM F 0 \\EMACS.^X.DISPATCH) @ ABP (12Q PUTASSOC 3 TOUPPER) NIL () \\COM.EMACS.DISPATCH.META D1 (P 1 COM P 0 CHAR I 0 STREAM F 2 \\EMACS.META.DISPATCH) =@oo  @H HR Ydd@ @oo (72Q TEDIT.NOTIFY 56Q BEEP 52Q EMACS.APPLY* 41Q SASSOC 34Q TEDIT.NOTIFY 31Q EMACS.CHARACTER 21Q TOUPPER 16Q TYI 13Q TEDIT.NOTIFY) NIL ( 67Q (FRESHLINE TERPRI) 63Q "Command not known." 10Q (CLEARW) 4 "M-") EMACS.MAKE.META.COMMAND D1 (I 2 DOCUMENTATION I 1 FUNCTION I 0 CHARNUM F 0 \\EMACS.META.DISPATCH) "@ AP @ lAB @ lA (37Q EMACS.MAKE.COMMAND 30Q TOLOWER 24Q EMACS.MAKE.COMMAND 14Q TOUPPER 10Q PUTASSOC 3 TOUPPER) NIL () \\COM.FORWARD.CHARACTER D1 (I 0 STREAM) @d (7 EMACS.CHAR.FWD 4 EMACS.NUMERIC.ARG) NIL () \\COM.BACKWARDS.CHARACTER D1 (I 0 STREAM) @d (7 EMACS.CHAR.BACK 4 EMACS.NUMERIC.ARG) NIL () \\COM.DELETE.CHARACTER D1 (P 0 PTR I 0 STREAM) @ @Hd@ k h(23Q EMACS.DELETE 15Q EMACS.NUMERIC.ARG 3 EMACS.GETFILEPTR) NIL () \\COM.RUBOUT D1 (P 1 QTY P 0 PTR I 0 STREAM) @ @ jHIH@HkHI h(34Q EMACS.DELETE 7 EMACS.NUMERIC.ARG 3 EMACS.GETFILEPTR) NIL () \\COM.TRANSPOSE.CHARACTERS D1 (P 1 CHAR P 0 PTR I 0 STREAM) G @ =@ l j@ l@ kٸ@H @ @Hd @Hk @I @Hk h(103Q EMACS.SETFILEPTR 73Q BOUT 65Q EMACS.SETCARETPTR 55Q EMACS.DELETE 43Q EMACS.SETCARETPTR 33Q EMACS.GETFILEPTR 24Q EMACS.GETFILEPTR 6 EMACS.EOFP) NIL () \\COM.FORWARD.WORD D1 (I 0 STREAM) @d (7 EMACS.WORD.FWD 4 EMACS.NUMERIC.ARG) NIL () \\COM.BACKWARDS.WORD D1 (I 0 STREAM) @d (7 EMACS.WORD.BACK 4 EMACS.NUMERIC.ARG) NIL () \\COM.DELETE.WORD.FORWARD D1 (P 1 END P 0 START I 0 STREAM) %@ @d @ YHIj@HIk h(41Q EMACS.DELETE 22Q EMACS.GETFILEPTR 16Q EMACS.WORD.FWD 13Q EMACS.NUMERIC.ARG 3 EMACS.GETFILEPTR) NIL () \\COM.DELETE.WORD.BACKWARD D1 (P 0 PTR I 0 STREAM) !@ H@d @d Hk h(35Q EMACS.DELETE 27Q EMACS.GETFILEPTR 21Q EMACS.WORD.BACK 16Q EMACS.NUMERIC.ARG 3 EMACS.GETFILEPTR) NIL () \\COM.BEGINNING.OF.LINE D1 (I 0 STREAM) @dk (32Q EMACS.SETCARETPTR) (23Q LINEDESCRIPTOR 16Q SELECTION 11Q TEXTOBJ 4 STREAM) () \\COM.END.OF.LINE D1 (P 0 PLACE I 0 STREAM) -@@H@ jHHk h(51Q EMACS.SETCARETPTR 35Q GETEOFPTR) (22Q LINEDESCRIPTOR 15Q SELECTION 10Q TEXTOBJ 3 STREAM) () \\COM.PREVIOUS.LINE D1 (P 11Q I P 5 PREVLINE P 4 THISLINE P 3 BOL P 2 HEIGHT P 1 W P 0 THISSEL I 0 STREAM F 12Q TEDIT.DEFAULT.CHARLOOKS) @@WSH\dk[L]@ k OOTM" gM"jM"&IjJ M" gM"jOk_@KkHKMkkپdNN_jOOj h(305Q EMACS.SETCARETPTR 173Q TYPENAME 161Q \TEDIT.SCROLLFN 116Q TYPENAME 72Q EMACS.NUMERIC.ARG) (250Q LINEDESCRIPTOR 240Q SELECTION 212Q LINEDESCRIPTOR 205Q LINEDESCRIPTOR 176Q LINEDESCRIPTOR 166Q LINEDESCRIPTOR 146Q LINEDESCRIPTOR 135Q LINEDESCRIPTOR 130Q LINEDESCRIPTOR 121Q LINEDESCRIPTOR 111Q LINEDESCRIPTOR 57Q LINEDESCRIPTOR 50Q SELECTION 37Q FONTDESCRIPTOR 32Q CHARLOOKS 23Q TEXTOBJ 16Q STREAM 10Q TEXTOBJ 3 STREAM) () \\COM.NEXT.LINE D1 (P 11Q I P 5 NEXTLINE P 4 THISLINE P 3 BOL P 2 HEIGHT P 1 W P 0 THISSEL I 0 STREAM F 12Q TEDIT.DEFAULT.CHARLOOKS) @@WSH\d]@ k OOM gM jM %IjJ M gM G@d HLM"ؾdNNMk_dOO Ok_nh(302Q EMACS.SETCARETPTR 214Q GETEOFPTR 167Q TYPENAME 155Q \TEDIT.SCROLLFN 152Q MINUS 107Q TYPENAME 61Q EMACS.NUMERIC.ARG) (260Q LINEDESCRIPTOR 242Q LINEDESCRIPTOR 235Q LINEDESCRIPTOR 226Q LINEDESCRIPTOR 220Q SELECTION 204Q LINEDESCRIPTOR 177Q LINEDESCRIPTOR 172Q LINEDESCRIPTOR 162Q LINEDESCRIPTOR 137Q LINEDESCRIPTOR 126Q LINEDESCRIPTOR 121Q LINEDESCRIPTOR 112Q LINEDESCRIPTOR 102Q LINEDESCRIPTOR 50Q SELECTION 37Q FONTDESCRIPTOR 32Q CHARLOOKS 23Q TEXTOBJ 16Q STREAM 10Q TEXTOBJ 3 STREAM) () \\COM.KILL.LINE D1 (P 3 CR P 2 EOL P 1 POINT P 0 THISLN I 0 STREAM F 5 EMACS.NONCR) h@@ 2HkZ@U @ [@IKJjdJkټdLLJ@ @ IdJJ KJ @ @ h(144Q \BACKBIN 137Q TERPRI 126Q EMACS.DELETE 113Q GETEOFPTR 104Q GETEOFPTR 50Q GETFILEPTR 44Q EMACS.SKIP.SYNTAX.FWD 23Q EMACS.GETFILEPTR) (32Q LINEDESCRIPTOR 15Q SELECTION 10Q TEXTOBJ 3 STREAM) () \\COM.FORWARD.PARAGRAPH D1 (I 0 STREAM) @ (3 EMACS.PARA.END) NIL () \\COM.BACKWARDS.PARAGRAPH D1 (I 0 STREAM) @ (3 EMACS.PARA.BEGINNING) NIL () \\COM.WRITE.FILE D1 (I 0 STREAM) @hi (5 EMACS.PUT) NIL () \\COM.SAVE.FILE D1 (I 0 STREAM) @i (4 EMACS.PUT) NIL () \\COM.GET.FILE D1 (I 0 STREAM) @ (3 EMACS.GET) NIL () \\COM.INSERT.FILE D1 (I 0 STREAM) @ (3 TEDIT.INCLUDE) NIL () \\COM.LAST.SCREENFUL D1 (P 0 WINDOW I 0 STREAM) 9@ @hFHjhH hH  h(65Q \TEDIT.SCROLLFN 55Q DSPCLIPPINGREGION 50Q \INSUREWINDOW 36Q DSPFONT 10Q \TEDIT.MAINW) (41Q FONTDESCRIPTOR 24Q TEXTOBJ 17Q STREAM 3 STREAM) () \\COM.NEXT.SCREENFUL D1 (P 0 WINDOW I 0 STREAM) 9@ @hFHjhH hH  h(65Q \TEDIT.SCROLLFN 54Q DSPFONT 43Q DSPCLIPPINGREGION 36Q \INSUREWINDOW 10Q \TEDIT.MAINW) (57Q FONTDESCRIPTOR 24Q TEXTOBJ 17Q STREAM 3 STREAM) () \\COM.EVAL.FROM.BUFFER D1 (I 0 STREAM) @d o (16Q TEDIT.NOTIFY 7 EVAL 4 READ) NIL ( 13Q (CLEARW)) \\COM.FORWARD.SEXPRA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STREAM) P i(3 EMACS.SEXPR.FWD) NIL () \\COM.FORWARD.SEXPR D1 (I 0 STREAM) 'o @ l @oo h(42Q TEDIT.NOTIFY 26Q FLASHWINDOW 21Q \TEDIT.MAINW 6 \\COM.FORWARD.SEXPRA0001) (14Q STREAM) ( 37Q (CLEARW) 33Q "Unbalanced Parenthesis" 3 (DUMMY.FOR.ERRORSET)) \\COM.BACKWARDS.SEXPRA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STREAM) P i(3 EMACS.SEXPR.BACK) NIL () \\COM.BACKWARDS.SEXPR D1 (I 0 STREAM) 'o @ l @oo h(42Q TEDIT.NOTIFY 26Q FLASHWINDOW 21Q \TEDIT.MAINW 6 \\COM.BACKWARDS.SEXPRA0001) (14Q STREAM) ( 37Q (CLEARW) 33Q "Unbalanced Parenthesis" 3 (DUMMY.FOR.ERRORSET)) \\COM.KILL.SEXPR D1 (P 0 PTR I 0 STREAM) @ @ @H@ k h(25Q EMACS.DELETE 20Q EMACS.GETFILEPTR 12Q EMACS.SEXPR.FWD 3 EMACS.GETFILEPTR) NIL () \\COM.TOP.OF.DEFINITION D1 (I 0 STREAM F 0 EMACS.NONCR F 1 EMACS.ARRAY F 2 EMACS.NONWS) !@ h@P Q@ (Rj@ (34Q EMACS.CHAR.BACK 21Q EMACS.POINT 13Q EMACS.SKIP.SYNTAX.BACK 3 EMACS.BOFP) NIL () \\COM.END.OF.DEFINITION D1 (P 0 CODE I 0 STREAM F 1 EMACS.NONCR F 2 EMACS.ARRAY F 3 EMACS.CR) #@ @Q @ R@ (Sjh(30Q EMACS.POINT 22Q EMACS.CHAR.FWD 15Q EMACS.SKIP.SYNTAX.FWD 6 EMACS.EOFP) NIL () \\COM.GRIND.DEFINITION D1 (P 2 PTR2 P 1 EXPR P 0 PTR1 I 0 STREAM F 3 EMACS.WS) )@S @ @ @ @HJk Ihddd@ h(45Q PRINTDEF 33Q EMACS.DELETE 20Q GETFILEPTR 14Q READ 10Q GETFILEPTR 4 EMACS.SKIP.SYNTAX.FWD) NIL () EMACS.KILL.WHITESPACE.ON.LINE D1 (P 1 THERE P 0 HERE I 0 STREAM F 3 EMACS.WS F 4 EMACS.CR) :@ !@S @ kY@H @T I@ kٺdJJYdH @HI h(66Q EMACS.DELETE 41Q EMACS.GETFILEPTR 34Q EMACS.SKIPTO.SYNTAX.FWD 27Q EMACS.SETFILEPTR 17Q EMACS.GETFILEPTR 13Q EMACS.SKIP.SYNTAX.FWD 3 EMACS.GETFILEPTR) NIL () \\COM.INDENT.NEXT.LINE D1 (I 0 STREAM) @ @d k @ (21Q \\COM.INDENT.FOR.SEXPR 15Q EMACS.SETFILEPTR 10Q EMACS.GETFILEPTR 3 TERPRI) NIL () \\COM.INDENT.FOR.SEXPR D1 (P 2 IDX P 1 OFFSET P 0 HERE I 0 STREAM) @@ @ !@ @ @ @ Y@H Ij@Io @HIk h(74Q EMACS.SETFILEPTR 62Q TEDIT.INSERT 57Q ALLOCSTRING 42Q EMACS.SETFILEPTR 33Q EMACS.GETFILEPTR 26Q EMACS.BOL 22Q EMACS.GETFILEPTR 16Q EMACS.SEXPR.BACK 7 EMACS.GETFILEPTR 3 EMACS.KILL.WHITESPACE.ON.LINE) NIL ( 54Q " ") EMACS.FLASH D1 (I 2 DURATION I 1 POINT I 0 STREAM) @d kkAi @i B (26Q DISMISS 22Q TEDIT.SHOWSEL 15Q TEDIT.SETSEL 4 EMACS.GETFILEPTR) NIL () EMACS.FLASH.SEXPR.BACKA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 STREAM) P ih(3 EMACS.SEXPR.BACK) NIL () EMACS.FLASH.SEXPR.BACK D1 (P 2 FINAL.PTR P 1 MATCHED P 0 INITIAL.PTR I 0 STREAM) N@ o @ I@oo @ l @ @gIlȂn @H h(112Q EMACS.SETCARETPTR 104Q EMACS.FLASH 64Q EMACS.GETFILEPTR 57Q FLASHWINDOW 52Q \TEDIT.MAINW 40Q TEDIT.NOTIFY 16Q EMACS.GETFILEPTR 12Q EMACS.FLASH.SEXPR.BACKA0001 3 EMACS.GETFILEPTR) (71Q RIGHT 45Q STREAM) ( 35Q (CLEARW) 31Q "Unbalanced Parentheses" 7 (DUMMY.FOR.ERRORSET)) \\COM.FLASH.PAREN D1 (I 0 STREAM) @l) @ (11Q EMACS.FLASH.SEXPR.BACK 5 \BOUT) NIL () \\COM.FLASH.BRACKET D1 (I 0 STREAM) @l] @ (11Q EMACS.FLASH.SEXPR.BACK 5 \BOUT) NIL () EMACS.PAREN.FLASHING.ON D1 NIL l)g l]g (17Q EMACS.MAKE.COMMAND 7 EMACS.MAKE.COMMAND) (14Q \\COM.FLASH.BRACKET 4 \\COM.FLASH.PAREN) () EMACS.PAREN.FLASHING.OFF D1 (F 0 TEDIT.READTABLE) l)hP l]hP (15Q TEDIT.SETSYNTAX 6 TEDIT.SETSYNTAX) NIL () DEDITEmacs D1 NIL i  hi (30Q DEDITZAPCAR 25Q READ 22Q EMACS 15Q MKSTRING 11Q TOPSELECTION 6 TOPSELECTION 3 CURSOR) NIL () \\COM.DEDIT.EXPRESSION D1 (P 2 PTR2 P 1 EXPR P 0 PTR1 I 0 STREAM) )@ @ @ @HJk I Ydhddd@ h(45Q PRINTDEF 32Q EDITE 26Q EMACS.DELETE 13Q GETFILEPTR 7 READ 3 GETFILEPTR) NIL () \\COM.SNARF.EXPRESSION.FROM.DEDIT D1 (I 0 STREAM) hddd@ (14Q PRINTDEF 2 TOPSELECTION) NIL () \\COM.JUMP.TO.BEGINNING D1 (I 0 STREAM) @j (4 EMACS.SETFILEPTR) NIL () \\COM.JUMP.TO.END D1 (I 0 STREAM) @d (7 EMACS.SETFILEPTR 4 GETEOFPTR) NIL () \\COM.NOT.MODIFIED D1 (I 0 STREAM) @i @ (20Q EMACS.UPDATE.MODELINE 15Q \TEDIT.MAINW 4 TEDIT.STREAMCHANGEDP) (10Q STREAM) () \\COM.UNIVERSAL.ARGUMENT D1 (P 0 WINDOW I 0 STREAM) @ Hg@ l g(31Q PUTWINDOWPROP 23Q EMACS.NUMERIC.ARG 10Q \TEDIT.MAINW) (34Q NUMERIC.ARG 17Q NUMERIC.ARG 3 STREAM) () \\COM.META.AUTOARGUMENT D1 (P 1 OLDVAL P 0 WINDOW I 1 QTY I 0 STREAM) *@ Hg HgIAAIl g(44Q PUTWINDOWPROP 22Q GETWINDOWUSERPROP 10Q \TEDIT.MAINW) (47Q NUMERIC.ARG 27Q NUMERIC.ARG 17Q NUMERIC.ARG 3 STREAM) () \\COM.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) g@ q@H Y@H ZIk\@L [@I @W @ dKK]@I @W @ Jk_dOO^@M @MNk @l h(143Q \BOUT 135Q EMACS.DELETE 125Q EMACS.SETFILEPTR 101Q EMACS.GETFILEPTR 75Q EMACS.SKIP.SYNTAX.FWD 67Q EMACS.SETFILEPTR 53Q EMACS.GETFILEPTR 47Q EMACS.SKIP.SYNTAX.BACK 41Q EMACS.SETFILEPTR 33Q EMACS.BOL 21Q EMACS.EOL 13Q EMACS.BOL 3 EMACS.GETFILEPTR) NIL () \\COM.QUOTE.NEXT.CHARACTER D1 (P 2 QTY P 1 PTR I 0 STREAM) H@ @ kHHk@oo @J Ik @JI @V h(104Q CLEARW 66Q EMACS.SETFILEPTR 57Q TEDIT.INSERT 51Q ALLOCSTRING 46Q TYI 41Q TEDIT.NOTIFY 7 EMACS.NUMERIC.ARG 3 EMACS.GETFILEPTR) (77Q TEXTOBJ 72Q STREAM) ( 36Q (CLEARW) 32Q "C-Q") \\COM.REDISPLAY D1 (I 0 STREAM) @ (13Q REDISPLAYW 10Q \TEDIT.MAINW) (3 STREAM) () \\COM.OPEN.LINE D1 (P 2 I P 0 HERE I 0 STREAM) '@ @ kJI@ JkZ@H h(43Q EMACS.SETFILEPTR 26Q TERPRI 12Q EMACS.NUMERIC.ARG 3 EMACS.GETFILEPTR) NIL () \\COM.DELETE.BLANK.LINES D1 (P 2 START I 0 STREAM F 3 EMACS.WS) 9@S @ @ kHdII@S @J@ k @ @ (66Q \BACKBIN 62Q TERPRI 55Q EMACS.DELETE 50Q EMACS.GETFILEPTR 41Q EMACS.SKIP.SYNTAX.FWD 14Q EMACS.GETFILEPTR 10Q GETEOFPTR 4 EMACS.SKIP.SYNTAX.BACK) NIL () \\COM.QUIT.EMACS D1 (P 1 ANS P 0 WINDOW I 0 STREAM F 2 EMACS.ALL.BUFFERS) k@V@.0H *oohH Yoo hk)o @ R c@i @ (147Q TEDIT.QUIT 135Q TEDIT.STREAMCHANGEDP 125Q DREMOVE 121Q \TEDIT.MAINW 106Q MEMBER 73Q TEDIT.NOTIFY 55Q PROMPTFORWORD 36Q CLEARW) (142Q STREAM 114Q STREAM 26Q TEXTOBJ 21Q STREAM 10Q TEXTOBJ 3 STREAM) ( 103Q (131Q 171Q) 70Q (CLEARW) 64Q "Quit aborted" 50Q "Yes" 44Q "Buffer has been modified! Are you sure?") \\COM.HARDCOPY.BUFFER D1 (P 0 PRESSP I 0 STREAM) #@ @ @Hdo H h(37Q TEDIT.HARDCOPY 33Q TEDIT.GETINPUT 7 EMACS.NUMERIC.ARG.P 3 \\COM.JUMP.TO.BEGINNING) (22Q STREAM) ( 30Q "Press Filename:") \\COM.STRING.SEARCH.FORWARD D1 (P 0 TEXTOBJ I 0 STREAM) @Hdo h(24Q TEDIT.FIND 21Q TEDIT.GETINPUT) (3 STREAM) ( 16Q "Search string:") \\COM.STRING.REPLACE D1 (P 0 TEXTOBJ I 0 STREAM) $@Hdo Ho @ h(40Q TEDIT.SUBSTITUTE 35Q EMACS.NUMERIC.ARG.P 31Q TEDIT.GETINPUT 21Q TEDIT.GETINPUT) (3 STREAM) ( 26Q "Replacement string:" 16Q "Search string:") (PRETTYCOMPRINT COMSCOMS) (RPAQQ COMSCOMS ((INITVARS (\\EMACS.^X.DISPATCH (QUOTE (NIL))) (\\EMACS.META.DISPATCH (QUOTE (NIL)))) (FNS EMACS.APPLY* EMACS.CALLFUN EMACS.CLOSE EMACS.MAKE.COMMAND TOUPPER TOLOWER EMACS.CHARACTER \\COM.EMACS.DISPATCH.^X EMACS.MAKE.^X.COMMAND \\COM.EMACS.DISPATCH.META EMACS.MAKE.META.COMMAND \\COM.FORWARD.CHARACTER \\COM.BACKWARDS.CHARACTER \\COM.DELETE.CHARACTER \\COM.RUBOUT \\COM.TRANSPOSE.CHARACTERS \\COM.FORWARD.WORD \\COM.BACKWARDS.WORD \\COM.DELETE.WORD.FORWARD \\COM.DELETE.WORD.BACKWARD \\COM.BEGINNING.OF.LINE \\COM.END.OF.LINE \\COM.PREVIOUS.LINE \\COM.NEXT.LINE \\COM.KILL.LINE \\COM.FORWARD.PARAGRAPH \\COM.BACKWARDS.PARAGRAPH \\COM.WRITE.FILE \\COM.SAVE.FILE \\COM.GET.FILE \\COM.INSERT.FILE \\COM.LAST.SCREENFUL \\COM.NEXT.SCREENFUL \\COM.EVAL.FROM.BUFFER \\COM.FORWARD.SEXPR \\COM.BACKWARDS.SEXPR \\COM.KILL.SEXPR \\COM.TOP.OF.DEFINITION \\COM.END.OF.DEFINITION \\COM.GRIND.DEFINITION EMACS.KILL.WHITESPACE.ON.LINE \\COM.INDENT.NEXT.LINE \\COM.INDENT.FOR.SEXPR EMACS.FLASH EMACS.FLASH.SEXPR.BACK \\COM.FLASH.PAREN \\COM.FLASH.BRACKET EMACS.PAREN.FLASHING.ON EMACS.PAREN.FLASHING.OFF DEDITEmacs \\COM.DEDIT.EXPRESSION \\COM.SNARF.EXPRESSION.FROM.DEDIT \\COM.JUMP.TO.BEGINNING \\COM.JUMP.TO.END \\COM.NOT.MODIFIED \\COM.UNIVERSAL.ARGUMENT \\COM.META.AUTOARGUMENT \\COM.JOIN.LINES \\COM.QUOTE.NEXT.CHARACTER \\COM.REDISPLAY \\COM.OPEN.LINE \\COM.DELETE.BLANK.LINES \\COM.QUIT.EMACS \\COM.HARDCOPY.BUFFER \\COM.STRING.SEARCH.FORWARD \\COM.STRING.REPLACE) (P (TEDIT.SETSYNTAX (CHARCODE ^Z) (QUOTE UNDO) TEDIT.READTABLE) (TEDIT.SETSYNTAX (CHARCODE ^R) (QUOTE REDO) TEDIT.READTABLE) (TEDIT.SETSYNTAX ( CHARCODE #K) (QUOTE DELETE) TEDIT.READTABLE) (TEDIT.SETSYNTAX (CHARCODE #k) (QUOTE DELETE) TEDIT.READTABLE) (EMACS.MAKE.COMMAND (CHARCODE ^X) (QUOTE \\COM.EMACS.DISPATCH.^X) "Prefix for other commands. C-X ? for a list") (EMACS.MAKE.COMMAND (CHARCODE ESC) (QUOTE \\COM.EMACS.DISPATCH.META) "Sets the meta bit for the next character.") (EMACS.MAKE.COMMAND (CHARCODE ^F) (QUOTE \\COM.FORWARD.CHARACTER) "Move forward arg characters") (EMACS.MAKE.COMMAND (CHARCODE ^B) ( QUOTE \\COM.BACKWARDS.CHARACTER) "Move back arg characters") (EMACS.MAKE.COMMAND (CHARCODE ^D) (QUOTE \\COM.DELETE.CHARACTER) "Delete character(s) at point") (EMACS.MAKE.COMMAND (CHARCODE DEL) (QUOTE \\COM.RUBOUT) "Delete character(s) left of point") (EMACS.MAKE.COMMAND (CHARCODE ^T) (QUOTE \\COM.TRANSPOSE.CHARACTERS) "Transpose characters between caret, except at EOL; then transpose two before caret") ( EMACS.MAKE.META.COMMAND (CHARCODE F) (QUOTE \\COM.FORWARD.WORD) "Move forward arg words") ( EMACS.MAKE.META.COMMAND (CHARCODE B) (QUOTE \\COM.BACKWARDS.WORD) "Move back arg words") ( EMACS.MAKE.META.COMMAND (CHARCODE D) (QUOTE \\COM.DELETE.WORD.FORWARD) "Delete words(s) at point") ( EMACS.MAKE.META.COMMAND (CHARCODE DEL) (QUOTE \\COM.DELETE.WORD.BACKWARD) "Delete words(s) left of point") (EMACS.MAKE.COMMAND (CHARCODE ^A) (QUOTE \\COM.BEGINNING.OF.LINE) "Go to left edge of screen") (EMACS.MAKE.COMMAND (CHARCODE ^E) (QUOTE \\COM.END.OF.LINE) "Go to right edge of line") (EMACS.MAKE.COMMAND (CHARCODE ^P) (QUOTE \\COM.PREVIOUS.LINE) "Go to argth previous line") (EMACS.MAKE.COMMAND (CHARCODE ^N) (QUOTE \\COM.NEXT.LINE) "Go to argth next line") (EMACS.MAKE.COMMAND (CHARCODE ^K) (QUOTE \\COM.KILL.LINE) "Kill from here to EOL") (EMACS.MAKE.META.COMMAND (CHARCODE %]) (QUOTE \\COM.FORWARD.PARAGRAPH) "Go to end of paragraph") (EMACS.MAKE.META.COMMAND (CHARCODE %[) (QUOTE \\COM.BACKWARDS.PARAGRAPH) "Go to start of paragraph") (EMACS.MAKE.^X.COMMAND (CHARCODE ^W) (QUOTE \\COM.WRITE.FILE) "Prompts for filename and writes file") (EMACS.MAKE.^X.COMMAND (CHARCODE ^S) (QUOTE \\COM.SAVE.FILE) "Save file to last filename written to, or filename read from") (EMACS.MAKE.^X.COMMAND (CHARCODE ^F) (QUOTE \\COM.GET.FILE) "Loads a file into the buffer") (EMACS.MAKE.^X.COMMAND (CHARCODE ^V) (QUOTE \\COM.GET.FILE)) (EMACS.MAKE.^X.COMMAND (CHARCODE I) (QUOTE \\COM.INSERT.FILE) "Inserts a file at point") (EMACS.MAKE.META.COMMAND (CHARCODE V) (QUOTE \\COM.LAST.SCREENFUL) "Back up a screenful") (EMACS.MAKE.COMMAND (CHARCODE ^V) (QUOTE \\COM.NEXT.SCREENFUL) "Supposedly displays next screenful") (EMACS.MAKE.^X.COMMAND (CHARCODE ^Z) (QUOTE \\COM.EVAL.FROM.BUFFER) "Reads form left of point and EVALuates it. Returned value in echo area.") ( EMACS.MAKE.META.COMMAND (CHARCODE ^F) (QUOTE \\COM.FORWARD.SEXPR) "Forward one Sexpr") ( EMACS.MAKE.META.COMMAND (CHARCODE ^B) (QUOTE \\COM.BACKWARDS.SEXPR) "Backwards one Sexpr") ( EMACS.MAKE.META.COMMAND (CHARCODE ^K) (QUOTE \\COM.KILL.SEXPR) "Kill Sexpr to right of point") ( EMACS.MAKE.META.COMMAND (CHARCODE ^A) (QUOTE \\COM.TOP.OF.DEFINITION) "Go to top of definition") ( EMACS.MAKE.META.COMMAND (CHARCODE ^E) (QUOTE \\COM.END.OF.DEFINITION) "Go to end of definition") ( EMACS.MAKE.META.COMMAND (CHARCODE G) (QUOTE \\COM.GRIND.DEFINITION) "Grind Sexpr to right of point into buffer") (EMACS.MAKE.COMMAND (CHARCODE LF) (QUOTE \\COM.INDENT.NEXT.LINE) "Supposedly indents next line correctly") (EMACS.MAKE.COMMAND (CHARCODE TAB) ( QUOTE \\COM.INDENT.FOR.SEXPR) "Supposedly indents current line correctly") (EMACS.MAKE.^X.COMMAND ( CHARCODE D) (QUOTE \\COM.DEDIT.EXPRESSION) "Call DEdit on form to right of point") ( EMACS.MAKE.^X.COMMAND (CHARCODE ^D) (QUOTE \\COM.SNARF.EXPRESSION.FROM.DEDIT) "Grabs selection from DEdit") (EMACS.MAKE.META.COMMAND (CHARCODE <) (QUOTE \\COM.JUMP.TO.BEGINNING) "Go to beginning of file") (EMACS.MAKE.META.COMMAND (CHARCODE >) (QUOTE \\COM.JUMP.TO.END) "Go to end of file") (EMACS.MAKE.META.COMMAND (CHARCODE ~) (QUOTE \\COM.NOT.MODIFIED) "Forget that buffer has been modified") (EMACS.MAKE.COMMAND (CHARCODE ^U) (QUOTE \\COM.UNIVERSAL.ARGUMENT) "Multiply current arg by 4") (for I from (CHARCODE 0) to (CHARCODE 9) do ( EMACS.MAKE.META.COMMAND I (LIST (QUOTE LAMBDA) (QUOTE (STREAM)) (LIST (QUOTE \\COM.META.AUTOARGUMENT) (QUOTE STREAM) (IDIFFERENCE I (CHARCODE 0)))) "Type value as argument")) (EMACS.MAKE.META.COMMAND ( CHARCODE ^) (QUOTE \\COM.JOIN.LINES) "Deletes whitespace between lines") (EMACS.MAKE.COMMAND (CHARCODE ^Q) (QUOTE \\COM.QUOTE.NEXT.CHARACTER) "Quotes next character") (EMACS.MAKE.COMMAND (CHARCODE ^L) ( QUOTE \\COM.REDISPLAY) "Redisplay buffer") (EMACS.MAKE.COMMAND (CHARCODE ^O) (QUOTE \\COM.OPEN.LINE) "Insert arg blank lines at point") (EMACS.MAKE.^X.COMMAND (CHARCODE ^O) (QUOTE \\COM.DELETE.BLANK.LINES) "Close all but one blank line around point") (EMACS.MAKE.^X.COMMAND ( CHARCODE Q) (QUOTE \\COM.QUIT.EMACS) "Exit EMACS") (EMACS.MAKE.^X.COMMAND (CHARCODE ^Q) (QUOTE \\COM.QUIT.EMACS) "Exit EMACS") (EMACS.MAKE.^X.COMMAND (CHARCODE H) (QUOTE \\COM.HARDCOPY.BUFFER) "Hardcopy buffer. Arg means create press file.") (EMACS.MAKE.COMMAND (CHARCODE ^S) (QUOTE \\COM.STRING.SEARCH.FORWARD) "Search forward for a string") (EMACS.MAKE.META.COMMAND (CHARCODE %%) ( QUOTE \\COM.STRING.SEARCH.FORWARD) "Search forward for a string, replacing it with another. Argument means query each replacement")))) (RPAQ? \\EMACS.^X.DISPATCH (QUOTE (NIL))) (RPAQ? \\EMACS.META.DISPATCH (QUOTE (NIL))) (TEDIT.SETSYNTAX (CHARCODE ^Z) (QUOTE UNDO) TEDIT.READTABLE) (TEDIT.SETSYNTAX (CHARCODE ^R) (QUOTE REDO) TEDIT.READTABLE) (TEDIT.SETSYNTAX (CHARCODE #K) (QUOTE DELETE) TEDIT.READTABLE) (TEDIT.SETSYNTAX (CHARCODE #k) (QUOTE DELETE) TEDIT.READTABLE) (EMACS.MAKE.COMMAND (CHARCODE ^X) (QUOTE \\COM.EMACS.DISPATCH.^X) "Prefix for other commands. C-X ? for a list") (EMACS.MAKE.COMMAND (CHARCODE ESC) (QUOTE \\COM.EMACS.DISPATCH.META) "Sets the meta bit for the next character.") (EMACS.MAKE.COMMAND (CHARCODE ^F) (QUOTE \\COM.FORWARD.CHARACTER) "Move forward arg characters") (EMACS.MAKE.COMMAND (CHARCODE ^B) (QUOTE \\COM.BACKWARDS.CHARACTER) "Move back arg characters") (EMACS.MAKE.COMMAND (CHARCODE ^D) (QUOTE \\COM.DELETE.CHARACTER) "Delete character(s) at point") (EMACS.MAKE.COMMAND (CHARCODE DEL) (QUOTE \\COM.RUBOUT) "Delete character(s) left of point") (EMACS.MAKE.COMMAND (CHARCODE ^T) (QUOTE \\COM.TRANSPOSE.CHARACTERS) "Transpose characters between caret, except at EOL; then transpose two before caret") (EMACS.MAKE.META.COMMAND (CHARCODE F) (QUOTE \\COM.FORWARD.WORD) "Move forward arg words") (EMACS.MAKE.META.COMMAND (CHARCODE B) (QUOTE \\COM.BACKWARDS.WORD) "Move back arg words") (EMACS.MAKE.META.COMMAND (CHARCODE D) (QUOTE \\COM.DELETE.WORD.FORWARD) "Delete words(s) at point") (EMACS.MAKE.META.COMMAND (CHARCODE DEL) (QUOTE \\COM.DELETE.WORD.BACKWARD) "Delete words(s) left of point") (EMACS.MAKE.COMMAND (CHARCODE ^A) (QUOTE \\COM.BEGINNING.OF.LINE) "Go to left edge of screen") (EMACS.MAKE.COMMAND (CHARCODE ^E) (QUOTE \\COM.END.OF.LINE) "Go to right edge of line") (EMACS.MAKE.COMMAND (CHARCODE ^P) (QUOTE \\COM.PREVIOUS.LINE) "Go to argth previous line") (EMACS.MAKE.COMMAND (CHARCODE ^N) (QUOTE \\COM.NEXT.LINE) "Go to argth next line") (EMACS.MAKE.COMMAND (CHARCODE ^K) (QUOTE \\COM.KILL.LINE) "Kill from here to EOL") (EMACS.MAKE.META.COMMAND (CHARCODE %]) (QUOTE \\COM.FORWARD.PARAGRAPH) "Go to end of paragraph") (EMACS.MAKE.META.COMMAND (CHARCODE %[) (QUOTE \\COM.BACKWARDS.PARAGRAPH) "Go to start of paragraph") (EMACS.MAKE.^X.COMMAND (CHARCODE ^W) (QUOTE \\COM.WRITE.FILE) "Prompts for filename and writes file") (EMACS.MAKE.^X.COMMAND (CHARCODE ^S) (QUOTE \\COM.SAVE.FILE) "Save file to last filename written to, or filename read from") (EMACS.MAKE.^X.COMMAND (CHARCODE ^F) (QUOTE \\COM.GET.FILE) "Loads a file into the buffer") (EMACS.MAKE.^X.COMMAND (CHARCODE ^V) (QUOTE \\COM.GET.FILE)) (EMACS.MAKE.^X.COMMAND (CHARCODE I) (QUOTE \\COM.INSERT.FILE) "Inserts a file at point") (EMACS.MAKE.META.COMMAND (CHARCODE V) (QUOTE \\COM.LAST.SCREENFUL) "Back up a screenful") (EMACS.MAKE.COMMAND (CHARCODE ^V) (QUOTE \\COM.NEXT.SCREENFUL) "Supposedly displays next screenful") (EMACS.MAKE.^X.COMMAND (CHARCODE ^Z) (QUOTE \\COM.EVAL.FROM.BUFFER) "Reads form left of point and EVALuates it. Returned value in echo area.") (EMACS.MAKE.META.COMMAND (CHARCODE ^F) (QUOTE \\COM.FORWARD.SEXPR) "Forward one Sexpr") (EMACS.MAKE.META.COMMAND (CHARCODE ^B) (QUOTE \\COM.BACKWARDS.SEXPR) "Backwards one Sexpr") (EMACS.MAKE.META.COMMAND (CHARCODE ^K) (QUOTE \\COM.KILL.SEXPR) "Kill Sexpr to right of point") (EMACS.MAKE.META.COMMAND (CHARCODE ^A) (QUOTE \\COM.TOP.OF.DEFINITION) "Go to top of definition") (EMACS.MAKE.META.COMMAND (CHARCODE ^E) (QUOTE \\COM.END.OF.DEFINITION) "Go to end of definition") (EMACS.MAKE.META.COMMAND (CHARCODE G) (QUOTE \\COM.GRIND.DEFINITION) "Grind Sexpr to right of point into buffer") (EMACS.MAKE.COMMAND (CHARCODE LF) (QUOTE \\COM.INDENT.NEXT.LINE) "Supposedly indents next line correctly") (EMACS.MAKE.COMMAND (CHARCODE TAB) (QUOTE \\COM.INDENT.FOR.SEXPR) "Supposedly indents current line correctly") (EMACS.MAKE.^X.COMMAND (CHARCODE D) (QUOTE \\COM.DEDIT.EXPRESSION) "Call DEdit on form to right of point") (EMACS.MAKE.^X.COMMAND (CHARCODE ^D) (QUOTE \\COM.SNARF.EXPRESSION.FROM.DEDIT) "Grabs selection from DEdit") (EMACS.MAKE.META.COMMAND (CHARCODE <) (QUOTE \\COM.JUMP.TO.BEGINNING) "Go to beginning of file") (EMACS.MAKE.META.COMMAND (CHARCODE >) (QUOTE \\COM.JUMP.TO.END) "Go to end of file") (EMACS.MAKE.META.COMMAND (CHARCODE ~) (QUOTE \\COM.NOT.MODIFIED) "Forget that buffer has been modified") (EMACS.MAKE.COMMAND (CHARCODE ^U) (QUOTE \\COM.UNIVERSAL.ARGUMENT) "Multiply current arg by 4") (for I from (CHARCODE 0) to (CHARCODE 9) do (EMACS.MAKE.META.COMMAND I (LIST (QUOTE LAMBDA) (QUOTE ( STREAM)) (LIST (QUOTE \\COM.META.AUTOARGUMENT) (QUOTE STREAM) (IDIFFERENCE I (CHARCODE 0)))) "Type value as argument")) (EMACS.MAKE.META.COMMAND (CHARCODE ^) (QUOTE \\COM.JOIN.LINES) "Deletes whitespace between lines") (EMACS.MAKE.COMMAND (CHARCODE ^Q) (QUOTE \\COM.QUOTE.NEXT.CHARACTER) "Quotes next character") (EMACS.MAKE.COMMAND (CHARCODE ^L) (QUOTE \\COM.REDISPLAY) "Redisplay buffer") (EMACS.MAKE.COMMAND (CHARCODE ^O) (QUOTE \\COM.OPEN.LINE) "Insert arg blank lines at point") (EMACS.MAKE.^X.COMMAND (CHARCODE ^O) (QUOTE \\COM.DELETE.BLANK.LINES) "Close all but one blank line around point") (EMACS.MAKE.^X.COMMAND (CHARCODE Q) (QUOTE \\COM.QUIT.EMACS) "Exit EMACS") (EMACS.MAKE.^X.COMMAND (CHARCODE ^Q) (QUOTE \\COM.QUIT.EMACS) "Exit EMACS") (EMACS.MAKE.^X.COMMAND (CHARCODE H) (QUOTE \\COM.HARDCOPY.BUFFER) "Hardcopy buffer. Arg means create press file.") (EMACS.MAKE.COMMAND (CHARCODE ^S) (QUOTE \\COM.STRING.SEARCH.FORWARD) "Search forward for a string") (EMACS.MAKE.META.COMMAND (CHARCODE %%) (QUOTE \\COM.STRING.SEARCH.FORWARD) "Search forward for a string, replacing it with another. Argument means query each replacement") (PUTPROPS COMS.FPKG COPYRIGHT ("David Vinayak Wallace" 1984)) NIL