From 4133da4556eab54aa78a2a5b7ec730e0b9d77e61 Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sat, 8 Nov 2025 13:34:29 -0800 Subject: [PATCH] Tedit changes so that TEDIT.GETSYNTAX conforms to documentation, fixes Sketch backspace --- library/tedit/TEDIT-COMMAND | 19 ++--- library/tedit/TEDIT-COMMAND.LCOM | Bin 5752 -> 5626 bytes library/tedit/TEDIT-FNKEYS | 141 ++++++++++++++++++------------- library/tedit/TEDIT-FNKEYS.LCOM | Bin 38915 -> 39242 bytes 4 files changed, 93 insertions(+), 67 deletions(-) diff --git a/library/tedit/TEDIT-COMMAND b/library/tedit/TEDIT-COMMAND index 3211d03f..96aa3adf 100644 --- a/library/tedit/TEDIT-COMMAND +++ b/library/tedit/TEDIT-COMMAND @@ -1,14 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "17-Jul-2025 00:24:49"  -{DSK}kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-COMMAND.;165 19015 +(FILECREATED " 8-Nov-2025 10:03:19" {WMEDLEY}TEDIT>TEDIT-COMMAND.;166 19030 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.COMMAND.RESET.SETUP) + :CHANGES-TO (FNS \TEDIT.COMMAND.FUNCTION?) - :PREVIOUS-DATE "23-Mar-2025 15:27:20" -{DSK}kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-COMMAND.;163) + :PREVIOUS-DATE "17-Jul-2025 00:24:49" {WMEDLEY}TEDIT>TEDIT-COMMAND.;165) (PRETTYCOMPRINT TEDIT-COMMANDCOMS) @@ -137,7 +135,8 @@ (FSETTOBJ TEXTOBJ EDITOPACTIVE NIL)))]) (\TEDIT.COMMAND.FUNCTION? - [LAMBDA (TSTREAM CHARCODE) (* ; "Edited 23-Mar-2025 15:27 by rmk") + [LAMBDA (TSTREAM CHARCODE) (* ; "Edited 8-Nov-2025 10:00 by rmk") + (* ; "Edited 23-Mar-2025 15:27 by rmk") (DECLARE (SPECVARS TSTREAM CHARCODE)) (* ;; "If CHARCODE is a function in TSTREAM's read table, execute the function.") @@ -145,7 +144,7 @@ (LET ((TEXTOBJ (GETTSTR TSTREAM TEXTOBJ)) FN) (DECLARE (SPECVARS TEXTOBJ)) - (CL:WHEN [AND (EQ (\TEDIT.TTC FUNCTIONCALL) + (CL:WHEN [AND (EQ (\TEDIT.TTC FN) (\SYNCODE (fetch READSA of (FGETTOBJ TEXTOBJ TXTRTBL)) CHARCODE)) (SETQ FN (CAR (fetch MACROFN of (GETHASH CHARCODE (fetch READMACRODEFS @@ -303,7 +302,7 @@ (GLOBALVARS || TEDIT.INTERRUPTS) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2709 10263 (\TEDIT.COMMAND.LOOP 2719 . 9060) (\TEDIT.COMMAND.FUNCTION? 9062 . 10261)) ( -10264 18725 (\TEDIT.INTERRUPT.SETUP 10274 . 11921) (\TEDIT.MARKACTIVE 11923 . 12252) ( -\TEDIT.MARKINACTIVE 12254 . 12470) (\TEDIT.COMMAND.RESET.SETUP 12472 . 18723))))) + (FILEMAP (NIL (2625 10278 (\TEDIT.COMMAND.LOOP 2635 . 8976) (\TEDIT.COMMAND.FUNCTION? 8978 . 10276)) ( +10279 18740 (\TEDIT.INTERRUPT.SETUP 10289 . 11936) (\TEDIT.MARKACTIVE 11938 . 12267) ( +\TEDIT.MARKINACTIVE 12269 . 12485) (\TEDIT.COMMAND.RESET.SETUP 12487 . 18738))))) STOP diff --git a/library/tedit/TEDIT-COMMAND.LCOM b/library/tedit/TEDIT-COMMAND.LCOM index 583d13aacfe7eef7a08e0c33ab3d180cbdca7475..cf5bdabb62dd3e4b5570067c9108a68357f4cb21 100644 GIT binary patch delta 373 zcmeyN^Gka|c)fy!u3vtcu91O}se++_m4UI9p{0_7hEj5VZb4>FYKlUBo`RA>b-1sq zi;rt$txZm5Qc+@2rCo@ti)RRg)OGgv^>y@f(X%!*Gt*SyQZh2r^-nH=m}y{XWoQUC zGpQ&QZfI&nK~b@)l|szK|9q3BSh?ymfws7X`uHdy>($fKQ&LDtECIR#o1sRQN}606 zZk|4_&Oxq@KnDRGiq$uSUC#$|zJj5pfw95l^NjkEZlQk8A)fwz_L>S-0YR=|p8lc1 fx-LL_CdV;KX%ZVCrjzs8MJM|+b8TMCbX6DtR%>VC delta 497 zcmeyR{X=I$c)g*yu2*S}u91O}se*xlm63^+iKUW)hEj5VZb4>FYKlUBo`RABSG7y9 zcdbomacWVqU3OwYPGX*&PkwS@j$LkQN=|B}v7V`2d45rLW?s53M8qy9GpQ)CsM4+^ zH6^peF2vQvGepADo(|KV4_SKa$ diff --git a/library/tedit/TEDIT-FNKEYS b/library/tedit/TEDIT-FNKEYS index d9da38e1..09529635 100644 --- a/library/tedit/TEDIT-FNKEYS +++ b/library/tedit/TEDIT-FNKEYS @@ -1,12 +1,15 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 7-Aug-2025 15:00:51" {WMEDLEY}TEDIT>TEDIT-FNKEYS.;294 106161 +(FILECREATED " 8-Nov-2025 13:32:36" {WMEDLEY}TEDIT>TEDIT-FNKEYS.;299 107884 :EDIT-BY rmk - :CHANGES-TO (VARS TEDIT-FNKEYSCOMS) + :CHANGES-TO (FNS TEDIT.GETSYNTAX TEDIT.GETFUNCTION TEDIT.CLEAR.CHARBINDINGS + TEDIT.GET.CHARACTION TEDIT.GET.ALL.CHARBINDINGS TEDIT.GET.ALL.CHARACTIONS + TEDIT.SETFUNCTION) + (VARS TEDIT.BASIC.CHARBINDINGS \TEDIT.TTCCODES) - :PREVIOUS-DATE " 6-Aug-2025 08:59:59" {WMEDLEY}TEDIT>TEDIT-FNKEYS.;293) + :PREVIOUS-DATE " 7-Aug-2025 15:00:51" {WMEDLEY}TEDIT>TEDIT-FNKEYS.;294) (PRETTYCOMPRINT TEDIT-FNKEYSCOMS) @@ -124,7 +127,8 @@ RDTBL]) (TEDIT.CLEAR.CHARBINDINGS - [LAMBDA (RDTBL BINDINGS) (* ; "Edited 5-Apr-2025 11:36 by rmk") + [LAMBDA (RDTBL BINDINGS) (* ; "Edited 8-Nov-2025 10:00 by rmk") + (* ; "Edited 5-Apr-2025 11:36 by rmk") (* ; "Edited 18-Mar-2025 11:10 by rmk") (* ; "Edited 15-Mar-2025 12:02 by rmk") @@ -142,7 +146,7 @@ [if (EQ BINDINGS T) then [MAPHASH (fetch READMACRODEFS of RDTBL) (FUNCTION (LAMBDA (VAL CHARCODE) - (CL:WHEN (EQ (\TEDIT.TTC FUNCTIONCALL) + (CL:WHEN (EQ (\TEDIT.TTC FN) (\SYNCODE (fetch READSA of RDTBL) CHARCODE)) (TEDIT.SETFUNCTION CHARCODE NIL RDTBL) @@ -163,7 +167,8 @@ RDTBL))])]) (TEDIT.GET.CHARACTION - [LAMBDA (CHARCODE BINDINGS) (* ; "Edited 5-Apr-2025 11:36 by rmk") + [LAMBDA (CHARCODE BINDINGS) (* ; "Edited 8-Nov-2025 10:00 by rmk") + (* ; "Edited 5-Apr-2025 11:36 by rmk") (* ; "Edited 19-Mar-2025 14:51 by rmk") (* ; "Edited 18-Mar-2025 11:07 by rmk") (* ; "Edited 17-Mar-2025 09:43 by rmk") @@ -195,7 +200,7 @@ [MAPHASH (fetch READMACRODEFS of RDTBL) (FUNCTION (LAMBDA (VAL CCODE) (CL:WHEN (AND (EQ CCODE CHARCODE) - (EQ (\TEDIT.TTC FUNCTIONCALL) + (EQ (\TEDIT.TTC FN) (\SYNCODE (fetch READSA of RDTBL) CHARCODE))) (for CA in TEDIT.CHARACTIONS when (EQUAL (CADR CA) @@ -238,7 +243,8 @@ CHARS)]) (TEDIT.GET.ALL.CHARBINDINGS - [LAMBDA (RDTBL RETURNCODES) (* ; "Edited 23-Apr-2025 10:11 by rmk") + [LAMBDA (RDTBL RETURNCODES) (* ; "Edited 8-Nov-2025 10:00 by rmk") + (* ; "Edited 23-Apr-2025 10:11 by rmk") (* ; "Edited 7-Apr-2025 22:11 by rmk") (* ; "Edited 5-Apr-2025 11:37 by rmk") (* ; "Edited 18-Mar-2025 20:51 by rmk") @@ -256,7 +262,7 @@ (LET (ACTIONS) [MAPHASH (fetch READMACRODEFS of RDTBL) (FUNCTION (LAMBDA (VAL CCODE) - (CL:WHEN (EQ (\TEDIT.TTC FUNCTIONCALL) + (CL:WHEN (EQ (\TEDIT.TTC FN) (\SYNCODE (fetch READSA of RDTBL) CCODE)) (for CA ANAME in TEDIT.CHARACTIONS when (LISTP CA) @@ -272,7 +278,7 @@ [for A S in ACTIONS do (SETQ S (SORT (CDR A))) (RPLACD A (CL:IF RETURNCODES S - (CHARCODE.ENCODE S))] + (CHARCODE.ENCODE S))] ACTIONS]) (TEDIT.CHARBINDINGS.INVERT @@ -300,7 +306,8 @@ (RETURN ACTIONSPERCHAR]) (TEDIT.GET.ALL.CHARACTIONS - [LAMBDA (RDTBL RETURNCODES) (* ; "Edited 23-Apr-2025 10:11 by rmk") + [LAMBDA (RDTBL RETURNCODES) (* ; "Edited 8-Nov-2025 10:00 by rmk") + (* ; "Edited 23-Apr-2025 10:11 by rmk") (* ; "Edited 5-Apr-2025 11:37 by rmk") (* ; "Edited 18-Mar-2025 20:51 by rmk") (CL:UNLESS (READTABLEP RDTBL) @@ -314,7 +321,7 @@ (LET (ACTIONS) [MAPHASH (fetch READMACRODEFS of RDTBL) (FUNCTION (LAMBDA (VAL CCODE) - (CL:WHEN (EQ (\TEDIT.TTC FUNCTIONCALL) + (CL:WHEN (EQ (\TEDIT.TTC FN) (\SYNCODE (fetch READSA of RDTBL) CCODE)) (for CA ANAME in TEDIT.CHARACTIONS when (LISTP CA) @@ -330,7 +337,7 @@ [for A S in ACTIONS do (SETQ S (SORT (CDR A))) (RPLACD A (CL:IF RETURNCODES S - (CHARCODE.ENCODE S))] + (CHARCODE.ENCODE S))] ACTIONS]) (TEDIT.CONFLICTING.CHARBINDINGS @@ -1308,24 +1315,41 @@ RTBL]) (TEDIT.GETSYNTAX - [LAMBDA (CH TABLE) (* ; "Edited 29-May-2025 16:20 by rmk") + [LAMBDA (CH TABLE) (* ; "Edited 8-Nov-2025 13:32 by rmk") + (* ; "Edited 29-May-2025 16:20 by rmk") (* ; "Edited 12-Mar-2025 12:55 by rmk") (* ; "Edited 24-Dec-2023 09:47 by rmk") (* ; "Edited 31-Mar-87 10:01 by jds") - (* ;; "Find TEdit's interpretation of a given character") + (* ;; "SKETCH uses this function.") - (CAR (find TTC (SYNCODE _ (\SYNCODE (fetch READSA of (if (NULL TABLE) - then TEDIT.READTABLE - elseif (TEXTSTREAM TABLE T) - then (OR (GETTOBJ (TEXTOBJ TABLE) - TXTRTBL) - TEDIT.READTABLE) - else TABLE)) - (CL:IF (OR (LITATOM CH) - (STRINGP CH)) - (CHARCODE.DECODE CH) - CH))) in \TEDIT.TTCCODES suchthat (EQ SYNCODE (CADR TTC]) + (LET + ((ACTION (TEDIT.GET.CHARACTION CH TABLE))) + (if ACTION + then + (* ;; "Map back to syntax-class names just for those defined classes, otherwise FN, for compatibility with documentation and history. But (OR (CAR (MKLIST ACTION)) 'NONE) would be simpler and more informative") + + (OR (find CLASS in '(CHARDELETE WORDDELETE DELETE UNDO REDO NEXT) + suchthat (OR (EQ CLASS ACTION) + (MEMB CLASS ACTION))) + 'FN) + else + (* ;; + "Old code: actions associated with particular class names--really now just picks out NONE") + + (CAR (find TTC (SYNCODE _ (\SYNCODE (fetch READSA + of (if (NULL TABLE) + then TEDIT.READTABLE + elseif (TEXTSTREAM TABLE T) + then (OR (GETTOBJ (TEXTOBJ TABLE) + TXTRTBL) + TEDIT.READTABLE) + else TABLE)) + (CL:IF (OR (LITATOM CH) + (STRINGP CH)) + (CHARCODE.DECODE CH) + CH))) in \TEDIT.TTCCODES + suchthat (EQ SYNCODE (CADR TTC]) (TEDIT.SETSYNTAX [LAMBDA (CHAR CLASS RDTBL) (* ; "Edited 13-Mar-2025 21:52 by rmk") @@ -1351,7 +1375,8 @@ (\TEDIT.TTC NONE))))]) (TEDIT.GETFUNCTION - [LAMBDA (CHARCODE RDTBL) (* ; "Edited 5-Apr-2025 11:37 by rmk") + [LAMBDA (CHARCODE RDTBL) (* ; "Edited 8-Nov-2025 11:13 by rmk") + (* ; "Edited 5-Apr-2025 11:37 by rmk") (* ; "Edited 13-Mar-2025 22:56 by rmk") (* ; "Edited 7-Mar-2025 12:02 by rmk") (* jds "19-Sep-85 17:06") @@ -1368,14 +1393,15 @@ TEDIT.READTABLE) else RDTBL)) (CL:WHEN (AND (READTABLEP RDTBL) - (EQ (\TEDIT.TTC FUNCTIONCALL) + (EQ (\TEDIT.TTC FN) (\SYNCODE (fetch READSA of RDTBL) CHARCODE)) (fetch READMACRODEFS of RDTBL)) [CAR (FETCH MACROFN OF (GETHASH CHARCODE (fetch READMACRODEFS of RDTBL])]) (TEDIT.SETFUNCTION - [LAMBDA (CHARCODE FN RDTBL) (* ; "Edited 13-Mar-2025 22:51 by rmk") + [LAMBDA (CHARCODE FN RDTBL) (* ; "Edited 8-Nov-2025 10:02 by rmk") + (* ; "Edited 13-Mar-2025 22:51 by rmk") (* ; "Edited 7-Mar-2025 12:03 by rmk") (* ; "Edited 31-Mar-87 10:58 by jds") (* ; @@ -1396,7 +1422,7 @@ (\SETSYNCODE (fetch READSA of RDTBL) CHARCODE (CL:IF FN - (\TEDIT.TTC FUNCTIONCALL) + (\TEDIT.TTC FN) (\TEDIT.TTC NONE))) (CL:UNLESS (fetch READMACRODEFS of RDTBL) (replace READMACRODEFS of RDTBL with (HARRAY 50))) (* ; @@ -1460,7 +1486,7 @@ (CHARDELETE 1) (WORDDELETE 2) (DELETE 3) - (FUNCTIONCALL 4) + (FN 4) (REDO 5) (UNDO 6) (CMD 7) @@ -1718,7 +1744,8 @@ (CHARDELETE "BS" "^A") (* ; "CHARDELETE/WORDDELETE are TTC") - (CHARDELETE.FORWARD "^W" "^U") + ((CHARDELETE.FORWARD DELETE) + "^W" "^U") (* ; "keyactions for DEL key ??") (WORDDELELETE) (WORDDELETE.FORWARD) @@ -1939,29 +1966,29 @@ (RPAQQ TEDIT.BUTTONBITMAP #*(78 48)OOOOOOOOOOOOOOOOOOOLON@@@@@@@@@@@@@@@AOLO@@@@@@@@@@@@@@@@@CLO@@@@@@@@@@@@@@@@@CLMH@@@@@@@@@@@@@@@@DLNLGOOOOOOOOOOOOOOHHLMFL@@@@@@@@@@@@@@M@LJK@@@@@@@@@@@@@@@B@DMF@@@@@@@@@@@@@@@A@DJN@@@@@@@@@@@@@@@AHDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMF@@@@@@@@@@@@@@@AHDJJ@@@@@@@@@@@@@@@A@DMG@@@@@@@@@@@@@@@B@DNEL@@@@@@@@@@@@@@O@LLIGOOOOOOOOOOOOOOMHLOBBJJJJJJJJJJJJJJJLLNDEEEEEEEEEEEEEEEEGLOHJJJJJJJJJJJJJJJJKLOLEEEEEEEEEEEEEEEEOLOOOOOOOOOOOOOOOOOOOL ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3941 22863 (TEDIT.INSTALL.CHARBINDINGS 3951 . 7842) (TEDIT.CLEAR.CHARBINDINGS 7844 . -10522) (TEDIT.GET.CHARACTION 10524 . 13270) (TEDIT.GET.CHARBINDING 13272 . 15411) ( -TEDIT.GET.ALL.CHARBINDINGS 15413 . 17729) (TEDIT.CHARBINDINGS.INVERT 17731 . 19461) ( -TEDIT.GET.ALL.CHARACTIONS 19463 . 21549) (TEDIT.CONFLICTING.CHARBINDINGS 21551 . 22861)) (22923 32978 -(\TEDIT.KEY.CHARLOOKS 22933 . 24125) (\TEDIT.KEY.QUAD 24127 . 26220) (\TEDIT.DEFAULTSSEL 26222 . 26833 -) (\TEDIT.SETDEFAULT.FROM.SEL 26835 . 27512) (\TEDIT.KEY.SIZE 27514 . 28710) (\TEDIT.SUBSCRIPTSEL -28712 . 28915) (\TEDIT.SUPERSCRIPTSEL 28917 . 29121) (\TEDIT.KEY.TRANSFORM 29123 . 31120) ( -\TEDIT.KEY.OPENLINE 31122 . 31576) (\TEDIT.KEY.FAMILYN 31578 . 32976)) (32979 33268 (CAP-CASECODE -32989 . 33266)) (33302 36734 (\TEDIT.SHOWCARETLOOKS 33312 . 35827) (\TEDIT.DESCRIBEFONT 35829 . 36732) -) (36765 51738 (\TEDIT.ONECHAR.BACKWARD 36775 . 37922) (\TEDIT.ONECHAR.FORWARD 37924 . 39160) ( -\TEDIT.ONELINE.UP 39162 . 42123) (\TEDIT.ONELINE.DOWN 42125 . 43782) (\TEDIT.ONELINE.MOVE 43784 . -46071) (\TEDIT.ONEWORD.BACKWARD 46073 . 47261) (\TEDIT.ONEWORD.FORWARD 47263 . 48450) ( -\TEDIT.LINE.BEGIN 48452 . 49531) (\TEDIT.LINE.END 49533 . 50770) (\TEDIT.DOCUMENT.BEGIN 50772 . 51131) - (\TEDIT.DOCUMENT.END 51133 . 51736)) (51739 53781 (\TEDIT.LINEDELETE.FORWARD 51749 . 52748) ( -\TEDIT.LINEDELETE.BACKWARD 52750 . 53779)) (53782 56310 (\TEDIT.KEY.NEST 53792 . 56308)) (56311 57593 -(\TEDIT.KEY.WRAP 56321 . 57591)) (57684 65732 (\TEDIT.KEY.FIND 57694 . 62872) ( -\TEDIT.KEY.FIND.SEARCHSTRING 62874 . 64014) (\TEDIT.GET.TARGET.STRING 64016 . 65730)) (65763 68395 ( -\TEDIT.KEY.SUBSTITUTE 65773 . 65994) (\TEDIT.MANPAGE 65996 . 67243) (\TEDIT.CALL.ED 67245 . 68075) ( -\TEDIT.SELECT.ALL 68077 . 68393)) (68422 74112 (\TEDIT.CLIPBOARD 68432 . 70187) ( -\TEDIT.COPYTOCLIPBOARD 70189 . 70969) (\TEDIT.EXTRACTTOCLIPBOARD 70971 . 71166) (\TEDIT.WRITE.SEL -71168 . 74110)) (74278 86280 (\TEDIT.READTABLE 74288 . 75224) (\TEDIT.WORDBOUND.READTABLE 75226 . -78165) (TEDIT.GETSYNTAX 78167 . 79596) (TEDIT.SETSYNTAX 79598 . 80803) (TEDIT.GETFUNCTION 80805 . -82070) (TEDIT.SETFUNCTION 82072 . 84058) (TEDIT.WORDGET 84060 . 84321) (TEDIT.WORDSET 84323 . 84954) ( -TEDIT.ATOMBOUND.READTABLE 84956 . 86278)) (98109 105097 (TEDIT.BUTTONS.BUILD 98119 . 103365) ( -TEDIT.BUTTONBITMAP.FILL 103367 . 105095))))) + (FILEMAP (NIL (4188 23498 (TEDIT.INSTALL.CHARBINDINGS 4198 . 8089) (TEDIT.CLEAR.CHARBINDINGS 8091 . +10868) (TEDIT.GET.CHARACTION 10870 . 13715) (TEDIT.GET.CHARBINDING 13717 . 15856) ( +TEDIT.GET.ALL.CHARBINDINGS 15858 . 18269) (TEDIT.CHARBINDINGS.INVERT 18271 . 20001) ( +TEDIT.GET.ALL.CHARACTIONS 20003 . 22184) (TEDIT.CONFLICTING.CHARBINDINGS 22186 . 23496)) (23558 33613 +(\TEDIT.KEY.CHARLOOKS 23568 . 24760) (\TEDIT.KEY.QUAD 24762 . 26855) (\TEDIT.DEFAULTSSEL 26857 . 27468 +) (\TEDIT.SETDEFAULT.FROM.SEL 27470 . 28147) (\TEDIT.KEY.SIZE 28149 . 29345) (\TEDIT.SUBSCRIPTSEL +29347 . 29550) (\TEDIT.SUPERSCRIPTSEL 29552 . 29756) (\TEDIT.KEY.TRANSFORM 29758 . 31755) ( +\TEDIT.KEY.OPENLINE 31757 . 32211) (\TEDIT.KEY.FAMILYN 32213 . 33611)) (33614 33903 (CAP-CASECODE +33624 . 33901)) (33937 37369 (\TEDIT.SHOWCARETLOOKS 33947 . 36462) (\TEDIT.DESCRIBEFONT 36464 . 37367) +) (37400 52373 (\TEDIT.ONECHAR.BACKWARD 37410 . 38557) (\TEDIT.ONECHAR.FORWARD 38559 . 39795) ( +\TEDIT.ONELINE.UP 39797 . 42758) (\TEDIT.ONELINE.DOWN 42760 . 44417) (\TEDIT.ONELINE.MOVE 44419 . +46706) (\TEDIT.ONEWORD.BACKWARD 46708 . 47896) (\TEDIT.ONEWORD.FORWARD 47898 . 49085) ( +\TEDIT.LINE.BEGIN 49087 . 50166) (\TEDIT.LINE.END 50168 . 51405) (\TEDIT.DOCUMENT.BEGIN 51407 . 51766) + (\TEDIT.DOCUMENT.END 51768 . 52371)) (52374 54416 (\TEDIT.LINEDELETE.FORWARD 52384 . 53383) ( +\TEDIT.LINEDELETE.BACKWARD 53385 . 54414)) (54417 56945 (\TEDIT.KEY.NEST 54427 . 56943)) (56946 58228 +(\TEDIT.KEY.WRAP 56956 . 58226)) (58319 66367 (\TEDIT.KEY.FIND 58329 . 63507) ( +\TEDIT.KEY.FIND.SEARCHSTRING 63509 . 64649) (\TEDIT.GET.TARGET.STRING 64651 . 66365)) (66398 69030 ( +\TEDIT.KEY.SUBSTITUTE 66408 . 66629) (\TEDIT.MANPAGE 66631 . 67878) (\TEDIT.CALL.ED 67880 . 68710) ( +\TEDIT.SELECT.ALL 68712 . 69028)) (69057 74747 (\TEDIT.CLIPBOARD 69067 . 70822) ( +\TEDIT.COPYTOCLIPBOARD 70824 . 71604) (\TEDIT.EXTRACTTOCLIPBOARD 71606 . 71801) (\TEDIT.WRITE.SEL +71803 . 74745)) (74913 87995 (\TEDIT.READTABLE 74923 . 75859) (\TEDIT.WORDBOUND.READTABLE 75861 . +78800) (TEDIT.GETSYNTAX 78802 . 81113) (TEDIT.SETSYNTAX 81115 . 82320) (TEDIT.GETFUNCTION 82322 . +83686) (TEDIT.SETFUNCTION 83688 . 85773) (TEDIT.WORDGET 85775 . 86036) (TEDIT.WORDSET 86038 . 86669) ( +TEDIT.ATOMBOUND.READTABLE 86671 . 87993)) (99832 106820 (TEDIT.BUTTONS.BUILD 99842 . 105088) ( +TEDIT.BUTTONBITMAP.FILL 105090 . 106818))))) STOP diff --git a/library/tedit/TEDIT-FNKEYS.LCOM b/library/tedit/TEDIT-FNKEYS.LCOM index 3682e535d8728aef6011cf8739901dcf672b7566..65c4bc51809ab96e4361bf542ed9da7d492fc580 100644 GIT binary patch delta 879 zcmZuuOHUI~6z&vgaY!l@STrb}j!|2*O=tR?>BgbGr32HMrkz4dd<3D97PJJ>khp-L z(M8*++~~@PtX$gAbfuBRmAdl}n3$NjQeo*z@3h5eI zlXrWhn+Mht4267nfjZU`Q_=?l@Y9kVZ=3otRUE|UiVU7F4&aRms|g&FVk(V~ZrbcL zTxiMFv`9paqO=o)WC~46Y9{T9lDhaLCDy-FwoXdHFLMv-+orIw1+lqksoy=arR0*} z0WqRUssa+Qpoyb0BFF=gxDyQTx(x>7d671d(X~`-H<;Y3=nZdGXi&&hZJ8?)rXxOFlqN_lCK+F(JS0vzikf4b!}p z>ZLAQb`{lPr1qYumd0M8_AOz&So>mdu>K&BwZz4A99YgrZ}ImIfl!q1TKe8EFWn)Ks($+fPP`s-!Zx z6w*cAKTWatb8f)aqMg88nqtV6VVvL?fiTcGS02WzWd}v$=jAZ&TJOg{%2tflhwxD4 zj2)Oner4udN%v2Z32E*GQZnt|Btzn7D*}F2v6J}S3XgwQP7`#Z8pNTEVSKaNN346* KVEs)M(Z2z5JoCu_ delta 603 zcmZut&ubGw7|m{NL${Z@RZtQ6I#|exi95Ubxdm~Xopd**N!;Dk6lox~AxYKLAN3{_ zwI@kpd+0MRvQWov8 zy@`e_ObcI~tSJ0^o!$H0?ESLEa_=w@qG}WtnQxn(4T(XJ>81-7i&$)ML0kvVcb)uV z5ws-lRQ3xCS3Bp>gz|h>eEPn71%C`sfBYqr{sJdhs1yJI