(FILECREATED " 3-Aug-84 23:21:29" ("compiled on " {PHYLUM}<3-LISP>EMACS>WINDOW.FPKG;1) " 8-Jun-84 11:17:20" tcompl%'d in WORK dated "21-Jun-84 10:50:28") (FILECREATED " 3-Aug-84 23:21:14" {PHYLUM}<3-LISP>EMACS>WINDOW.FPKG;1 15854 changes to: (RECORDS EMACSSTREAM) (FNS \TEDIT.WINDOW.TITLE TYI EMACS fsEDITORNAME EMACS.INIT EMACS.INIT.MENU EMACS.CREATEW \EMACS.GENSYM.BUFFER.NAME.FOR \EMACS.ICONFUN EMACS.GET.REGIONS EMACS.GET.REGIONS.FROM.WINDOW EMACS.INTERACTION.WINDOW.PIXEL.HEIGHT EMACS.UPDATE.MODELINE EMACS.SET.BUFFER.NAME EMACS.REPAINTFN EMACS.QUITFN ALREADY.BEING.EDITED TEDIT.NOTIFY MAKE.EMACS.BUG.FORM)) \TEDIT.WINDOW.TITLE D1 NIL hNIL NIL () TYI D1 NIL (5 \GETKEY 2 \WAITFORSYSBUFP) NIL () EMACS D1 (P 2 OLDWINDOW P 1 PROC P 0 TPROPS I 4 NOMODELINE I 3 PROPS I 2 DONTSPAWN I 1 WINDOW I 0 TEXT F 3 TEDIT.DEFAULT.WINDOW F 4 TEDIT.DEFAULT.PROPS) Ö0@œ@lñ¦@ ZµdB’SµD’AµAšAg ’Aµ ohAD b¿CgogAg hT ¸AgH ¿Agg ¿B²@AiH  É. hg@d²dið³d¥d¡µ g@hAhHd²dið³d¥d¡µ gHhhgg YdA I (323Q TTY.PROCESS 317Q PROCESS.WINDOW 311Q ADD.PROCESS 173Q TTY.PROCESS 166Q \INSUREWINDOW 162Q \TEDIT1 147Q PUTWINDOWPROP 134Q PUTWINDOWPROP 123Q \APPEND2 120Q \APPEND2 107Q GETWINDOWUSERPROP 62Q EMACS.CREATEW 44Q GETWINDOWUSERPROP 16Q ALREADY.BEING.EDITED) (306Q NO 303Q EMACS 266Q QUOTE 230Q QUOTE 200Q \TEDIT1 144Q EMACS.QUITFN 141Q TEDIT.QUITFN 130Q TEDIT.PROPS 104Q PROMPTWINDOW 100Q PROMPTWINDOW 71Q TEDIT.QUITFN 41Q NOMODELINE) ( 75Q (EMACS.QUITFN) 54Q "Indicate region for Edit Window.") fsEDITORNAME D1 (I 0 NEWNAME F 0 \\CURRENT.EDITOR.NAME F 1 \\OLD.EDITOR.NAME) @šPc¿@c¿P(14Q EMACS.INIT.MENU) NIL () EMACS.INIT D1 NIL 1kg lg lg lg gg i(55Q DEFDEDITCOM 44Q EMACS.MAKE.COMMAND 34Q EMACS.MAKE.COMMAND 24Q EMACS.MAKE.COMMAND 14Q EMACS.MAKE.COMMAND 5 EMACS.INIT.MENU 2 EMACS.INIT.ARRAY) (52Q DEDITEmacs 47Q Emacs 41Q \\COM.RUBOUT 31Q \\COM.EMACS.DISPATCH.META 21Q \\COM.EMACS.DISPATCH.^X 11Q \\COM.BACKWARDS.PARAGRAPH) () EMACS.INIT.MENU D1 (F 3 \\CURRENT.EDITOR.NAME F 4 BackgroundMenuCommands F 5 \\OLD.EDITOR.NAME F 6 BackgroundMenu) <So0T°%dggUSh ­d¸IµHhZH&¹µÜJchc (36Q MEMB) (24Q EMACS 21Q TEdit) ( 4 ((QUOTE (EMACS)) "Opens an Edit Window.")) EMACS.CREATEW D1 (P 2 MODE.REGION P 1 MODE.WINDOW P 0 REGIONS I 3 NOMODE I 2 EXISTING.WINDOW I 1 FILE I 0 PROMPT F 3 TEDIT.DEFAULT.WINDOW F 4 EMACS.ALL.BUFFERS F 5 TEDIT.DEFAULT.FONT) ðB§@` ¿0BžC•Bc±ÀBµ‚±ÇXºH cgg ¿Jo YSJg ¿¿US ¿UI ¿Sgi ¿SgI ¿Sgk ¿Igg ¿IgA ¿Igi ¿Igg ¿Igi ¿IgJj ¿IgJo ¿Si SdT ¤TcS ºBc±ÿK(347Q EMACS.GET.REGIONS.FROM.WINDOW 335Q MEMB 326Q EMACS.UPDATE.MODELINE 320Q PUTWINDOWPROP 276Q PUTWINDOWPROP 257Q PUTWINDOWPROP 246Q PUTWINDOWPROP 233Q PUTWINDOWPROP 222Q PUTWINDOWPROP 217Q \EMACS.GENSYM.BUFFER.NAME.FOR 206Q PUTWINDOWPROP 173Q PUTWINDOWPROP 162Q PUTWINDOWPROP 151Q PUTWINDOWPROP 140Q DSPFONT 132Q DSPFONT 124Q CLRPROMPT 120Q ATTACHWINDOW 106Q CREATEW 103Q CONCAT 74Q fsEDITORNAME 66Q PUTWINDOWPROP 53Q CREATEW 43Q EMACS.GET.REGIONS 13Q PRIN1 2 CLRPROMPT) (303Q MAXSIZE 264Q MINSIZE 253Q TEDIT.PROMPTWINDOW 243Q NILL 240Q PAGEFULLFN 227Q EMACS.MODE.WINDOW.P 213Q BUFFER.NAME 203Q EMACS.REPAINTFN 200Q REPAINTFN 167Q NUMERIC.ARG 156Q PROMPTWINDOW 145Q TEDITCREATED 115Q JUSTIFY 63Q \EMACS.ICONFUN 60Q ICONFN 10Q PROMPTWINDOW) ( 314Q 17777777777Q 100Q " [NEW]") \EMACS.GENSYM.BUFFER.NAME.FOR D1 (I 0 FILE F 0 EMACS.GENSYM.COUNTER) -@™@ jðPkÔcoP @ dgð‘@gð@(35Q TYPENAME 30Q CONCAT 10Q NCHARS 5 MKSTRING) (50Q ATOMP 41Q STRINGP) ( 24Q "Buffer-") \EMACS.ICONFUN D1 (I 0 WINDOW) ,o@g g @ É.”oƒo (51Q CONCAT 27Q TEXTOBJ 23Q GETWINDOWUSERPROP 15Q GETWINDOWUSERPROP 2 fsEDITORNAME) (32Q TEXTOBJ 20Q BUFFER.NAME 12Q PROMPTWINDOW) ( 46Q "" 41Q " (*) " 6 ": ") EMACS.GET.REGIONS D1 (P 2 MHEIGHT P 1 HEIGHT P 0 BIG) R!HYZdIóœo ¿hHHJØHIJÙHgHHHJH(36Q EMACS.GET.REGIONS 32Q PROMPTPRINT 16Q EMACS.INTERACTION.WINDOW.PIXEL.HEIGHT 2 GETREGION) (72Q BOTTOM) ( 27Q "That's too small. Try again.") EMACS.GET.REGIONS.FROM.WINDOW D1 (I 0 FOR.WINDOW) >@ ÉBHI½HZIñ—g»JIÙŠg»JHØHMH\KL(10Q EMACS.INTERACTION.WINDOW.PIXEL.HEIGHT 3 \INSUREWINDOW) (41Q TOP 31Q BOTTOM) () EMACS.INTERACTION.WINDOW.PIXEL.HEIGHT D1 (F 0 EMACS.INTERACTION.WINDOW.HEIGHT F 1 TEDIT.PROMPT.FONT) PQ Ö(4 FONTHEIGHT) NIL () EMACS.UPDATE.MODELINE D1 (P 0 WINDOW I 1 STARTUP I 0 THING) v@ gð²@g ’@°@g ´@g Š@ÉÉVHd²>g ´6HgoHg A¯Hg É.¤oƒo h(162Q PUTWINDOWPROP 157Q CONCAT 135Q TEXTOBJ 132Q GETWINDOWUSERPROP 121Q GETWINDOWUSERPROP 106Q fsEDITORNAME 75Q GETWINDOWUSERPROP 44Q GETWINDOWUSERPROP 33Q GETWINDOWUSERPROP 20Q GETWINDOWUSERPROP 3 TYPENAME) (140Q TEXTOBJ 127Q MAINWINDOW 116Q BUFFER.NAME 103Q TITLE 72Q EMACS.MODE.WINDOW.P 56Q TEXTOBJ 51Q STREAM 41Q PROMPTWINDOW 30Q TEDITCREATED 15Q EMACS.MODE.WINDOW.P 6 WINDOW) ( 154Q " *" 147Q "" 112Q " -- ") EMACS.SET.BUFFER.NAME D1 (P 0 I.WINDOW I 1 NEWNAME I 0 STREAM) <Aiðhð´5@ÉÉVHg ´HgAµ@ ¿@É h(70Q EMACS.UPDATE.MODELINE 65Q \TEDIT.MAINW 53Q PUTWINDOWPROP 50Q EMACS.FILENAME 33Q GETWINDOWUSERPROP) (60Q STREAM 41Q BUFFER.NAME 30Q EMACS.MODE.WINDOW.P 17Q TEXTOBJ 12Q STREAM) () EMACS.REPAINTFN D1 (I 0 IOWINDOW) @g (11Q \TEDIT.REPAINTFN 6 GETWINDOWUSERPROP) (3 MAINWINDOW) () EMACS.QUITFN D1 (I 1 STREAM I 0 WINDOW F 0 EMACS.ALL.BUFFERS) AÉ P c@g (25Q PUTWINDOWPROP 14Q DREMOVE 10Q \TEDIT.MAINW) (22Q PROMPTWINDOW 3 STREAM) () ALREADY.BEING.EDITED D1 (P 2 W P 0 FILENAME I 0 FNAME F 3 EMACS.ALL.BUFFERS) G@d²g X´ SIµhºghgJ ghgH ”JµiIY°Ñ(72Q EQUAL 67Q PACKFILENAME 54Q PACKFILENAME 51Q TEXTSTREAM.TITLE 46Q TEXTSTREAM 14Q FULLNAME) (63Q BODY 57Q VERSION 42Q BODY 36Q VERSION 11Q OLD) () TEDIT.NOTIFY D1 (P 0 WINDOW I 2 FLAGS I 1 STRING I 0 STREAM) H@ gð›@ÉÉV€@gB ”H ‹gB ”H ¿AH gB ´H h(104Q TERPRI 76Q MEMBER 67Q PRIN1 61Q FRESHLINE 54Q MEMBER 44Q CLEARW 37Q MEMBER 3 TYPENAME) (72Q TERPRI 50Q FRESHLINE 33Q CLEARW 21Q TEXTOBJ 14Q STREAM 6 STREAM) () MAKE.EMACS.BUG.FORM D1 NIL ooo (16Q MAKEXXXSUPPORTFORM) NIL ( 13Q "1-APR-84" 7 "EmacsSupport^" 3 "Emacs") (PRETTYCOMPRINT WINDOWCOMS) (RPAQQ WINDOWCOMS ((INITVARS (BytesPerPage 512) (\\OLD.EDITOR.NAME (QUOTE EMACS)) ( \\CURRENT.EDITOR.NAME (QUOTE EMACS)) (EMACS.INTERACTION.WINDOW.HEIGHT 4) (EMACS.ALL.BUFFERS NIL) ( EMACS.GENSYM.COUNTER 0)) (RECORDS EMACSSTREAM) (FNS \TEDIT.WINDOW.TITLE TYI EMACS fsEDITORNAME EMACS.INIT EMACS.INIT.MENU EMACS.CREATEW \EMACS.GENSYM.BUFFER.NAME.FOR \EMACS.ICONFUN EMACS.GET.REGIONS EMACS.GET.REGIONS.FROM.WINDOW EMACS.INTERACTION.WINDOW.PIXEL.HEIGHT EMACS.UPDATE.MODELINE EMACS.SET.BUFFER.NAME EMACS.REPAINTFN EMACS.QUITFN ALREADY.BEING.EDITED TEDIT.NOTIFY MAKE.EMACS.BUG.FORM) (P (COND ((NULL (RECLOOK (QUOTE STREAM))) (EVAL (FOR R IN SYSTEMRECLST THEREIS (EQ (CADR R) (QUOTE STREAM)))))) (COND ((NULL (RECLOOK (QUOTE SELECTION))) ( LOADFNS NIL (QUOTE {ERIS}TEDIT.DCOM) (QUOTE SYSLOAD) (QUOTE (RECORD DATATYPE))))) (COND (( NULL (RECLOOK (QUOTE TEXTOBJ))) (LOADFNS NIL (QUOTE {ERIS}TEXTOFD.DCOM) (QUOTE SYSLOAD) ( QUOTE (RECORD DATATYPE))))) (SETQ TEDIT.INTERRUPTS (QUOTE ((7 ERROR)))) (SETQ TEDIT.DEFAULT.PROPS ( APPEND TEDIT.DEFAULT.PROPS (QUOTE (CACHE T)))) (ADDTOVAR LAFITESPECIALFORMS ("Emacs Report" (QUOTE MAKE.EMACS.BUG.FORM) "Report an Emacs bug or suggestion")) (SETQ LAFITEFORMSMENU NIL)))) (RPAQ? BytesPerPage 512) (RPAQ? \\OLD.EDITOR.NAME (QUOTE EMACS)) (RPAQ? \\CURRENT.EDITOR.NAME (QUOTE EMACS)) (RPAQ? EMACS.INTERACTION.WINDOW.HEIGHT 4) (RPAQ? EMACS.ALL.BUFFERS NIL) (RPAQ? EMACS.GENSYM.COUNTER 0) (ACCESSFNS EMACSSTREAM ((TEXTOBJ (STREAM.F3 DATUM)) (WINDOW (\TEDIT.MAINW (EMACSSTREAM.TEXTOBJ DATUM)) ) (SELECTION (TEXTOBJ.SEL (EMACSSTREAM.TEXTOBJ DATUM))) (CARETPTR (SUB1 (SELECTION.CH# ( EMACSSTREAM.SELECTION DATUM)))) (FILEPTR (GETFILEPTR DATUM)) (DIRTY (TEXTOBJ.\DIRTY ( EMACSSTREAM.TEXTOBJ DATUM))) (PROMPTWINDOW (TEXTOBJ.PROMPTWINDOW (EMACSSTREAM.TEXTOBJ DATUM))))) (COND ((NULL (RECLOOK (QUOTE STREAM))) (EVAL (FOR R IN SYSTEMRECLST THEREIS (EQ (CADR R) (QUOTE STREAM )))))) (COND ((NULL (RECLOOK (QUOTE SELECTION))) (LOADFNS NIL (QUOTE {ERIS}TEDIT.DCOM) (QUOTE SYSLOAD) (QUOTE (RECORD DATATYPE))))) (COND ((NULL (RECLOOK (QUOTE TEXTOBJ))) (LOADFNS NIL (QUOTE {ERIS}TEXTOFD.DCOM) (QUOTE SYSLOAD) (QUOTE (RECORD DATATYPE))))) (SETQ TEDIT.INTERRUPTS (QUOTE ((7 ERROR)))) (SETQ TEDIT.DEFAULT.PROPS (APPEND TEDIT.DEFAULT.PROPS (QUOTE (CACHE T)))) (ADDTOVAR LAFITESPECIALFORMS ("Emacs Report" (QUOTE MAKE.EMACS.BUG.FORM) "Report an Emacs bug or suggestion")) (SETQ LAFITEFORMSMENU NIL) (PUTPROPS WINDOW.FPKG COPYRIGHT ("Xerox Corporation" 1984)) NIL