Rmk140 Sketch uses new font interfaces

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,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

sources/AINTERRUPT

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-
(FILECREATED "31-Mar-2024 09:38:10" |{DSK}<home>larry>il>medley>sources>AINTERRUPT.;7|
 41133  
+
(FILECREATED "12-Nov-2025 11:10:44" |{WMEDLEY}<sources>AINTERRUPT.;4|
 41235  
 
-      :EDIT-BY "lmm"
+      :EDIT-BY |rmk|
 
       :CHANGES-TO (VARS AINTERRUPTCOMS)
 
-      :PREVIOUS-DATE "31-Mar-2024 09:27:57" |{DSK}<home>larry>il>medley>sources>AINTERRUPT.;5|)
+      :PREVIOUS-DATE "31-Mar-2024 09:38:10" |{WMEDLEY}<sources>AINTERRUPT.;3|)
 
 
 (PRETTYCOMPRINT AINTERRUPTCOMS)
@@ -22,8 +22,8 @@
                                            (5 ERROR MOUSE)
                                            (7 HELP T)
                                            (16 PRINTLEVEL)
-                                           (20 (CONTROL-T))
-                                           (127 RUBOUT T)))))
+                                           (20 (CONTROL-T))))))
+                                                             (* \; "RMK2025:  Removed (127 RUBOUT T)")

         (GLOBALVARS LISPINTERRUPTS)
         (COMS 
               (* |;;| "^T this is actually not very useful any more, and the percentages are wrong")

@@ -538,14 +538,17 @@
     (prog1 \\interruptable (setq \\interruptable flag))))
 )
 
-(RPAQ? LISPINTERRUPTS

-       '((LISPINTERRUPTS (2 BREAK MOUSE)
-                (4 RESET MOUSE)
-                (5 ERROR MOUSE)
-                (7 HELP T)
-                (16 PRINTLEVEL)
-                (20 (CONTROL-T))
-                (127 RUBOUT T))))
+(RPAQ? LISPINTERRUPTS
 '((LISPINTERRUPTS (2 BREAK MOUSE)
+                               (4 RESET MOUSE)
+                               (5 ERROR MOUSE)
+                               (7 HELP T)
+                               (16 PRINTLEVEL)
+                               (20 (CONTROL-T)))))
+
+
+
+(* \; "RMK2025:  Removed (127 RUBOUT T)")

+
 (DECLARE\: DOEVAL@COMPILE DONTCOPY
 
 (GLOBALVARS LISPINTERRUPTS)
@@ -803,10 +806,10 @@ DONTCOPY
 (INTCHAR
 T)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (2924 29142 (INTCHAR 2934 . 7957) (INTERRUPTCHAR 7959 . 8233) (INTERRUPTED 8235 . 15814)
- (LISPINTERRUPTS 15816 . 16343) (\\DOHELPINTERRUPT 16345 . 17243) (\\DOHELPINTERRUPT1 17245 . 18643) (
-\\DOINTERRUPTHERE 18645 . 19825) (\\PROC.FINDREALFRAME 19827 . 20631) (\\SETPRINTLEVEL 20633 . 22585) 
-(\\SETRECLAIMMIN 22587 . 23460) (GETINTERRUPT 23462 . 24818) (CURRENTINTERRUPTS 24820 . 25030) (
-SETINTERRUPT 25032 . 27010) (RESET.INTERRUPTS 27012 . 28969) (INTERRUPTABLE 28971 . 29140)) (29562 
-35546 (CONTROL-T 29572 . 35013) (\\CONTROL-T.PRINTRATIO 35015 . 35544)))))
+  (FILEMAP (NIL (2939 29157 (INTCHAR 2949 . 7972) (INTERRUPTCHAR 7974 . 8248) (INTERRUPTED 8250 . 15829)
+ (LISPINTERRUPTS 15831 . 16358) (\\DOHELPINTERRUPT 16360 . 17258) (\\DOHELPINTERRUPT1 17260 . 18658) (
+\\DOINTERRUPTHERE 18660 . 19840) (\\PROC.FINDREALFRAME 19842 . 20646) (\\SETPRINTLEVEL 20648 . 22600) 
+(\\SETRECLAIMMIN 22602 . 23475) (GETINTERRUPT 23477 . 24833) (CURRENTINTERRUPTS 24835 . 25045) (
+SETINTERRUPT 25047 . 27025) (RESET.INTERRUPTS 27027 . 28984) (INTERRUPTABLE 28986 . 29155)) (29664 
+35648 (CONTROL-T 29674 . 35115) (\\CONTROL-T.PRINTRATIO 35117 . 35646)))))
 STOP