Rmk140 Sketch uses new font interfaces (#2358)

* Upgrade Sketch to new font interfaces

* Tedit changes so that TEDIT.GETSYNTAX conforms to documentation

* Remove RUBOUT interrupt

* TEDIT-FNKEYS:  uses keywords for action names

* LLKEY:  Change keybindings for DELETE and LOOKS

* SEDIT-COMMANDS:  Shift-DELELETE is wordelete.backwards

* Sketch implements arrow keys

Author: rmkaplan

library/sketch/SKETCH

@@ -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,15 +135,16 @@
                (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.")

 
     (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