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

sources/LLKEY

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 5-May-2025 20:57:08" {WMEDLEY}<sources>LLKEY.;15
 199508 
+
(FILECREATED "12-Nov-2025 16:40:50" {WMEDLEY}<sources>LLKEY.;18
 199501 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS \MAIKOKEYACTIONS \KEYNAMES)
+      :CHANGES-TO (VARS \ORIGKEYACTIONS)
 
-      :PREVIOUS-DATE " 4-Apr-2025 17:10:10" {WMEDLEY}<sources>LLKEY.;11)
+      :PREVIOUS-DATE "12-Nov-2025 15:56:25" {WMEDLEY}<sources>LLKEY.;17)
 
 
 (PRETTYCOMPRINT LLKEYCOMS)
@@ -1591,7 +1591,7 @@
         (12 ("/" "?" NOLOCKSHIFT))
         (13 ("\" "|" NOLOCKSHIFT))
         (14 ("LF" "`" NOLOCKSHIFT))
-        (15 ("Bs" "Bs" NOLOCKSHIFT))
+        (15 ("Bs" "^W" NOLOCKSHIFT))
         (16 ("3" "#" NOLOCKSHIFT))
         (17 ("2" "@" NOLOCKSHIFT))
         (18 ("w" "W" LOCKSHIFT))
@@ -1771,7 +1771,7 @@
         (66 ("Function,G" "Function,g" NOLOCKSHIFT))
         (104 ("Function,H" "Function,h" NOLOCKSHIFT))
         (80 ("Function,I" "Function,i" NOLOCKSHIFT))
-        (13 ("^W" "^U" NOLOCKSHIFT))
+        (13 (RUBOUT "^U" NOLOCKSHIFT))
         (33 ("Esc" "Esc" NOLOCKSHIFT))
         (65 ("Esc" "Esc" NOLOCKSHIFT))
         (2 ("6" "^" NOLOCKSHIFT))
@@ -1851,9 +1851,9 @@
         (4 ("7" "'" NOLOCKSHIFT))
         (8 ("0" "0" NOLOCKSHIFT))
         (10 ("\" "_" NOLOCKSHIFT))
-        (13 ("^W" "^U" NOLOCKSHIFT))
+        (13 (RUBOUT "^U" NOLOCKSHIFT))
         (14 METADOWN . METAUP)
-        (15 ("Bs" "Bs" NOLOCKSHIFT))
+        (15 ("Bs" "^W" NOLOCKSHIFT))
         (17 ("2" "%"" NOLOCKSHIFT))
         (22 ("9" ")" NOLOCKSHIFT))
         (28 (":" "*" NOLOCKSHIFT))
@@ -3916,33 +3916,33 @@
 (ADDTOVAR LAMA
 CURSORPROP METASHIFT MOUSECHORDWAIT)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (14602 21918 (BKSYSCHARCODE 14612 . 14961) (\CLEARSYSBUF 14963 . 15521) (\GETKEY 15523
- . 16698) (\NSYSBUFCHARS 16700 . 17442) (\SAVESYSBUF 17444 . 19053) (\SYSBUFP 19055 . 19359) (
-\GETSYSBUF 19361 . 19541) (\PUTSYSBUF 19543 . 20756) (\PEEKSYSBUF 20758 . 21916)) (23203 60761 (
-\KEYBOARDINIT 23213 . 24933) (\KEYBOARDEVENTFN 24935 . 29635) (\ALLOCLOCKED 29637 . 30227) (
-\SETIOPOINTERS 30229 . 34765) (\KEYBOARDOFF 34767 . 35181) (\KEYBOARDON 35183 . 35562) (\KEYHANDLER 
-35564 . 35695) (\KEYHANDLER1 35697 . 43143) (\RESETKEYBOARD 43145 . 44793) (\DOMOUSECHORDING 44795 . 
-48615) (\DOTRANSITIONS 48617 . 49294) (\DECODETRANSITION 49296 . 56709) (MOUSECHORDWAIT 56711 . 57375)
- (\TRACKCURSOR 57377 . 60759)) (95227 117100 (KEYACTION 95237 . 96090) (KEYACTIONTABLE 96092 . 97274) 
-(KEYBOARDTYPE 97276 . 98378) (RESETKEYACTION 98380 . 100139) (\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS 
-100141 . 102043) (\KEYACTION1 102045 . 112161) (KEYDOWNP 112163 . 112498) (KEYNUMBERP 112500 . 112698)
- (\KEYNAMETONUMBER 112700 . 113394) (\KEYNUMBERTONAME 113396 . 113586) (MODIFY.KEYACTIONS 113588 . 
-114449) (METASHIFT 114451 . 115395) (SHIFTDOWNP 115397 . 117098)) (117163 117459 (
-SETUP.OFFICE.KEYBOARD 117173 . 117457)) (120438 122150 (\INIT.KEYBOARD.STREAM 120448 . 122148)) (
-122415 138792 (\DOBUFFEREDTRANSITIONS 122425 . 137855) (\TIMER.INTERRUPTFRAME 137857 . 138582) (
-\PERIODIC.INTERRUPTFRAME 138584 . 138790)) (139046 143123 (\HARDCURSORUP 139056 . 140938) (
-\HARDCURSORPOSITION 140940 . 142976) (\HARDCURSORDOWN 142978 . 143121)) (143124 167184 (CURSOR.INIT 
-143134 . 146834) (\CURSORDESTINATION 146836 . 149154) (\SOFTCURSORUP 149156 . 154410) (
-\SOFTCURSORUPCURRENT 154412 . 161448) (\SOFTCURSORPOSITION 161450 . 162215) (\SOFTCURSORDOWN 162217 . 
-162925) (CURSORPROP 162927 . 163269) (GETCURSORPROP 163271 . 163459) (PUTCURSORPROP 163461 . 164616) (
-\CURSORBITSPERPIXEL 164618 . 166734) (\CURSORIMAGEPROPNAME 166736 . 166960) (\CURSORMASKPROPNAME 
-166962 . 167182)) (167185 185135 (CURSORCREATE 167195 . 169870) (CURSOR 169872 . 171684) (
-\CURSOR-VALID-P 171686 . 172773) (\CURSORUP 172775 . 174490) (\CURSORPOSITION 174492 . 177020) (
-\CURSORDOWN 177022 . 177255) (ADJUSTCURSORPOSITION 177257 . 177835) (CURSORPOSITION 177837 . 179379) (
-CURSORSCREEN 179381 . 180037) (CURSOREXIT 180039 . 181430) (FLIPCURSOR 181432 . 182558) (FLIPCURSORBAR
- 182560 . 183540) (LASTMOUSEX 183542 . 183796) (LASTMOUSEY 183798 . 184052) (CREATEPOSITION 184054 . 
-184260) (POSITIONP 184262 . 184546) (CURSORHOTSPOT 184548 . 185133)) (186373 187921 (GETMOUSESTATE 
-186383 . 187042) (\EVENTKEYS 187044 . 187919)) (194120 194916 (MACHINETYPE 194130 . 194530) (
-SETMAINTPANEL 194532 . 194914)) (194946 196085 (BEEPON 194956 . 195609) (BEEPOFF 195611 . 196083)) (
-196536 196799 (WITHOUT-INTERRUPTS 196546 . 196797)))))
+  (FILEMAP (NIL (14591 21907 (BKSYSCHARCODE 14601 . 14950) (\CLEARSYSBUF 14952 . 15510) (\GETKEY 15512
+ . 16687) (\NSYSBUFCHARS 16689 . 17431) (\SAVESYSBUF 17433 . 19042) (\SYSBUFP 19044 . 19348) (
+\GETSYSBUF 19350 . 19530) (\PUTSYSBUF 19532 . 20745) (\PEEKSYSBUF 20747 . 21905)) (23192 60750 (
+\KEYBOARDINIT 23202 . 24922) (\KEYBOARDEVENTFN 24924 . 29624) (\ALLOCLOCKED 29626 . 30216) (
+\SETIOPOINTERS 30218 . 34754) (\KEYBOARDOFF 34756 . 35170) (\KEYBOARDON 35172 . 35551) (\KEYHANDLER 
+35553 . 35684) (\KEYHANDLER1 35686 . 43132) (\RESETKEYBOARD 43134 . 44782) (\DOMOUSECHORDING 44784 . 
+48604) (\DOTRANSITIONS 48606 . 49283) (\DECODETRANSITION 49285 . 56698) (MOUSECHORDWAIT 56700 . 57364)
+ (\TRACKCURSOR 57366 . 60748)) (95220 117093 (KEYACTION 95230 . 96083) (KEYACTIONTABLE 96085 . 97267) 
+(KEYBOARDTYPE 97269 . 98371) (RESETKEYACTION 98373 . 100132) (\KEYBOARD.MACHINE-SPECIFIC-KEYACTIONS 
+100134 . 102036) (\KEYACTION1 102038 . 112154) (KEYDOWNP 112156 . 112491) (KEYNUMBERP 112493 . 112691)
+ (\KEYNAMETONUMBER 112693 . 113387) (\KEYNUMBERTONAME 113389 . 113579) (MODIFY.KEYACTIONS 113581 . 
+114442) (METASHIFT 114444 . 115388) (SHIFTDOWNP 115390 . 117091)) (117156 117452 (
+SETUP.OFFICE.KEYBOARD 117166 . 117450)) (120431 122143 (\INIT.KEYBOARD.STREAM 120441 . 122141)) (
+122408 138785 (\DOBUFFEREDTRANSITIONS 122418 . 137848) (\TIMER.INTERRUPTFRAME 137850 . 138575) (
+\PERIODIC.INTERRUPTFRAME 138577 . 138783)) (139039 143116 (\HARDCURSORUP 139049 . 140931) (
+\HARDCURSORPOSITION 140933 . 142969) (\HARDCURSORDOWN 142971 . 143114)) (143117 167177 (CURSOR.INIT 
+143127 . 146827) (\CURSORDESTINATION 146829 . 149147) (\SOFTCURSORUP 149149 . 154403) (
+\SOFTCURSORUPCURRENT 154405 . 161441) (\SOFTCURSORPOSITION 161443 . 162208) (\SOFTCURSORDOWN 162210 . 
+162918) (CURSORPROP 162920 . 163262) (GETCURSORPROP 163264 . 163452) (PUTCURSORPROP 163454 . 164609) (
+\CURSORBITSPERPIXEL 164611 . 166727) (\CURSORIMAGEPROPNAME 166729 . 166953) (\CURSORMASKPROPNAME 
+166955 . 167175)) (167178 185128 (CURSORCREATE 167188 . 169863) (CURSOR 169865 . 171677) (
+\CURSOR-VALID-P 171679 . 172766) (\CURSORUP 172768 . 174483) (\CURSORPOSITION 174485 . 177013) (
+\CURSORDOWN 177015 . 177248) (ADJUSTCURSORPOSITION 177250 . 177828) (CURSORPOSITION 177830 . 179372) (
+CURSORSCREEN 179374 . 180030) (CURSOREXIT 180032 . 181423) (FLIPCURSOR 181425 . 182551) (FLIPCURSORBAR
+ 182553 . 183533) (LASTMOUSEX 183535 . 183789) (LASTMOUSEY 183791 . 184045) (CREATEPOSITION 184047 . 
+184253) (POSITIONP 184255 . 184539) (CURSORHOTSPOT 184541 . 185126)) (186366 187914 (GETMOUSESTATE 
+186376 . 187035) (\EVENTKEYS 187037 . 187912)) (194113 194909 (MACHINETYPE 194123 . 194523) (
+SETMAINTPANEL 194525 . 194907)) (194939 196078 (BEEPON 194949 . 195602) (BEEPOFF 195604 . 196076)) (
+196529 196792 (WITHOUT-INTERRUPTS 196539 . 196790)))))
 STOP