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}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-COMMAND.;165 19015  
+(FILECREATED " 8-Nov-2025 10:03:19" {WMEDLEY}<library>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}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-COMMAND.;163)
+      :PREVIOUS-DATE "17-Jul-2025 00:24:49" {WMEDLEY}<library>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 583d13aa..cf5bdabb 100644
Binary files a/library/tedit/TEDIT-COMMAND.LCOM and b/library/tedit/TEDIT-COMMAND.LCOM differ
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}<library>TEDIT>TEDIT-FNKEYS.;294 106161 
+(FILECREATED " 8-Nov-2025 13:32:36" {WMEDLEY}<library>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}<library>TEDIT>TEDIT-FNKEYS.;293)
+      :PREVIOUS-DATE " 7-Aug-2025 15:00:51" {WMEDLEY}<library>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 3682e535..65c4bc51 100644
Binary files a/library/tedit/TEDIT-FNKEYS.LCOM and b/library/tedit/TEDIT-FNKEYS.LCOM differ
