(FILECREATED " 7-Jun-85 22:05:11" ("compiled on " {ERIS}TEDITKEY.;4) " 2-Jun-85 15:20:07" recompiled changes: \TK.CENTER.SEL.REV \TK.GOTODOCEND \TK.GOTOLINEEND \PARAS.IN.SEL TEDITKEY.INSTALL in "INTERLISP-D 2-Jun-85 ..." dated " 2-Jun-85 17:44:12") (FILECREATED " 7-Jun-85 22:02:46" {ERIS}TEDITKEY.;4 79463 changes to: (FNS TEDITKEY.INSTALL \PARAS.IN.SEL \TK.GOTOLINEEND \TK.GOTODOCEND \TK.CENTER.SEL.REV) (VARS TEDITKEYCOMS) previous date: " 8-May-85 23:03:53" {ERIS}TEDITKEY.;3) \TK.UNDERLINE.SEL.ON D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) 'g 法AB g 法AB @oB (44Q TEDIT.LOOKS 32Q \TK.UNDERLINE.CARET.ON 23Q SHIFTDOWNP 14Q \TK.FONT4 5 SHIFTDOWNP) (20Q USERMODE1 2 FONT) ( 40Q (UNDERLINE ON)) \TK.UNDERLINE.SEL.OFF D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) 'g 法AB g 法AB @oB (44Q TEDIT.LOOKS 32Q \TK.UNDERLINE.CARET.OFF 23Q SHIFTDOWNP 14Q \TK.FONT4 5 SHIFTDOWNP) (20Q USERMODE1 2 FONT) ( 40Q (UNDERLINE OFF)) \TK.BOLD.SEL.ON D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) 'g 法AB g 法AB @oB (44Q TEDIT.LOOKS 32Q \TK.BOLD.CARET.ON 23Q SHIFTDOWNP 14Q \TK.FONT2 5 SHIFTDOWNP) (20Q USERMODE1 2 FONT) ( 40Q (WEIGHT BOLD)) \TK.BOLD.SEL.OFF D1 (I 3 CHARCODE I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) 'g 法AB g 法AB @oB (44Q TEDIT.LOOKS 32Q \TK.BOLD.CARET.OFF 23Q SHIFTDOWNP 14Q \TK.FONT2 5 SHIFTDOWNP) (20Q USERMODE1 2 FONT) ( 40Q (WEIGHT MEDIUM)) \TK.ITALIC.SEL.ON D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) 'g 法AB g 法AB @oB (44Q TEDIT.LOOKS 32Q \TK.ITALIC.CARET.ON 23Q SHIFTDOWNP 14Q \TK.FONT3 5 SHIFTDOWNP) (20Q USERMODE1 2 FONT) ( 40Q (SLOPE ITALIC)) \TK.ITALIC.SEL.OFF D1 (I 3 CHARCODE I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) 'g 法AB g 法AB @oB (44Q TEDIT.LOOKS 32Q \TK.ITALIC.CARET.OFF 23Q SHIFTDOWNP 14Q \TK.FONT3 5 SHIFTDOWNP) (20Q USERMODE1 2 FONT) ( 40Q (SLOPE REGULAR)) \TK.SMALLERSEL D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 \TK.SIZEINCREMENT) ,g 法AB g 法AB @gjPﾙhB (51Q TEDIT.LOOKS 32Q \TK.SMALLER.CARET 23Q SHIFTDOWNP 14Q \TK.FONT7 5 SHIFTDOWNP) (37Q SIZEINCREMENT 20Q USERMODE1 2 FONT) () \TK.LARGERSEL D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 \TK.SIZEINCREMENT) *g 法AB g 法AB @gPhB (47Q TEDIT.LOOKS 32Q \TK.LARGER.CARET 23Q SHIFTDOWNP 14Q \TK.FONT7 5 SHIFTDOWNP) (37Q SIZEINCREMENT 20Q USERMODE1 2 FONT) () \TK.SUPERSCRIPTSEL D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.OFFSETINCREMENT) *g 法AB g 法AB @gPhB (47Q TEDIT.LOOKS 32Q \TK.SUPERSCRIPT.CARET 23Q SHIFTDOWNP 14Q \TK.FONT5 5 SHIFTDOWNP) (37Q OFFSETINCREMENT 20Q USERMODE1 2 FONT) () \TK.SUBSCRIPTSEL D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDITKEY.OFFSETINCREMENT) -g 法AB g 法AB @gP hB (52Q TEDIT.LOOKS 43Q MINUS 32Q \TK.SUBSCRIPT.CARET 23Q SHIFTDOWNP 14Q \TK.FONT6 5 SHIFTDOWNP) (37Q OFFSETINCREMENT 20Q USERMODE1 2 FONT) () \TK.DEFAULTSSEL D1 (P 0 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 1 TEDIT.DEFAULT.CHARLOOKS) 4g 法AB g 法AB `Q @H @HB h(60Q TEDIT.LOOKS 52Q TEDIT.CARETLOOKS 42Q NCREATE2 32Q \TK.DEFAULTS.CARET 23Q SHIFTDOWNP 14Q \TK.FONT8 5 SHIFTDOWNP) (36Q CHARLOOKSTYPE# 20Q USERMODE1 2 FONT) () \TK.DEL.WORD.FORWARD D1 (P 0 HERE I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 1 CLASS) g@AB @ kﾘX@ ｳ@i l如 ｿｰ@ ｳ!@i cｿ@ ｮQ@i 邸 ｰ@H@ Hﾙkﾘg @ A h(143Q TEDIT.NORMALIZECARET 137Q TEDIT.DELETE 133Q TEDIT.SETSEL 121Q GETFILEPTR 105Q TEDIT.WORDGET 102Q \PEEKBIN 73Q EOFP 64Q TEDIT.WORDGET 61Q \PEEKBIN 52Q EOFP 35Q TEDIT.WORDGET 32Q \PEEKBIN 23Q EOFP 14Q GETFILEPTR 10Q \TK.SETFILEPTR.TO.CARET) (130Q RIGHT) () \TK.UCASE.SEL D1 (P 3 POINT P 2 LEN P 1 POS P 0 STR I 2 SEL I 1 TEXTOBJ I 0 STREAM) 5@B BﾉBﾉ Bﾉ@B @H @IJK A h(61Q TEDIT.NORMALIZECARET 55Q TEDIT.SETSEL 46Q TEDIT.INSERT 43Q U-CASE 36Q TEDIT.DELETE 4 TEDIT.SEL.AS.STRING) (24Q SELECTION 16Q SELECTION 10Q SELECTION) () \TK.LCASE.SEL D1 (P 3 POINT P 2 LEN P 1 POS P 0 STR I 2 SEL I 1 TEXTOBJ I 0 STREAM) 5@B BﾉBﾉ Bﾉ@B @H @IJK A h(61Q TEDIT.NORMALIZECARET 55Q TEDIT.SETSEL 46Q TEDIT.INSERT 43Q L-CASE 36Q TEDIT.DELETE 4 TEDIT.SEL.AS.STRING) (24Q SELECTION 16Q SELECTION 10Q SELECTION) () \TK.CENTER.SEL D1 (P 6 PARA P 5 NEWQUADS P 4 NEWQUAD P 3 OLDQUAD P 2 LOOKS P 1 SAVEDCH P 0 SAVECH# I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 7 PARASEL F 10Q TEDITKEY.VERBOSE) yg 法AB BﾉBﾉ BBA ｰ>d@N Zg [o ｼJgL ｿ@Nk cｿ@JW ｿLM]ｵﾃ@HI Wｴ @M i h(165Q TEDIT.PROMPTPRINT 161Q DREVERSE 150Q TEDIT.SETSEL 130Q TEDIT.PARALOOKS 116Q TEDIT.SETSEL 107Q LISTPUT 74Q MEMB 64Q LISTGET 55Q TEDIT.GET.PARALOOKS 41Q \PARAS.IN.SEL 14Q \TK.FONT1 5 SHIFTDOWNP) (103Q QUAD 61Q QUAD 27Q SELECTION 21Q SELECTION 2 FONT) ( 71Q (LEFT JUSTIFIED CENTERED LEFT)) \TK.CENTER.SEL.REV D1 (P 6 PARA P 5 NEWQUADS P 4 NEWQUAD P 3 OLDQUAD P 2 LOOKS P 1 SAVEDCH P 0 SAVECH# I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 7 PARASEL F 10Q TEDITKEY.VERBOSE) wg 法AB BﾉBﾉ BBA ｰ0A BZdﾉg料Jﾉﾉ XB Y@HIﾉHﾙ b@B h(72Q TEDIT.DELETE 63Q TEDIT.SETSEL 45Q \SEL.LINEDESC 6 TEDIT.NORMALIZECARET) (54Q LINEDESCRIPTOR 36Q SELECTION 30Q SELECTION 21Q LEFT 14Q SELECTION) () \TK.OPENLINE D1 (I 2 SEL I 1 TEXTOBJ I 0 STREAM) @l @AB (13Q \TK.PREVCHAR 5 TEDIT.INSERT) NIL () \TK.DELCHARFORWARD D1 (P 0 HERE I 2 SEL I 1 TEXTOBJ I 0 STREAM) 0 @BYdﾉg料Iﾉﾉ k b@B A h(54Q TEDIT.NORMALIZECARET 50Q TEDIT.DELETE 41Q TEDIT.SETSEL) (33Q SELECTION 25Q SELECTION 16Q LEFT 11Q SELECTION) () \TK.TRANSPOSECHARS D1 (P 3 LINEDESC P 2 KEEPCHAR P 1 KEEPCHARPOS I 2 SEL I 1 TEXTOBJ I 0 STREAM) BHdﾉg料Hﾉﾉ 1AB B [d\dﾊ(jｩｿLﾉkﾙﾉI祢mﾔｹ@dIk ZIkｲ%AﾉIｳ@ ｿ@JIkﾙ ｿ@Ikg ｿAB h(206Q TEDIT.NORMALIZECARET 200Q TEDIT.SETSEL 166Q TEDIT.INSERT 155Q TEDIT.DELETE 130Q TEDIT.SEL.AS.STRING 125Q TEDIT.SETSEL 51Q \SEL.LINEDESC 45Q TEDIT.NORMALIZECARET) (175Q RIGHT 142Q TEXTOBJ 103Q LINEDESCRIPTOR 73Q LINEDESCRIPTOR 60Q LINEDESCRIPTOR 32Q SELECTION 24Q SELECTION 15Q LEFT 10Q SELECTION) () \SEL.LIMIT D1 (L (0 SEL)) @dﾉg料@ﾉﾉ kﾙNIL (26Q SELECTION 20Q SELECTION 11Q LEFT 4 SELECTION) () \TK.SETFILEPTR.TO.CARET D1 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) &@BHdﾉg料Hﾉﾉ kﾙ (43Q SETFILEPTR) (33Q SELECTION 25Q SELECTION 16Q LEFT 11Q SELECTION) () \SEL.LINEDESC D1 (L (0 SEL)) +@dﾉg涸@ﾉd｣d蘇ﾉd｣d蘇NIL (36Q SELECTION 20Q SELECTION 11Q LEFT 4 SELECTION) () \TK.DESCRIBEFONT D1 (I 0 FONT) a@g o@g @g gｳo@g バ@g gｳo@g バ (136Q CONCAT 125Q CONCAT 122Q L-CASE 117Q FONTPROP 76Q FONTPROP 62Q CONCAT 57Q L-CASE 54Q FONTPROP 33Q FONTPROP 24Q FONTPROP 11Q L-CASE 6 FONTPROP) (114Q SLOPE 101Q REGULAR 73Q SLOPE 51Q WEIGHT 36Q MEDIUM 30Q WEIGHT 21Q SIZE 3 FAMILY) ( 132Q "" 110Q " " 67Q "" 45Q " " 15Q " ") \PARAS.IN.SEL D1 (P 3 PCS P 2 PARAENDED P 1 PARAS P 0 POS I 1 TEXTOBJ I 0 SEL) n@ﾉQ@ﾉ \jｪLｲ%L ｲ@@ﾉkﾙｿ@k ｿ@A ｿA@ [iZKｰ!dｽJ滴IｹMﾊjhｺHMﾉﾔｸｵ潛 (153Q DREVERSE 77Q TEDIT.SELECTED.PIECES 71Q \FIXSEL 33Q \FZEROP) (137Q PIECE 122Q PIECE 60Q SELECTION 45Q SELECTION 41Q SELECTION 14Q SELECTION 3 SELECTION) () \SHIFTACTION D1 (I 0 KEYNAME) @ (3 KEYACTION) NIL () \ACTION D1 (I 0 KEYNAME) @ (3 KEYACTION) NIL () TEDITKEY.INSTALL D1 (P 5 PAIR P 4 KEY P 3 TRIPLE P 2 INTERRUPT P 1 FNKEYITEM P 0 READTABLE I 0 READTABLE F 6 DLIONFNKEYS F 7 AFTERMAKESYSFORMS F 10Q AFTERSYSOUTFORMS F 11Q TEDITKEY.FNKEYBINDINGS F 12Q TEDIT.DEFAULT.MENU F 13Q TEDIT.READTABLE F 14Q \PROMPTFORWORDTTBL F 15Q ASKUSERTTBL F 16Q TEDITKEY.DORADO.KEYACTIONS F 17Q \ORIGTERMTABLE F 20Q \PRIMTERMTABLE F 21Q TEDITKEY.DORADO.KEYSYNTAX F 22Q DEDITTTBL F 23Q TEDITKEY.KEYBINDINGS F 24Q TEDITKEY.FNKEYFLG F 25Q TEDITKEY.FNKEYACTIONS F 26Q TEDITKEY.LOCKTOGGLEKEY F 27Q TEDITKEY.METAKEY F 30Q TEDITKEY.DLION.KEYACTIONS F 31Q TEDITKEY.DLION.KEYBINDINGS F 32Q TEDITKEY.DLION.KEYSYNTAX) ﾇ@ｵWol Z柞i ｿl ｿlgW ｿlgW ｿlgW ｿlgW ｿlgW$ ｿlg i W&嬰KｵｵW* Wｰ7ｰdｼgLh KHlgｿｵ豌ﾒdM MH ｵl俳 g｢ｱW,ｵg 儼 之 ｿW0 ｿW2ｰo ｿｰﾝdM MH ｵWｰdM MH ｵW4ｰdM MH ｵWI ｿl俳 ｰ(W ｿW"ｰdM MH ｵWI ｿgｳo ｿW(殀 之 ｣ｿgWｩoWcｿgWｩoWcｿW.o (704Q CONCAT 630Q BUILDFNKEYS 624Q OPENWP 617Q BOUNDP 605Q FILESLOAD 570Q MACHINETYPE 564Q TEDIT.ADD.MENUITEM 551Q TEDIT.SETSYNTAX 542Q EVAL 523Q MODIFY.KEYACTIONS 514Q INTERRUPTCHAR 502Q TEDIT.REMOVE.MENUITEM 467Q TEDIT.SETSYNTAX 460Q EVAL 435Q TEDIT.SETFUNCTION 426Q EVAL 403Q TEDIT.SETFUNCTION 374Q EVAL 357Q KEYACTION 343Q MODIFY.KEYACTIONS 335Q CLOSEW 330Q OPENWP 323Q BOUNDP 301Q MACHINETYPE 276Q INTERRUPTCHAR 260Q TEDIT.SETFUNCTION 251Q EVAL 216Q EVAL 171Q MODIFY.KEYACTIONS 144Q METASHIFT 140Q SETINTERRUPT 127Q SETSYNTAX 114Q SETSYNTAX 101Q SETSYNTAX 66Q SETSYNTAX 53Q SETSYNTAX 40Q SETINTERRUPT 32Q PRIN1 20Q GETINTERRUPT) (655Q TEDITKEY.INSTALL 634Q TEDITKEY.INSTALL 614Q DLIONFNKEYS 573Q DANDELION 320Q DLIONFNKEYS 304Q DANDELION 226Q TEDIT.SETFUNCTION 207Q CHARCODE 135Q HELP 122Q CHARDELETE 107Q CHARDELETE 74Q CHARDELETE 61Q CHARDELETE 46Q CHARDELETE) ( 701Q "'s action is now Meta. TEditKey actions and key bindings installed. Type #? or press the HELP key to see keybindings" 665Q (TEDITKEY.INSTALL) 644Q (TEDITKEY.INSTALL) 602Q ((SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) DLIONFNKEYS) 511Q (GOTONEXTTTYWINDOW) 354Q (LOCKTOGGLE) 273Q (GOTONEXTTTYWINDOW) 26Q "Interrupt on ^H disabled" 10Q (Function% Keys (QUOTE BUILDFNKEYS) "Bring up the DLion fn keys window")) \TK.ACTIONTOCHARCODE D1 (P 0 PAIR I 0 FN F 1 TEDITKEY.KEYBINDINGS) @Q HｴgHh (27Q EVAL 4 ASSOC) (15Q CHARCODE) () \TK.BUILD.MENU D1 (P 4 TRIPLE P 0 ITEMS I 0 KEYBINDINGS F 10Q TEDITKEY.KEYBINDINGS F 11Q \TK.MENU) ｪ@WｰdLｵ_oHｸoHXｵ軈H ｹdIｿdlｿdi ｿgl ｺdJｿdg ｿdgｿjdndhｻdK ｿchgLhohHｸ0Lｰd ｽNｵMh_｀&ｾｵOhhｱt(215Q CHARDESC 102Q FONTCREATE 51Q DREVERSE) (161Q QUOTE 123Q DEFAULTMENUHELDFN 114Q CLRPROMPT 75Q HELVETICA 44Q MENUTYPE#) ( 171Q "Function which is performed by the key(s) to the right of the mouse" 31Q ("" NIL "") 22Q ("" NIL "")) \TK.HELP D1 (I 0 WHATEVER F 0 \TK.MENU) P (3 MENU) NIL () \TK.SETFONTINLOOKSA0001 D1 (NAME ERRORSET F 0 LOOKS) JPﾉｵPﾉg PﾉPﾊj｣gＨPﾊj｣gＨgh h(105Q FONTCREATE 23Q FONTPROP) (76Q REGULAR 73Q REGULAR 67Q ITALIC 56Q CHARLOOKS 52Q MEDIUM 46Q BOLD 35Q CHARLOOKS 27Q CHARLOOKS 20Q FAMILY 13Q CHARLOOKS 3 CHARLOOKS) () \TK.SETFONTINLOOKS D1 (P 0 NEWFONT I 1 LOOKS I 0 TEXTSTREAM) qo Xd連HH@oAﾉｵAﾉg oAﾉAﾊj､oバAﾊj､oバ  i h(155Q TEDIT.PROMPTPRINT 151Q CONCAT 146Q CONCAT 62Q L-CASE 57Q FONTPROP 11Q \TK.SETFONTINLOOKSA0001) (123Q CHARLOOKS 100Q CHARLOOKS 72Q CHARLOOKS 54Q FAMILY 47Q CHARLOOKS 37Q CHARLOOKS 21Q CHARLOOKS) ( 142Q "" 135Q " italic" 117Q "" 112Q " bold" 66Q " " 33Q "Font not found: " 6 (\TK.SETFONTINLOOKSA0001)) WRITE.CHARDESC.AUX D1 (I 0 TOKENS F 0 CHARDESC) :@ k如h@dg崛o@ g嗤@ Po (67Q ERROR 55Q WRITE.CHARDESC.AUX 35Q WRITE.CHARDESC.AUX 3 LENGTH) (42Q ^ 21Q #) ( 64Q " is a misunderstood character descriptor" 50Q "control " 30Q "meta ") CHARDESC D1 (I 0 CHARDESC) @ (11Q PACK 6 WRITE.CHARDESC.AUX 3 UNPACK) NIL () TEDITKEY.CONFIGURE D1 NIL o (6 PROMPTPRINT) NIL ( 3 "not implemented") \TK.ADDKEY D1 (L (0 TRIPLE)) gNIL (2 dummy) () \TK.CHANGEKEY D1 (L (0 THIS)) gNIL (2 DUMMY) () \TK.APPLYPENDING D1 (P 2 ENTRY P 1 LOOKS P 0 PENDING I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 3 \TK.PENDING F 4 TEDIT.DEFAULT.CHARLOOKS)  S hhHｱdJdg攸Igg ｱﾒg廬gg ｱﾀJdg攸Igg ｱｫg廬gg ｱ價dg攸Igg ｱg姜gg ｰrJdgｳjgｳeJdgｳ\gｳWJdg料T YｰGgｳ0Jgｳ)Jgｳ"JgｳJgｳJgｫJg･Jg露gJ oJ ｿｵこhc@IB (411Q TEDIT.LOOKS 366Q \LISPERROR 355Q LISTPUT 256Q \TEDIT.UNPARSE.CHARLOOKS.LIST 204Q LISTPUT 162Q LISTPUT 135Q LISTPUT 113Q LISTPUT 66Q LISTPUT 44Q LISTPUT 3 DREVERSE) (351Q FAMILY 343Q MATH 335Q HIPPO 327Q TERMINAL 320Q CLASSIC 311Q MODERN 302Q GACHA 273Q HELVETICA 264Q TIMESROMAN 247Q DEFAULTS 237Q SMALLER 231Q LARGER 221Q SUBSCRIPT 213Q SUPERSCRIPT 201Q OFF 176Q UNDERLINE 170Q UNDERLINEOFF 157Q ON 154Q UNDERLINE 145Q UNDERLINEON 132Q REGULAR 127Q SLOPE 121Q ITALICOFF 110Q ITALIC 105Q SLOPE 76Q ITALICON 63Q MEDIUM 60Q WEIGHT 52Q BOLDOFF 41Q BOLD 36Q WEIGHT 27Q BOLDON) ( 362Q "Illegal pending operation in \TK.PENDING") \TK.NTHFONT D1 (I 0 N F 0 TEDITKEY.FONTS) P@ (4 NTH) NIL () METASHIFT D1 (P 2 OLDSETTING P 1 METASTATUS P 0 FLG F 3 TEDITKEY.METAKEY F 4 \ORIGKEYACTIONS) -eoSHjｴ@i選@ｵST  ZdI訴J(42Q KEYACTION 36Q ASSOC) NIL ( 7 (METADOWN . METAUP)) TEDIT.FULL.FIND D1 (P 4 W P 3 CH P 2 SEL P 1 TARGET P 0 TEXTOBJ I 1 SEARCHSTRING I 0 TEXTSTREAM) ﾔ@ AHﾉd｣d蘇\AｵHoLg o Yd｢ｱ唏ﾉZ ｿHoi ｿHI hdi [ｲeHo ｿJKｿJKkﾘ ｿJKKﾙkﾘ ｿJgｿHHJ 4ｿJ ｿJH ｿH ｿJhi ｿLgI 皐o ｿJhi ｿHmh(307Q \SHOWSEL 300Q TEDIT.PROMPTPRINT 267Q PUTWINDOWPROP 256Q \SHOWSEL 247Q TEDIT.NORMALIZECARET 242Q \FIXSEL 234Q TEDIT.RESET.EXTEND.PENDING.DELETE 225Q \TEDIT.GET.INSERT.CHARLOOKS 135Q TEDIT.PROMPTPRINT 122Q TEDIT.FIND 113Q MKSTRING 105Q TEDIT.PROMPTPRINT 73Q \SHOWSEL 53Q TEDIT.GETINPUT 44Q GETWINDOWUSERPROP 3 TEXTOBJ) (314Q TEXTOBJ 263Q TEDIT.LAST.FIND.STRING 220Q TEXTOBJ 211Q RIGHT 206Q SELECTION 167Q SELECTION 153Q SELECTION 142Q SELECTION 65Q TEXTOBJ 41Q TEDIT.LAST.FIND.STRING 12Q TEXTOBJ) ( 275Q "(not found)" 132Q "Done." 101Q "Searching..." 50Q (15Q 12Q 33Q) 35Q "Text to find: ") (PRETTYCOMPRINT TEDITKEYCOMS) (RPAQQ TEDITKEYCOMS ((COMS (* * This is the Jazz n> version of TEditKey)) (COMS (* functions for affecting the selection) (FNS \TK.UNDERLINE.SEL.ON \TK.UNDERLINE.SEL.OFF \TK.BOLD.SEL.ON \TK.BOLD.SEL.OFF \TK.ITALIC.SEL.ON \TK.ITALIC.SEL.OFF \TK.SMALLERSEL \TK.LARGERSEL \TK.SUPERSCRIPTSEL \TK.SUBSCRIPTSEL \TK.DEFAULTSSEL \TK.DEL.WORD.FORWARD \TK.UCASE.SEL \TK.LCASE.SEL) (* functions for affecting the paralooks of the selection) (FNS \TK.CENTER.SEL \TK.CENTER.SEL.REV \TK.NEST \TK.UNNEST)) (COMS (* functions for affecting (and displaying) the caret character looks) (FNS \TK.SHOWCARETLOOKS \TK.BOLD.CARET.ON \TK.BOLD.CARET.OFF \TK.ITALIC.CARET.ON \TK.ITALIC.CARET.OFF \TK.UNDERLINE.CARET.ON \TK.UNDERLINE.CARET.OFF \TK.SUPERSCRIPT.CARET \TK.SUBSCRIPT.CARET \TK.SMALLER.CARET \TK.LARGER.CARET \TK.DEFAULTS.CARET \TK.FONT1 \TK.FONT2 \TK.FONT3 \TK.SETCARETFONT \TK.FONT4 \TK.FONT5 \TK.FONT6 \TK.FONT7 \TK.FONT8) (* the functions which aren't currently used, which toggle the caret looks) (FNS \TK.BOLDTOGGLE \TK.ITALICTOGGLE \TK.UNDERLINETOGGLE)) (COMS (* functions dealing with the default looks) (FNS \TK.SETDEFAULTLOOKS)) (COMS (* functions for positioning within a document) (FNS GOTONEXTTTYWINDOW \TK.NEXTLINE \TK.PREVLINE \TK.GOTODOCBEGIN \TK.GOTODOCEND \TK.GOTOLINEBEGIN \TK.GOTOLINEEND \TK.PREVCHAR \TK.NEXTCHAR \TK.FORWARD.WORD \TK.BACK.WORD)) (COMS (* other utilities) ( FNS \TK.FIND \TK.REDISPLAY \TK.DELLINEFORWARD \TK.OPENLINE \TK.DELCHARFORWARD \TK.TRANSPOSECHARS)) ( COMS (* little selection utilities etc., for building hacks) (FNS \SEL.LIMIT \TK.SETFILEPTR.TO.CARET \SEL.LINEDESC \TK.DESCRIBEFONT \PARAS.IN.SEL) (MACROS \SEL.LIMIT.FORWARD \TK.ONOROFF \LINEDESC.LAST.REAL.CHAR)) (COMS (* fns for the key interface itself) (FNS \SHIFTACTION \ACTION TEDITKEY.INSTALL \TK.ACTIONTOCHARCODE \TK.BUILD.MENU \TK.HELP \TK.SETFONTINLOOKS WRITE.CHARDESC.AUX CHARDESC TEDITKEY.CONFIGURE \TK.ADDKEY \TK.CHANGEKEY \TK.APPLYPENDING \TK.NTHFONT) (* redefinition of system junk) (FNS METASHIFT)) (* (\TK.BOLDTOGGLE (#H #h) "toggle Bold caret looks") (\TK.ITALICTOGGLE (#i #I) "toggle Italic caret looks") (\TK.SUPERSCRIPT.CARET (#^) "Superscript the caret looks") ( \TK.SUBSCRIPT.CARET (#_) "Subscript the caret looks")) (FNS TEDIT.FULL.FIND) (VARS \TK.WHITESPACE ( TEDIT.INTERRUPTS (BQUOTE ((, (CHARCODE ^G) ERROR) (, (CHARCODE #^Z) ERROR) (, (CHARCODE #^S) HELP))))) (CONSTANTS (\TK.WHITESPACE 22)) (INITVARS (TEDITKEY.VERBOSE T) (TEDITKEY.METAKEY (QUOTE TAB)) ( TEDITKEY.LOCKTOGGLEKEY NIL) (TEDITKEY.NESTWIDTH 36) (\TK.SIZEINCREMENT 2) (TEDITKEY.OFFSETINCREMENT 3) (TEDITKEY.FONTS (QUOTE (TIMESROMAN HELVETICA GACHA MODERN CLASSIC TERMINAL SYMBOL HIPPO))) ( TEDITKEY.FNKEYFLG T)) (MACROS METACODE CONTROLCODE LCMETACODE) (INITVARS (\TK.SELKEY (QUOTE OPEN)) ( \TK.PENDING)) (INITVARS (TEDITKEY.KEYBINDINGS (BQUOTE ((\TK.FONT1 (#1) , (CONCAT "change to font " ( \TK.NTHFONT 1))) (\TK.FONT2 (#2) , (CONCAT "change to font " (\TK.NTHFONT 2))) (\TK.FONT3 (#3) , ( CONCAT "change to font " (\TK.NTHFONT 3))) (\TK.FONT4 (#4) , (CONCAT "change to font " (\TK.NTHFONT 4) )) (\TK.FONT5 (#5) , (CONCAT "change to font " (\TK.NTHFONT 5))) (\TK.FONT6 (#6) , (CONCAT "change to font " (\TK.NTHFONT 6))) (\TK.FONT7 (#7) , (CONCAT "change to font " (\TK.NTHFONT 7))) ( \TK.FONT8 (#8) , (CONCAT "change to font " (\TK.NTHFONT 8))) NIL (\TK.DEFAULTS.CARET (#/) "restore the default caret looks") (\TK.SMALLER.CARET (#9) "decrease the caret font size") ( \TK.LARGER.CARET (#0) "increase the caret font size") (\TK.SHOWCARETLOOKS (#=) "display the current caret looks") NIL (\TK.REDISPLAY (#R #r) "Restore the display") (\TK.HELP (#?) "displays the current key bindings") NIL (\TK.PREVCHAR (^B ^b) "Back one character") (\TK.NEXTCHAR (^F ^f) "Forward one character") (\TK.FORWARD.WORD (#F #f) "Forward one word") (\TK.BACK.WORD (#B #b) "Back one word") (\TK.GOTOLINEBEGIN (^A ^a) "go to stArt of line") (\TK.GOTOLINEEND (^E ^e) "go to End of line") (\TK.PREVLINE (^P ^p) "go to Previous line") (\TK.NEXTLINE (^N ^n) "go to Next line") (\TK.GOTODOCBEGIN (#<) "start of document") (\TK.GOTODOCEND (#>) "end of document") NIL (\TK.DELLINEFORWARD (^K ^k) "Kill line") (\TK.OPENLINE (^O ^o) "Open up blank line") ( \TK.DELCHARFORWARD (^D ^d) "Delete character forward") (\TK.DEL.WORD.FORWARD (#D #d) "Delete word forward") (\TK.TRANSPOSECHARS (^T ^t) "Transpose characters") NIL NIL (\TK.NEST (#%[) "indents margins (nest)") (\TK.UNNEST (#%]) "exdents margins (unnest)") (\TK.CENTER.SEL (#J #j) "alter Justification") (\TK.UCASE.SEL (#U #u) "Uppercasify selection") (\TK.LCASE.SEL (#L #l) "Lowercasify selection") (GET.OBJ.FROM.USER (#O #o) "insert Object")))) (TEDITKEY.DLION.KEYACTIONS ( BQUOTE ((OPEN (, (CHARCODE LF) , (CHARCODE LF) NOLOCKSHIFT)) (SAME METADOWN . METAUP) (FIND (, ( CHARCODE #^A) , (CHARCODE #^A))) (AGAIN (, (CHARCODE ESC) , (CHARCODE ESC))) (COPY NIL) (MOVE NIL) ( NEXT (, (CHARCODE #^U) , (CHARCODE #^T) NOLOCKSHIFT)) (EXPAND (, (CHARCODE ^X) , (CHARCODE ^X) NOLOCKSHIFT)) (UNDO (, (CHARCODE #^V) , (CHARCODE #^V) NOLOCKSHIFT)) (MARGINS (, (CHARCODE #^W) , ( CHARCODE #^X) NOLOCKSHIFT)) (HELP (, (CHARCODE #^Y) , (CHARCODE #^Y) NOLOCKSHIFT)) (STOP (, (CHARCODE #^Z) , (CHARCODE #^S) NOLOCKSHIFT)) (FONT FONTDOWN . FONTUP) (KEYBOARD USERMODE1DOWN . USERMODE1UP) ( ESC (, (CHARCODE \) , (CHARCODE %|) NOLOCKSHIFT))))) (TEDITKEY.FNKEYACTIONS (BQUOTE ((CENTER (, ( CHARCODE #^B) , (CHARCODE #^C))) (BOLD (, (CHARCODE #^D) , (CHARCODE #^E) NOLOCKSHIFT)) (ITALICS (, ( CHARCODE #^F) , (CHARCODE #^G) NOLOCKSHIFT)) (UNDERLINE (, (CHARCODE #^H) , (CHARCODE #^I) NOLOCKSHIFT )) (SUPERSCRIPT (, (CHARCODE #^J) , (CHARCODE #^K) NOLOCKSHIFT)) (SUBSCRIPT (, (CHARCODE #^L) , ( CHARCODE #^N) NOLOCKSHIFT)) (LARGER (, (CHARCODE #^O) , (CHARCODE #^P) NOLOCKSHIFT)) (DEFAULTS (, ( CHARCODE #^Q) , (CHARCODE #^R) NOLOCKSHIFT)) (BS (, (CHARCODE ^H) , (CHARCODE ^D) NOLOCKSHIFT))))) ( TEDITKEY.DLION.KEYBINDINGS (QUOTE (((\ACTION (QUOTE OPEN)) \TK.OPENLINE) ((\ACTION (QUOTE FIND)) \TK.FIND) ((\ACTION (QUOTE HELP)) \TK.HELP) ((\ACTION (QUOTE MARGINS)) \TK.NEST) ((\SHIFTACTION (QUOTE MARGINS)) \TK.UNNEST) ((\SHIFTACTION (QUOTE NEXT)) GOTONEXTTTYWINDOW)))) (TEDITKEY.FNKEYBINDINGS ( QUOTE (((\ACTION (QUOTE CENTER)) \TK.CENTER.SEL) ((\SHIFTACTION (QUOTE CENTER)) \TK.CENTER.SEL.REV) (( \ACTION (QUOTE BOLD)) \TK.BOLD.SEL.ON) ((\SHIFTACTION (QUOTE BOLD)) \TK.BOLD.SEL.OFF) ((\ACTION (QUOTE ITALICS)) \TK.ITALIC.SEL.ON) ((\SHIFTACTION (QUOTE ITALICS)) \TK.ITALIC.SEL.OFF) ((\ACTION (QUOTE UNDERLINE)) \TK.UNDERLINE.SEL.ON) ((\SHIFTACTION (QUOTE UNDERLINE)) \TK.UNDERLINE.SEL.OFF) ((\ACTION ( QUOTE SUPERSCRIPT)) \TK.SUPERSCRIPTSEL) ((\SHIFTACTION (QUOTE SUPERSCRIPT)) \TK.SUBSCRIPTSEL) (( \ACTION (QUOTE SUBSCRIPT)) \TK.SUBSCRIPTSEL) ((\SHIFTACTION (QUOTE SUBSCRIPT)) \TK.SUPERSCRIPTSEL) (( \ACTION (QUOTE SMALLER)) \TK.SMALLERSEL) ((\SHIFTACTION (QUOTE SMALLER)) \TK.LARGERSEL) ((\ACTION ( QUOTE DEFAULTS)) \TK.DEFAULTSSEL) ((\SHIFTACTION (QUOTE DEFAULTS)) \TK.SETDEFAULTLOOKS) ((\SHIFTACTION (QUOTE BS)) \TK.DELCHARFORWARD)))) (TEDITKEY.DLION.KEYSYNTAX (QUOTE (((\ACTION (QUOTE NEXT)) NEXT) (( \ACTION (QUOTE UNDO)) UNDO) ((\ACTION (QUOTE BS)) CHARDELETE)))) (TEDITKEY.DORADO.KEYACTIONS (BQUOTE ( (BS (, (CHARCODE ^H) , (CHARCODE ^H))) (BLANK-BOTTOM (, (CHARCODE #^A) , (CHARCODE #^A))) (BLANK-TOP FONTDOWN . FONTUP) (BLANK-MIDDLE USERMODE1DOWN . USERMODE1UP)))) (TEDITKEY.DORADO.KEYSYNTAX (QUOTE ((( CHARCODE #N) NEXT) ((CHARCODE #n) NEXT) ((\ACTION (QUOTE BLANK-BOTTOM)) UNDO) ((\ACTION (QUOTE BS)) CHARDELETE))))) (P (TEDITKEY.INSTALL)) (P (\TK.BUILD.MENU)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA METASHIFT))))) (PUTPROPS \SEL.LIMIT.FORWARD MACRO (LAMBDA (SEL) (* gbn "13-Dec-84 11:43") (* returns the character in front of the caret (ch# for left and chlim for right)) (if (EQ (fetch POINT of SEL) (QUOTE LEFT)) then (fetch CH# of SEL) else (fetch CHLIM of SEL)))) (PUTPROPS \TK.ONOROFF MACRO (LAMBDA (FLG) (if FLG then "on" else "off"))) (PUTPROPS \LINEDESC.LAST.REAL.CHAR MACRO (LAMBDA (LINEDESC) (if (fetch CR\END of LINEDESC) then (* there is a CR at the end so the last real char CHLIM-1) (SUB1 (fetch CHARLIM of LINEDESC)) else (fetch CHARLIM of LINEDESC)))) (RPAQQ \TK.WHITESPACE 22) (RPAQ TEDIT.INTERRUPTS (BQUOTE ((, (CHARCODE ^G) ERROR) (, (CHARCODE #^Z) ERROR) (, (CHARCODE #^S) HELP)))) (RPAQQ \TK.WHITESPACE 22) (CONSTANTS (\TK.WHITESPACE 22)) (RPAQ? TEDITKEY.VERBOSE T) (RPAQ? TEDITKEY.METAKEY (QUOTE TAB)) (RPAQ? TEDITKEY.LOCKTOGGLEKEY NIL) (RPAQ? TEDITKEY.NESTWIDTH 36) (RPAQ? \TK.SIZEINCREMENT 2) (RPAQ? TEDITKEY.OFFSETINCREMENT 3) (RPAQ? TEDITKEY.FONTS (QUOTE (TIMESROMAN HELVETICA GACHA MODERN CLASSIC TERMINAL SYMBOL HIPPO))) (RPAQ? TEDITKEY.FNKEYFLG T) (PUTPROPS METACODE MACRO (LAMBDA (CHARCODE) (LOGOR CHARCODE 128))) (PUTPROPS CONTROLCODE MACRO (LAMBDA (CHARCODE) (LOGAND CHARCODE 31))) (PUTPROPS LCMETACODE MACRO (LAMBDA (CHARCODE) (LOGOR 160 CHARCODE))) (RPAQ? \TK.SELKEY (QUOTE OPEN)) (RPAQ? \TK.PENDING) (RPAQ? TEDITKEY.KEYBINDINGS (BQUOTE ((\TK.FONT1 (#1) , (CONCAT "change to font " (\TK.NTHFONT 1))) ( \TK.FONT2 (#2) , (CONCAT "change to font " (\TK.NTHFONT 2))) (\TK.FONT3 (#3) , (CONCAT "change to font " (\TK.NTHFONT 3))) (\TK.FONT4 (#4) , (CONCAT "change to font " (\TK.NTHFONT 4))) ( \TK.FONT5 (#5) , (CONCAT "change to font " (\TK.NTHFONT 5))) (\TK.FONT6 (#6) , (CONCAT "change to font " (\TK.NTHFONT 6))) (\TK.FONT7 (#7) , (CONCAT "change to font " (\TK.NTHFONT 7))) ( \TK.FONT8 (#8) , (CONCAT "change to font " (\TK.NTHFONT 8))) NIL (\TK.DEFAULTS.CARET (#/) "restore the default caret looks") (\TK.SMALLER.CARET (#9) "decrease the caret font size") ( \TK.LARGER.CARET (#0) "increase the caret font size") (\TK.SHOWCARETLOOKS (#=) "display the current caret looks") NIL (\TK.REDISPLAY (#R #r) "Restore the display") (\TK.HELP (#?) "displays the current key bindings") NIL (\TK.PREVCHAR (^B ^b) "Back one character") (\TK.NEXTCHAR (^F ^f) "Forward one character") (\TK.FORWARD.WORD (#F #f) "Forward one word") (\TK.BACK.WORD (#B #b) "Back one word") (\TK.GOTOLINEBEGIN (^A ^a) "go to stArt of line") (\TK.GOTOLINEEND (^E ^e) "go to End of line") (\TK.PREVLINE (^P ^p) "go to Previous line") (\TK.NEXTLINE (^N ^n) "go to Next line") (\TK.GOTODOCBEGIN (#<) "start of document") (\TK.GOTODOCEND (#>) "end of document") NIL (\TK.DELLINEFORWARD (^K ^k) "Kill line") (\TK.OPENLINE (^O ^o) "Open up blank line") ( \TK.DELCHARFORWARD (^D ^d) "Delete character forward") (\TK.DEL.WORD.FORWARD (#D #d) "Delete word forward") (\TK.TRANSPOSECHARS (^T ^t) "Transpose characters") NIL NIL (\TK.NEST (#%[) "indents margins (nest)") (\TK.UNNEST (#%]) "exdents margins (unnest)") (\TK.CENTER.SEL (#J #j) "alter Justification") (\TK.UCASE.SEL (#U #u) "Uppercasify selection") (\TK.LCASE.SEL (#L #l) "Lowercasify selection") (GET.OBJ.FROM.USER (#O #o) "insert Object")))) (RPAQ? TEDITKEY.DLION.KEYACTIONS (BQUOTE ((OPEN (, (CHARCODE LF) , (CHARCODE LF) NOLOCKSHIFT)) (SAME METADOWN . METAUP) (FIND (, (CHARCODE #^A) , (CHARCODE #^A))) (AGAIN (, (CHARCODE ESC) , (CHARCODE ESC ))) (COPY NIL) (MOVE NIL) (NEXT (, (CHARCODE #^U) , (CHARCODE #^T) NOLOCKSHIFT)) (EXPAND (, (CHARCODE ^X) , (CHARCODE ^X) NOLOCKSHIFT)) (UNDO (, (CHARCODE #^V) , (CHARCODE #^V) NOLOCKSHIFT)) (MARGINS (, ( CHARCODE #^W) , (CHARCODE #^X) NOLOCKSHIFT)) (HELP (, (CHARCODE #^Y) , (CHARCODE #^Y) NOLOCKSHIFT)) ( STOP (, (CHARCODE #^Z) , (CHARCODE #^S) NOLOCKSHIFT)) (FONT FONTDOWN . FONTUP) (KEYBOARD USERMODE1DOWN . USERMODE1UP) (ESC (, (CHARCODE \) , (CHARCODE %|) NOLOCKSHIFT))))) (RPAQ? TEDITKEY.FNKEYACTIONS (BQUOTE ((CENTER (, (CHARCODE #^B) , (CHARCODE #^C))) (BOLD (, (CHARCODE #^D) , (CHARCODE #^E) NOLOCKSHIFT)) (ITALICS (, (CHARCODE #^F) , (CHARCODE #^G) NOLOCKSHIFT)) ( UNDERLINE (, (CHARCODE #^H) , (CHARCODE #^I) NOLOCKSHIFT)) (SUPERSCRIPT (, (CHARCODE #^J) , (CHARCODE #^K) NOLOCKSHIFT)) (SUBSCRIPT (, (CHARCODE #^L) , (CHARCODE #^N) NOLOCKSHIFT)) (LARGER (, (CHARCODE #^O) , (CHARCODE #^P) NOLOCKSHIFT)) (DEFAULTS (, (CHARCODE #^Q) , (CHARCODE #^R) NOLOCKSHIFT)) (BS (, (CHARCODE ^H) , (CHARCODE ^D) NOLOCKSHIFT))))) (RPAQ? TEDITKEY.DLION.KEYBINDINGS (QUOTE (((\ACTION (QUOTE OPEN)) \TK.OPENLINE) ((\ACTION (QUOTE FIND) ) \TK.FIND) ((\ACTION (QUOTE HELP)) \TK.HELP) ((\ACTION (QUOTE MARGINS)) \TK.NEST) ((\SHIFTACTION ( QUOTE MARGINS)) \TK.UNNEST) ((\SHIFTACTION (QUOTE NEXT)) GOTONEXTTTYWINDOW)))) (RPAQ? TEDITKEY.FNKEYBINDINGS (QUOTE (((\ACTION (QUOTE CENTER)) \TK.CENTER.SEL) ((\SHIFTACTION (QUOTE CENTER)) \TK.CENTER.SEL.REV) ((\ACTION (QUOTE BOLD)) \TK.BOLD.SEL.ON) ((\SHIFTACTION (QUOTE BOLD)) \TK.BOLD.SEL.OFF) ((\ACTION (QUOTE ITALICS)) \TK.ITALIC.SEL.ON) ((\SHIFTACTION (QUOTE ITALICS)) \TK.ITALIC.SEL.OFF) ((\ACTION (QUOTE UNDERLINE)) \TK.UNDERLINE.SEL.ON) ((\SHIFTACTION (QUOTE UNDERLINE )) \TK.UNDERLINE.SEL.OFF) ((\ACTION (QUOTE SUPERSCRIPT)) \TK.SUPERSCRIPTSEL) ((\SHIFTACTION (QUOTE SUPERSCRIPT)) \TK.SUBSCRIPTSEL) ((\ACTION (QUOTE SUBSCRIPT)) \TK.SUBSCRIPTSEL) ((\SHIFTACTION (QUOTE SUBSCRIPT)) \TK.SUPERSCRIPTSEL) ((\ACTION (QUOTE SMALLER)) \TK.SMALLERSEL) ((\SHIFTACTION (QUOTE SMALLER)) \TK.LARGERSEL) ((\ACTION (QUOTE DEFAULTS)) \TK.DEFAULTSSEL) ((\SHIFTACTION (QUOTE DEFAULTS)) \TK.SETDEFAULTLOOKS) ((\SHIFTACTION (QUOTE BS)) \TK.DELCHARFORWARD)))) (RPAQ? TEDITKEY.DLION.KEYSYNTAX (QUOTE (((\ACTION (QUOTE NEXT)) NEXT) ((\ACTION (QUOTE UNDO)) UNDO) (( \ACTION (QUOTE BS)) CHARDELETE)))) (RPAQ? TEDITKEY.DORADO.KEYACTIONS (BQUOTE ((BS (, (CHARCODE ^H) , (CHARCODE ^H))) (BLANK-BOTTOM (, ( CHARCODE #^A) , (CHARCODE #^A))) (BLANK-TOP FONTDOWN . FONTUP) (BLANK-MIDDLE USERMODE1DOWN . USERMODE1UP)))) (RPAQ? TEDITKEY.DORADO.KEYSYNTAX (QUOTE (((CHARCODE #N) NEXT) ((CHARCODE #n) NEXT) ((\ACTION (QUOTE BLANK-BOTTOM)) UNDO) ((\ACTION (QUOTE BS)) CHARDELETE)))) (TEDITKEY.INSTALL) (\TK.BUILD.MENU) (PUTPROPS TEDITKEY COPYRIGHT ("Xerox Corporation" 1985)) NIL