(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "16-Jul-2022 23:40:36" ("compiled on " |{DSK}kaplan>Local>medley3.5>working-medley>lispusers>TEDITDORADOKEYS.;2|) "16-Jul-2022 16:53:22" |brecompiled| |exprs:| |nothing| |in| "FULL 16-Jul-2022 ..." |dated| "16-Jul-2022 16:53:27") (FILECREATED "16-Jul-2022 23:40:36" |{DSK}kaplan>Local>medley3.5>working-medley>lispusers>TEDITDORADOKEYS.;2| 22214 :CHANGES-TO ( VARS TEDITDORADOKEYSCOMS) :PREVIOUS-DATE "19-Apr-2018 12:27:21" |{DSK}kaplan>Local>medley3.5>working-medley>lispusers>TEDITDORADOKEYS.;1|) \\TEDIT.BOLD.SEL.OFF :D8 (I 3 CHARCODE I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @AB @oB (19 TEDIT.LOOKS 7 \\TEDIT.BOLD.CARET.OFF) NIL ( 13 (WEIGHT MEDIUM)) \\TEDIT.BOLD.SEL.ON :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @AB @oB (19 TEDIT.LOOKS 7 \\TEDIT.BOLD.CARET.ON) NIL ( 13 (WEIGHT BOLD)) \\TEDIT.CENTER.SEL :D8 (P 7 PARA P 6 PARASEL 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 8 TEDIT.FNKEY.VERBOSE) ƒBÉBÉ RBA °Jd@O Zg'[o ¼JgL ¿@Ok ¾@JN ¿LM]µ·@HI W´@M i h(127 TEDIT.PROMPTPRINT 121 DREVERSE 110 TEDIT.SETSEL 92 TEDIT.PARALOOKS 83 TEDIT.SETSEL 73 LISTPUT 58 MEMB 40 TEDIT.GET.PARALOOKS 25 \\PARAS.IN.SEL) (67 QUAD 46 QUAD 13 SELECTION 5 SELECTION) ( 53 (LEFT JUSTIFIED CENTERED LEFT)) \\TEDIT.CENTER.SEL.REV :D8 (P 7 PARA P 6 PARASEL 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 8 TEDIT.FNKEY.VERBOSE) ƒBÉBÉ RBA °Jd@O Zg'[o ¼JgL ¿@Ok ¾@JN ¿LM]µ·@HI W´@M i h(127 TEDIT.PROMPTPRINT 121 DREVERSE 110 TEDIT.SETSEL 92 TEDIT.PARALOOKS 83 TEDIT.SETSEL 73 LISTPUT 58 MEMB 40 TEDIT.GET.PARALOOKS 25 \\PARAS.IN.SEL) (67 QUAD 46 QUAD 13 SELECTION 5 SELECTION) ( 53 (LEFT CENTERED JUSTIFIED LEFT)) \\TEDIT.DEFAULTS.CARET :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDIT.DEFAULT.CHARLOOKS) @`P @AB (24 \\TEDIT.SHOWCARETLOOKS 16 TEDIT.CARETLOOKS 11 NCREATE2) (5 |CHARLOOKSTYPE#|) () \\TEDIT.DEFAULTSSEL :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 0 TEDIT.DEFAULT.CHARLOOKS) @`P B (17 TEDIT.LOOKS 11 NCREATE2) (5 |CHARLOOKSTYPE#|) () \\TEDIT.SETDEFAULT.FROM.SEL :D8 (P 0 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM F 1 TEDIT.DEFAULT.CHARLOOKS) @B H ch(15 \\TEDIT.PARSE.CHARLOOKS.LIST 6 TEDIT.GET.LOOKS) NIL () \\TEDIT.FIND :D8 (P 4 W P 3 CH P 2 SEL P 1 TARGET P 0 TEXTOBJ I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM)  @ AHÉ\HoLg o Yd¢±ÌHÉZhd ¿Hoi ¿HI hdi [¢±„Ho ¿JK¿JKkØ ¿JKKÙkØ ¿Jg¿HHJ 4¿J ¿JH ¿H ¿Jhi ¿LgI °Ho ¿Jhi ¿Hmÿh(251 \\SHOWSEL 242 TEDIT.PROMPTPRINT 229 PUTWINDOWPROP 216 \\SHOWSEL 207 TEDIT.NORMALIZECARET 200 \\FIXSEL 192 TEDIT.RESET.EXTEND.PENDING.DELETE 183 \\TEDIT.GET.INSERT.CHARLOOKS 113 TEDIT.PROMPTPRINT 97 TEDIT.FIND 88 MKSTRING 80 TEDIT.PROMPTPRINT 67 \\SHOWSEL 45 TEDIT.GETINPUT 35 GETWINDOWUSERPROP 5 TEXTOBJ) (258 TEXTOBJ 223 TEDIT.LAST.FIND.STRING 176 TEXTOBJ 167 RIGHT 162 SELECTION 145 SELECTION 131 SELECTION 120 SELECTION 57 TEXTOBJ 30 TEDIT.LAST.FIND.STRING 14 TEXTOBJ) ( 237 "(not found)" 108 "Done." 74 "Searching..." 40 (13 10 27) 24 "Text to find: ") \\TEDIT.ITALIC.SEL.OFF :D8 (I 3 CHARCODE I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @AB @oB (19 TEDIT.LOOKS 7 \\TEDIT.ITALIC.CARET.OFF) NIL ( 13 (SLOPE REGULAR)) \\TEDIT.ITALIC.SEL.ON :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @oB (11 TEDIT.LOOKS) NIL ( 5 (SLOPE ITALIC)) \\TEDIT.LARGERSEL :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) 'g ˜@AB @glhB (36 TEDIT.LOOKS 18 \\TEDIT.LARGER.CARET 9 SHIFTDOWNP) (25 SIZEINCREMENT 4 META) () \\TEDIT.LCASE.SEL :D8 (P 3 POINT P 2 LEN P 1 POS P 0 STR I 2 SEL I 1 TEXTOBJ I 0 STREAM) U@B BÉBÉ BÉ@B @H @IJK A AÉHgh(67 TEDIT.NORMALIZECARET 61 TEDIT.SETSEL 52 TEDIT.INSERT 47 L-CASE 40 TEDIT.DELETE 6 TEDIT.SEL.AS.STRING) (80 |LowerCase| 73 TEXTOBJ 28 SELECTION 20 SELECTION 12 SELECTION) () \\TEDIT.SHOWCARETLOOKS :D8 (P 0 LOOKS I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) ƒAÉ4@HÉ Hɲ!HÉjð³oHÉ „oHÊ0jð¥o„oHÊ jð¥o„o i h(127 TEDIT.PROMPTPRINT 121 CONCAT 64 CONCAT 24 \\TK.DESCRIBEFONT) (99 CHARLOOKS 76 CHARLOOKS 57 CHARLOOKS 40 CHARLOOKS 30 CHARLOOKS 17 CHARLOOKS 5 TEXTOBJ) ( 116 "" 110 " underlined" 93 "" 87 " overlined" 70 "" 51 " offset ") \\TEDIT.SMALLERSEL :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) 'g ˜@AB @gmþhB (36 TEDIT.LOOKS 18 \\TEDIT.SMALLER.CARET 9 SHIFTDOWNP) (25 SIZEINCREMENT 4 META) () \\TEDIT.SUBSCRIPTSEL :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @gmþhB (16 TEDIT.LOOKS) (5 OFFSETINCREMENT) () \\TEDIT.SUPERSCRIPTSEL :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @glhB (16 TEDIT.LOOKS) (5 OFFSETINCREMENT) () \\TEDIT.UCASE.SEL :D8 (P 3 POINT P 2 LEN P 1 POS P 0 STR I 2 SEL I 1 TEXTOBJ I 0 STREAM) U@B BÉBÉ BÉ@B @H @IJK A AÉHgh(67 TEDIT.NORMALIZECARET 61 TEDIT.SETSEL 52 TEDIT.INSERT 47 U-CASE 40 TEDIT.DELETE 6 TEDIT.SEL.AS.STRING) (80 |UpperCase| 73 TEXTOBJ 28 SELECTION 20 SELECTION 12 SELECTION) () \\TEDIT.UNDERLINE.SEL.OFF :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @oB (11 TEDIT.LOOKS) NIL ( 5 (UNDERLINE OFF)) \\TEDIT.UNDERLINE.SEL.ON :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @oB (11 TEDIT.LOOKS) NIL ( 5 (UNDERLINE ON)) \\TEDIT.STRIKEOUT.SEL.ON :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @oB (11 TEDIT.LOOKS) NIL ( 5 (STRIKEOUT ON)) \\TEDIT.STRIKEOUT.SEL.OFF :D8 (I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @oB (11 TEDIT.LOOKS) NIL ( 5 (STRIKEOUT OFF)) \\TEDIT.DK.ABORT :D8 (I 0 TEXTOBJ) @ (5 TEDIT.GET) NIL () \\TEDIT.DK.FIND :D8 (P 4 W P 3 CH P 2 SEL P 1 TARGET P 0 TEXTOBJ I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @ AHÉd£d‘h\HoLg µ @J o Yd¢±ÌHÉZhd ¿Hoi ¿HI hdi [¢±„Ho ¿JK¿JKkØ ¿JKKÙkØ ¿Jg¿HHJ 4¿J ¿JH ¿H ¿Jhi ¿LgI °Ho ¿Jhi ¿Hmÿh(267 \\SHOWSEL 258 TEDIT.PROMPTPRINT 245 PUTWINDOWPROP 232 \\SHOWSEL 223 TEDIT.NORMALIZECARET 216 \\FIXSEL 208 TEDIT.RESET.EXTEND.PENDING.DELETE 199 \\TEDIT.GET.INSERT.CHARLOOKS 129 TEDIT.PROMPTPRINT 113 TEDIT.FIND 104 MKSTRING 96 TEDIT.PROMPTPRINT 83 \\SHOWSEL 61 TEDIT.GETINPUT 51 TEDIT.SEL.AS.STRING 42 GETWINDOWUSERPROP 5 TEXTOBJ) (274 TEXTOBJ 239 TEDIT.LAST.FIND.STRING 192 TEXTOBJ 183 RIGHT 178 SELECTION 161 SELECTION 147 SELECTION 136 SELECTION 73 TEXTOBJ 37 TEDIT.LAST.FIND.STRING 14 TEXTOBJ) ( 253 "(not found)" 124 "Done." 90 "Searching..." 56 (13 10 27) 31 "Text to find: ") \\TEDIT.DK.SUBSTITUTE :D8 (I 0 TEXTSTREAM) @ (5 TEDIT.SUBSTITUTE) NIL () \\TEDIT.DK.INSERT-PARENS :D8 (P 1 CHLIM P 0 CH1 I 2 SEL I 1 TEXTSTREAM I 0 TEXTOBJ) :BÉBÉ AoI AoH AHlIHÕÔ (55 TEDIT.SETSEL 42 TEDIT.INSERT 30 TEDIT.INSERT) (13 SELECTION 5 SELECTION) ( 36 "(" 24 ")") \\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES :D8 (P 1 CHLIM P 0 CH1 I 2 SEL I 1 TEXTSTREAM I 0 TEXTOBJ) :BÉBÉ AoI AoH AHlIHÕÔ (55 TEDIT.SETSEL 42 TEDIT.INSERT 30 TEDIT.INSERT) (13 SELECTION 5 SELECTION) ( 36 "\"" 24 "\"") \\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES :D8 (P 1 CHLIM P 0 CH1 I 2 SEL I 1 TEXTSTREAM I 0 TEXTOBJ) 4BÉBÉ AlªI AlºH AHlIHÕÔ (49 TEDIT.SETSEL 36 TEDIT.INSERT 27 TEDIT.INSERT) (13 SELECTION 5 SELECTION) () (RPAQQ TEDITDORADOKEYSCOMS ((FILES TEDIT-DCL TEDIT-FNKEYS) (COMS (* |;;| "These functions were fixed after Lyric went out so they'll ignore the meta key being down.") (FNS \\TEDIT.BOLD.SEL.OFF \\TEDIT.BOLD.SEL.ON \\TEDIT.CENTER.SEL \\TEDIT.CENTER.SEL.REV \\TEDIT.DEFAULTS.CARET \\TEDIT.DEFAULTSSEL \\TEDIT.SETDEFAULT.FROM.SEL \\TEDIT.FIND \\TEDIT.ITALIC.SEL.OFF \\TEDIT.ITALIC.SEL.ON \\TEDIT.LARGERSEL \\TEDIT.LCASE.SEL \\TEDIT.SHOWCARETLOOKS \\TEDIT.SMALLERSEL \\TEDIT.SUBSCRIPTSEL \\TEDIT.SUPERSCRIPTSEL \\TEDIT.UCASE.SEL \\TEDIT.UNDERLINE.SEL.OFF \\TEDIT.UNDERLINE.SEL.ON \\TEDIT.STRIKEOUT.SEL.ON \\TEDIT.STRIKEOUT.SEL.OFF)) (COMS (* |;;| "Specialized functions for this module") (FNS \\TEDIT.DK.ABORT \\TEDIT.DK.FIND \\TEDIT.DK.SUBSTITUTE \\TEDIT.DK.INSERT-PARENS \\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES \\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES)) (VARS ( \\TEDIT.DORADO.KEYS (QUOTE (("1,a" FN \\TEDIT.DK.ABORT) ("1,A" FN \\TEDIT.DK.ABORT) ("1,U" UNDO) ( "1,u" UNDO) ("1,f" FN \\TEDIT.DK.FIND) ("1,F" FN \\TEDIT.DK.FIND) (ESC REDO) ("1,n" NEXT) ("1,N" NEXT) ("1,S" FN \\TEDIT.DK.SUBSTITUTE) ("1,s" FN \\TEDIT.DK.SUBSTITUTE) ("1,x" EXPAND) ("1,X" EXPAND) ( "1,c" FN \\TEDIT.CENTER.SEL) ("1,C" FN \\TEDIT.CENTER.SEL.REV) ("1,b" FN \\TEDIT.BOLD.SEL.ON) ("1,B" FN \\TEDIT.BOLD.SEL.OFF) ("1,i" FN \\TEDIT.ITALIC.SEL.ON) ("1,I" FN \\TEDIT.ITALIC.SEL.OFF) ("1,=" FN \\TEDIT.STRIKEOUT.SEL.ON) ("1,+" FN \\TEDIT.STRIKEOUT.SEL.OFF) ("1,-" FN \\TEDIT.UNDERLINE.SEL.ON) ( "1,_" FN \\TEDIT.UNDERLINE.SEL.OFF) ("1,^" FN \\TEDIT.SUBSCRIPTSEL) ("1,|" FN \\TEDIT.SUPERSCRIPTSEL) ("1,SPACE" FN \\TEDIT.DEFAULTSSEL) ("1,?" FN \\TEDIT.SHOWCARETLOOKS) ("1,(" FN \\TEDIT.DK.INSERT-PARENS) ("1,\"" FN \\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES) ("1,'" FN \\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES))))) (P (FOR ENTRY IN \\TEDIT.DORADO.KEYS DO (SELECTQ (CADR ENTRY) (FN (TEDIT.SETFUNCTION (CAR ENTRY) (CADDR ENTRY))) (TEDIT.SETSYNTAX (CAR ENTRY) (CADR ENTRY))))))) (FILESLOAD TEDIT-DCL TEDIT-FNKEYS) (RPAQQ \\TEDIT.DORADO.KEYS (("1,a" FN \\TEDIT.DK.ABORT) ("1,A" FN \\TEDIT.DK.ABORT) ("1,U" UNDO) ( "1,u" UNDO) ("1,f" FN \\TEDIT.DK.FIND) ("1,F" FN \\TEDIT.DK.FIND) (ESC REDO) ("1,n" NEXT) ("1,N" NEXT) ("1,S" FN \\TEDIT.DK.SUBSTITUTE) ("1,s" FN \\TEDIT.DK.SUBSTITUTE) ("1,x" EXPAND) ("1,X" EXPAND) ( "1,c" FN \\TEDIT.CENTER.SEL) ("1,C" FN \\TEDIT.CENTER.SEL.REV) ("1,b" FN \\TEDIT.BOLD.SEL.ON) ("1,B" FN \\TEDIT.BOLD.SEL.OFF) ("1,i" FN \\TEDIT.ITALIC.SEL.ON) ("1,I" FN \\TEDIT.ITALIC.SEL.OFF) ("1,=" FN \\TEDIT.STRIKEOUT.SEL.ON) ("1,+" FN \\TEDIT.STRIKEOUT.SEL.OFF) ("1,-" FN \\TEDIT.UNDERLINE.SEL.ON) ( "1,_" FN \\TEDIT.UNDERLINE.SEL.OFF) ("1,^" FN \\TEDIT.SUBSCRIPTSEL) ("1,|" FN \\TEDIT.SUPERSCRIPTSEL) ("1,SPACE" FN \\TEDIT.DEFAULTSSEL) ("1,?" FN \\TEDIT.SHOWCARETLOOKS) ("1,(" FN \\TEDIT.DK.INSERT-PARENS) ("1,\"" FN \\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES) ("1,'" FN \\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES))) (FOR ENTRY IN \\TEDIT.DORADO.KEYS DO (SELECTQ (CADR ENTRY) (FN (TEDIT.SETFUNCTION (CAR ENTRY) (CADDR ENTRY))) (TEDIT.SETSYNTAX (CAR ENTRY) (CADR ENTRY)))) (PUTPROPS TEDITDORADOKEYS COPYRIGHT ("Xerox Corporation" 1987 2018)) NIL