Reset {MEDLEY} pseudohost on restart

Rmk185 tedit window and process glitches (#2604 )
* Substantive changes aimed to improve behavior of secondary selections as mouse moves around the screen, and to make sure the process does not reopen an inactive window after it has been deactivated and closed. * Line-selection requires a click in the line-select region, just moving the mouse there doesn't change the current selection. * A few other minor bug fixes --------- Co-authored-by: Nick Briggs <nicholas.h.briggs@gmail.com>
2026-05-21 21:08:02 +00:00 · 2026-05-21 14:06:09 -07:00 · 2026-05-20 18:51:55 -07:00 · 2026-05-20 18:45:02 -07:00 · 2026-05-20 18:14:47 -07:00 · 2026-05-20 14:37:01 -07:00
56 changed files with 1145 additions and 994 deletions
--- a/.gitignore
+++ b/.gitignore
@@ -49,6 +49,9 @@ internal/fonts/**
 # GITFNS deleted subdirectory
 deleted/**

+# local font construction
+internal/fonts/**
+
 #compiled code -- leave in for now

 # *.lcom
--- a/CLTL2/.skip
+++ b/CLTL2/.skip
--- a/docs/dinfo/.skip
+++ b/docs/dinfo/.skip
--- a/doctools/IMNAME.TEDIT
+++ b/doctools/IMNAME.TEDIT
--- a/internal/MEDLEY-UTILS
+++ b/internal/MEDLEY-UTILS
@@ -1,16 +1,15 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

-(FILECREATED "16-Apr-2026 22:42:51" {DSK}<home>matt>Interlisp>medley>internal>MEDLEY-UTILS.;2 30564  
+(FILECREATED " 8-May-2026 10:41:23" {DSK}<Users>larry>il>MEDLEY>INTERNAL>MEDLEY-UTILS.;2 30963  

-      :EDIT-BY "mth"
+      :EDIT-BY "lmm"

-      :CHANGES-TO (FNS HCFILES MAKE-EXPORTS-ALL MAKE-INDEX-HTMLS)
-                  (FUNCTIONS REPORT-AND-GO)
-                  (VARS MEDLEY-UTILSCOMS HC-SKIP-EXTENSIONS)
-                  (ADVICE TEDIT.PROMPTPRINT)
+      :CHANGES-TO (ADVICE TEDIT.PROMPTPRINT)
+                  (FNS GATHER-INFO MAKE-FULLER-DB MEDLEY-FIX-LINKS MEDLEY-FIX-DATES MAKE-EXPORTS-ALL
+                       MAKE-WHEREIS-HASH MAKE-WHEREIS-LOOPS HCFILES MAKE-INDEX-HTMLS RECOMPILE-ONE 
+                       RECMPL COMPILE-SETUP REMAKEFILES)

-      :PREVIOUS-DATE "16-Apr-2026 22:27:40" {DSK}<home>matt>Interlisp>medley>internal>MEDLEY-UTILS.;1
-)
+      :PREVIOUS-DATE " 4-May-2026 19:19:00" {DSK}<Users>larry>il>MEDLEY>INTERNAL>MEDLEY-UTILS.;1)


 (PRETTYCOMPRINT MEDLEY-UTILSCOMS)
@@ -215,7 +214,9 @@
 (DEFINEQ

 (HCFILES
-  [LAMBDA (BASE REDO SUBSETS)                                (* ; "Edited 16-Apr-2026 22:42 by mth")
+  [LAMBDA (BASE REDO SUBSETS)                                (* ; "Edited  8-May-2026 10:39 by lmm")
+                                                             (* ; "Edited  4-May-2026 19:18 by lmm")
+                                                             (* ; "Edited 16-Apr-2026 22:42 by mth")
                                                             (* ; "Edited 30-Jun-2024 08:27 by lmm")
                                                             (* ; "Edited 23-Apr-2024 23:15 by lmm")
                                                             (* ; "Edited 22-Apr-2024 13:22 by lmm")
@@ -293,12 +294,14 @@
                                 (if (EQ REDO 'TEST)
                                     then (CL:FORMAT T "Testing open ~a..." SRCPATH)
                                          (CLOSEF? (OPENTEXTSTREAM SRCPATH))
-                                   else (REPORT-AND-GO (CL:WITH-OPEN-STREAM (S (OPENTEXTSTREAM 
-                                                                                      SRCPATH))
-                                                              (TEDIT.FORMAT.HARDCOPY S DEST T NIL NIL
-                                                                     NIL 'PDF))
+                                   else 
+                                        (* ;; "ADDED HERE")
+
+                                        (SETQ NLSETQGAG NIL)
+                                        (SETQ \TEDIT.THELPFLG T)
+                                        (REPORT-AND-GO (TEDIT.TO.IMAGEFILE SRCPATH DEST 'PDF)
                                               (CL:FORMAT NIL 
-                                               "~~%%~S TEDIT.FORMAT.HARDCOPY of ~A -- Condition: ~~A"
+                                                  "~~%%~S TEDIT.TO.IMAGEFILE of ~A -- Condition: ~~A"
                                                      'FAIL SRCPATH)))
                                 (PRIN3 " DONE" T)
                                 (TERPRI T)
@@ -519,12 +522,14 @@
               (TERPRI])
 )

-(DEFMACRO REPORT-AND-GO (FORM REPORT-FORMAT)                 (* ; "Edited 16-Apr-2026 16:02 by mth")
+(DEFMACRO REPORT-AND-GO (FORM REPORT-FORMAT)                 (* ; "Edited  4-May-2026 19:02 by lmm")
+                                                             (* ; "Edited 16-Apr-2026 16:02 by mth")
   `[CL:MULTIPLE-VALUE-BIND (FORM-RESULT ERROR-CONDITION)
           (IGNORE-ERRORS (CL:VALUES ,FORM))                 (* ; "Only the first value")
           (COND
-              (ERROR-CONDITION (PRIN3 (CL:FORMAT NIL ,REPORT-FORMAT ERROR-CONDITION)
-                                      T)
+              (ERROR-CONDITION (BAKTRACE 'BAKTRACE NIL NIL 1 T)
+                     (PRIN3 (CL:FORMAT NIL ,REPORT-FORMAT ERROR-CONDITION)
+                            T)
                     NIL)
              (T (LIST FORM-RESULT])
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
@@ -536,10 +541,10 @@
 (ADDTOVAR LAMA )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1289 8223 (GATHER-INFO 1299 . 6681) (MAKE-FULLER-DB 6683 . 7592) (MEDLEY-FIX-LINKS 7594
- . 7987) (MEDLEY-FIX-DATES 7989 . 8221)) (9795 12371 (MAKE-EXPORTS-ALL 9805 . 10652) (
-MAKE-WHEREIS-HASH 10654 . 11843) (MAKE-WHEREIS-LOOPS 11845 . 12369)) (12372 24990 (HCFILES 12382 . 
-19514) (MAKE-INDEX-HTMLS 19516 . 24988)) (25324 29936 (RECOMPILE-ONE 25334 . 27231) (RECMPL 27233 . 
-27836) (COMPILE-SETUP 27838 . 28462) (REMAKEFILES 28464 . 29934)) (29938 30408 (REPORT-AND-GO 29938 . 
-30408)))))
+  (FILEMAP (NIL (1365 8299 (GATHER-INFO 1375 . 6757) (MAKE-FULLER-DB 6759 . 7668) (MEDLEY-FIX-LINKS 7670
+ . 8063) (MEDLEY-FIX-DATES 8065 . 8297)) (9871 12447 (MAKE-EXPORTS-ALL 9881 . 10728) (
+MAKE-WHEREIS-HASH 10730 . 11919) (MAKE-WHEREIS-LOOPS 11921 . 12445)) (12448 25236 (HCFILES 12458 . 
+19760) (MAKE-INDEX-HTMLS 19762 . 25234)) (25570 30182 (RECOMPILE-ONE 25580 . 27477) (RECMPL 27479 . 
+28082) (COMPILE-SETUP 28084 . 28708) (REMAKEFILES 28710 . 30180)) (30184 30807 (REPORT-AND-GO 30184 . 
+30807)))))
 STOP
--- a/internal/MEDLEY-UTILS.DFASL
+++ b/internal/MEDLEY-UTILS.DFASL
--- a/internal/TEDIT-DEBUG
+++ b/internal/TEDIT-DEBUG
@@ -1,12 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)

-(FILECREATED " 7-Feb-2026 17:00:39" {WMEDLEY}<internal>TEDIT-DEBUG.;178 138742 
+(FILECREATED "18-May-2026 10:46:12" {MEDLEY}<internal>TEDIT-DEBUG.;191 139564 

      :EDIT-BY rmk

      :CHANGES-TO (FNS TEDIT-DEBUG)

-      :PREVIOUS-DATE " 7-Feb-2026 10:41:45" {WMEDLEY}<internal>TEDIT-DEBUG.;177)
+      :PREVIOUS-DATE "29-Apr-2026 09:51:30" {MEDLEY}<internal>TEDIT-DEBUG.;190)


 (PRETTYCOMPRINT TEDIT-DEBUGCOMS)
@@ -31,7 +31,8 @@
              (FNS TEST.TEMPLATE))
        (FNS TESTACTION)
        (COMS                                                (* ; "Inspect")
-              (FNS IPC ILINES ISEL ITS IPANES ITL IHIST IPCTB IMB ICL IPL ICARET INSPECTPIECES))
+              (FNS IPC ILINES ISEL ITS IPANES ITL IHIST IPCTB IMB ICL IPL ICARET INSPECTPIECES 
+                   INSPECTFILEPIECES))
        (COMS                                                (* ; "Show")
              (FNS SP SL SSP SPF SLF SHOWLINE SLL STBYTES SSEL)
              (FNS STL CLEARTHISLINE CHARSLOTP \TLVALIDATE))
@@ -58,7 +59,7 @@
        (VARS (OK.TO.MODIFY.FNS T))
        (FNS OLDWI COMP DFR)
        (FNS DFGV GDIRECTORIES)
-        (COMS (FNS TTEST LTEST THC)
+        (COMS (FNS TTEST LTEST)
              (INITVARS (LASTTTESTFILE))
              (VARS * TTESTREGIONS))
        (COMS (FNS SHOWSAFE)
@@ -446,6 +447,16 @@
         (SETQ W (INSPECT/TOP/LEVEL/LIST PIECES))
         (WINDOWPROP W 'TITLE PIECE)
         PIECE])
+
+(INSPECTFILEPIECES
+  [LAMBDA (FILEPOS N TSTREAM)                                (* ; "Edited 29-Apr-2026 09:51 by rmk")
+                                                             (* ; "Edited 24-Apr-2026 17:07 by rmk")
+
+    (* ;; "Give a file position, inspect the piece that includes its characters, and following pieces. FILEBYTES/TFILEBYTES work in the other way:  given a piece, show the bytes that make it up.")
+
+    (for PC inpieces (\TEDIT.FIRSTPIECE (GTO TSTREAM)) when (<= FILEPOS (PFPOS PC))
+       do (for I from 1 to (OR N 1) as PCI inpieces PC do (INSPECT PCI))
+          (RETURN])
 )


@@ -653,7 +664,7 @@
                (PRINTOUT OFILE .FONT '(TERMINAL 8 BOLD)
                       TITLE .FONT '(TERMINAL 8)
                       T)
-                (for TYPE PF (FIRSTPF _ (TEDIT.GET.PAGEFORMAT PAGEREGIONS 'FIRST/DEFAULT))
+                (for TYPE PF (FIRSTPF ← (TEDIT.GET.PAGEFORMAT PAGEREGIONS 'FIRST/DEFAULT))
                   in '(FIRST/DEFAULT LEFT RIGHT)
                   collect (SETQ PF (TEDIT.GET.PAGEFORMAT PAGEREGIONS TYPE))
                         (PRINTOUT OFILE T .FONT '(TERMINAL 8 BOLD)
@@ -696,13 +707,13 @@
               (CL:UNLESS TRAILER
                   (PRINTOUT T FORMATSTREAM " is not a Tedit looks file" T)
                   (RETURN))
-               (for PCNO BYTELEN LTYPE LOOKSMAP PLOOKSMAP LASTCHARLOOKNO (PFPOS _ 0)
-                    (CHNO _ 0)
-                    (TEXTPCNO _ 0)
-                    (START _ (CAR TRAILER))
-                    (TYPETAB _ 13)
-                    (FPOSTAB _ 28)
-                    (BYTESTAB _ 38) from 1 to PCCOUNT
+               (for PCNO BYTELEN LTYPE LOOKSMAP PLOOKSMAP LASTCHARLOOKNO (PFPOS ← 0)
+                    (CHNO ← 0)
+                    (TEXTPCNO ← 0)
+                    (START ← (CAR TRAILER))
+                    (TYPETAB ← 13)
+                    (FPOSTAB ← 28)
+                    (BYTESTAB ← 38) from 1 to PCCOUNT
                  first (PRINTOUT OUTFILE "Starting FILEPTR = " START "   " "PCCOUNT = " PCCOUNT T)
                        (SETFILEPTR FORMATSTREAM START)
                  do (SETQ BYTELEN (\DWIN FORMATSTREAM))
@@ -846,7 +857,7 @@
                                        "l"
                                        "")
                         "dummy" T)
-           else (for CNO C LASTC (TSTREAM _ (TEXTSTREAM TEXTOBJ)) from (GETLD LINE LCHAR1)
+           else (for CNO C LASTC (TSTREAM ← (TEXTSTREAM TEXTOBJ)) from (GETLD LINE LCHAR1)
                   to (GETLD LINE LCHARLAST) first (SETFILEPTR TSTREAM (SUB1 (GETLD LINE LCHAR1)))
                                                   (PRINTOUT FILE " %"") until (EOFP TSTREAM)
                   do (SETQ C (BIN TSTREAM))                 (* ; 
@@ -936,7 +947,8 @@
 (DEFINEQ

 (STL
-  [LAMBDA (THISLINE LASTCS LCHAR1 OFILE)                     (* ; "Edited 11-Apr-2025 13:02 by rmk")
+  [LAMBDA (THISLINE LASTCS LCHAR1 OFILE)                     (* ; "Edited 19-Apr-2026 14:39 by rmk")
+                                                             (* ; "Edited 11-Apr-2025 13:02 by rmk")
                                                             (* ; "Edited 29-Mar-2025 22:36 by rmk")
                                                             (* ; "Edited 22-Aug-2024 23:51 by rmk")
                                                             (* ; "Edited  4-Aug-2024 12:08 by rmk")
@@ -962,15 +974,15 @@
                                               NIL
                                               'STL)
                        NIL 80)
-           (for CSLOT EXPANDSPACES CHNO TX LENGTH CHAR CHARW CHARCL (SPACEFACTOR _
+           (for CSLOT EXPANDSPACES CHNO TX LENGTH CHAR CHARW CHARCL (SPACEFACTOR ←
                                                                           (FETCH TLSPACEFACTOR
                                                                              OF THISLINE))
-                (FIRSTSPACESLOT _ (fetch TLFIRSTSPACE of THISLINE))
-                (LINE _ (fetch (THISLINE DESC) of THISLINE))
-                (NSPACES _ 0)
-                (NCHARS _ 0)
-                (SPACETOTAL _ 0)
-                (PSP _ (AND (BOUNDP 'PREVSP)
+                (FIRSTSPACESLOT ← (fetch TLFIRSTSPACE of THISLINE))
+                (LINE ← (fetch (THISLINE DESC) of THISLINE))
+                (NSPACES ← 0)
+                (NCHARS ← 0)
+                (SPACETOTAL ← 0)
+                (PSP ← (AND (BOUNDP 'PREVSP)
                            (NEQ PREVSP (GETATOMVAL 'PREVSP))
                            PREVSP)) incharslots THISLINE as NSLOTS from 0
              first (if (NULL LINE)
@@ -987,14 +999,13 @@
                    (CL:WHEN LCHAR1
                        (SETQ CHNO (OR LCHAR1 1)))
                    (SETQ LENGTH TX)
-                    (printout OFILE 29 "XLIM" T) eachtime (SETQ CHAR (CHAR CSLOT))
-                                                       (SETQ CHARW (CHARW CSLOT))
-                                                       (SETQ CHARCL (CHARCL CSLOT))
-                                                       (CL:UNLESS (CHARSLOTP CSLOT THISLINE)
-                                                              (HELP "THISLINE RUNS OFF THE EDGE" 
-                                                                    THISLINE))
-              repeatuntil [OR (EQ CSLOT (OR LASTCS (LASTCHARSLOT THISLINE]
-              do (printout OFILE .I4 NSLOTS)
+                    (printout OFILE 29 "XLIM" T)
+              do (SETQ CHAR (CHAR CSLOT))
+                 (SETQ CHARW (CHARW CSLOT))
+                 (SETQ CHARCL (CHARCL CSLOT))
+                 (CL:UNLESS (CHARSLOTP CSLOT THISLINE)
+                        (HELP "THISLINE RUNS OFF THE EDGE" THISLINE))
+                 (printout OFILE .I4 NSLOTS)
                 [if (IMAGEOBJP CHAR)
                     then (add NCHARS 1)
                          (printout OFILE " " .I5 CHNO ": ")
@@ -1033,12 +1044,12 @@
                                             (CHARACTER CHAR)))
                                 .FR 28 CHARW " " .I4 TX 35 CHARCL 64 CSLOT)
                          (ADD CHNO 1)
-                   elseif [AND [OR (CHARSLOTP CHAR THISLINE)
+                   elseif [AND [OR (CHARSLOTP CHAR THISLINE)
                                   (AND (NULL CHAR)
                                        (NOT (TYPE? CHARLOOKS CHARW]
                               (OR (EQ CSLOT PSP)
                                   (find CS incharslots (NEXTCHARSLOT CSLOT)
-                                      while (CHARSLOTP CS THISLINE) suchthat (EQ CSLOT CHAR]
+                                      while (CHARSLOTP CS THISLINE) suchthat (EQ CSLOT CHAR]
                     then                                    (* ; "Presumably a PREVSP")
                          (ADD NSPACES 1)
                          (printout OFILE " " .I5 CHNO ":")
@@ -1239,7 +1250,8 @@
 (DEFINEQ

 (FILEBYTES
-  [LAMBDA (FILE START NBYTES)                                (* ; "Edited 15-May-2024 10:44 by rmk")
+  [LAMBDA (FILE START NBYTES)                                (* ; "Edited 18-Apr-2026 09:37 by rmk")
+                                                             (* ; "Edited 15-May-2024 10:44 by rmk")
                                                             (* ; "Edited 23-Jan-2024 12:03 by rmk")
                                                             (* ; "Edited 20-Jan-2024 14:13 by rmk")

@@ -1255,25 +1267,31 @@
            (SETQ FILE (PCONTENTS FILE))))
    (CL:UNLESS START (SETQ START 0))
    (CL:UNLESS NBYTES (SETQ NBYTES 40))
-    (CL:WITH-OPEN-FILE (STREAM FILE :DIRECTION :INPUT)
-           (SETFILEPTR STREAM START)
-           (SETQ NBYTES (IMIN NBYTES (IDIFFERENCE (GETEOFPTR STREAM)
-                                            START)))
-           (FOR I B FROM START AS J FROM 1 TO NBYTES COLLECT (SETQ B (BIN STREAM)) 
+    (RESETLST
+        [if (STREAMP FILE)
+            then [RESETSAVE NIL `(PROGN (SETFILEPTR ,FILE ,(GETFILEPTR FILE]
+          else (RESETSAVE (SETQ FILE (OPENSTREAM FILE 'INPUT))
+                      '(PROGN (CLOSEF? OLDVALUE]
+        (SETFILEPTR FILE START)
+        (SETQ NBYTES (IMIN NBYTES (IDIFFERENCE (GETEOFPTR FILE)
+                                         START)))
+        (for I B from START as J from 1 TO NBYTES collect (SETQ B (BIN FILE)) 

                                          (* ;; "Do CHARACTER of the byte, since we don't know whether START respected FILE's external-format character alignment.")

-                                                           (LIST I B (CHARACTER B])
+                                                        (LIST I B (CHARACTER B))))])

 (TFILEBYTES
-  [LAMBDA (FILE START NBYTES)                                (* ; "Edited 14-Dec-2024 00:04 by rmk")
+  [LAMBDA (FILE START NBYTES FONT)                           (* ; "Edited 18-Apr-2026 09:36 by rmk")
+                                                             (* ; "Edited 11-Apr-2026 00:32 by rmk")
+                                                             (* ; "Edited 14-Dec-2024 00:04 by rmk")
                                                             (* ; "Edited 23-Nov-2024 15:41 by rmk")
                                                             (* ; "Edited 23-Sep-2024 11:40 by rmk")
-    (LET ((BYTES (FILEBYTES FILE START NBYTES)))
+    (LET [(BYTES (FILEBYTES FILE START (OR NBYTES 200]
         (TEVAL (for B in BYTES first (DSPFONT DEFAULTFONT T)
                   do (printout T .I6 (CAR B)
                             "  " .I3 (CADR B)
-                             "  " .FONT '(MODERN 8)
+                             "  " .FONT (OR FONT '(MODERN 10))
                             (SELCHARQ (CADR B)
                                  (EOL 'EOL)
                                  (LF 'LF)
@@ -1291,8 +1309,8 @@
  [LAMBDA (DY ARG)                                           (* ; "Edited  5-Nov-2024 15:29 by rmk")
    (RELMOVEW (GTW ARG)
           (create POSITION
-                  XCOORD _ 0
-                  YCOORD _ DY])
+                  XCOORD ← 0
+                  YCOORD ← DY])

 (TSCROLL
  [LAMBDA (DY ARG)                                           (* ; "Edited  5-Nov-2024 15:30 by rmk")
@@ -1304,7 +1322,7 @@

    (* ;; "Repeatedly scrolls up or down by DIST")

-    (bind (W _ (GTW ARG)) do (SELECTQ [ASKUSER NIL NIL NIL '((U NIL CONFIRMFLG NIL RETURN
+    (bind (W ← (GTW ARG)) do (SELECTQ [ASKUSER NIL NIL NIL '((U NIL CONFIRMFLG NIL RETURN
                                                                'UP)
                                                             (D NIL CONFIRMFLG NIL RETURN
                                                                'DOWN)
@@ -1363,7 +1381,7 @@
 (FIXPARALAST
  [LAMBDA (TSTREAM HELP)                                     (* ; "Edited 16-Mar-2024 10:06 by rmk")
                                                             (* ; "Edited 24-Oct-2022 21:59 by rmk")
-    (for (PC _ (\TEDIT.FIRSTPIECE (TEXTOBJ TSTREAM))) by (NEXTPIECE PC) while PC
+    (for (PC ← (\TEDIT.FIRSTPIECE (TEXTOBJ TSTREAM))) by (NEXTPIECE PC) while PC
       when (PPARALAST PC) unless (MEMB (NTHPIECECHAR PC -1)
                                        (CHARCODE (EOL CR LF)))
       do (replace (PIECE PPARALAST) of PC with NIL])
@@ -1371,7 +1389,9 @@
 (DEFINEQ

 (SPPRINT
-  [LAMBDA (P OSTREAM TEXTOBJ NOCR)                           (* ; "Edited 29-Jul-2025 11:42 by rmk")
+  [LAMBDA (P OSTREAM TEXTOBJ NOCR)                           (* ; "Edited  9-Apr-2026 00:07 by rmk")
+                                                             (* ; "Edited 15-Feb-2026 14:35 by rmk")
+                                                             (* ; "Edited 29-Jul-2025 11:42 by rmk")
                                                             (* ; "Edited 24-Apr-2025 16:04 by rmk")
                                                             (* ; "Edited 19-Feb-2025 12:21 by rmk")
                                                             (* ; "Edited  8-Feb-2025 22:41 by rmk")
@@ -1419,8 +1439,6 @@
             (PRINTOUT OSTREAM (SELECTC PTYPE
                                   (THINFILE.PTYPE 
                                        'Thinfile)
-                                   (FATFILE1.PTYPE 
-                                        "Fatfile1")
                                   (FATFILE2.PTYPE 
                                        'Fatfile2)
                                   (THINSTRING.PTYPE 
@@ -1462,7 +1480,7 @@
                                         CLINVISIBLE))
                           (PRIN1 "i " OSTREAM))
                    (PRIN1 "%"" OSTREAM)
-                    (for I C from 1 to PLEN
+                    (for I C from 0 to (SUB1 PLEN)
                       do (SETQ C (\TEDIT.PIECE.NTHCHARCODE P I))
                          (PRIN1 (SELCHARQ C
                                      ((EOL CR) 
@@ -1474,12 +1492,12 @@
                                      (Meta,EOL "[MLB]")
                                      (CHARACTER C))
                                 OSTREAM)
-                          (CL:WHEN (IEQP I PLEN)
+                          (CL:WHEN (IEQP I (SUB1 PLEN))
                              (PRIN1 '%" OSTREAM))
                          (CL:WHEN [AND (NOT NOCR)
                                        (MEMB C (CHARCODE (EOL CR LF FORM]
                              (TERPRI OSTREAM)
-                              (CL:UNLESS (IEQP I PLEN)
+                              (CL:UNLESS (IEQP I (SUB1 PLEN))
                                  (DSPFONT (PROG1 (DSPFONT FONT OSTREAM)

                                               (* ;; "Add1 for %"")
@@ -1624,10 +1642,10 @@

    (* ;; "Produces a chain of copies of the pieces in PIECES from I to J. The pieces are chained in both directions so a copy can be copied or shortened.")

-    (for PC NEWPC [LASTPC _ (NTHPIECE PIECES (IMIN (NPIECES PIECES)
+    (for PC NEWPC [LASTPC ← (NTHPIECE PIECES (IMIN (NPIECES PIECES)
                                                   (OR J (NPIECES PIECES]
       inpieces (NTHPIECE PIECES (IMAX 1 (OR I 1)))
-       do (SETQ NEWPC (create PIECE using PC PREVPIECE _ NEWPC)) repeatuntil (EQ PC LASTPC)
+       do (SETQ NEWPC (create PIECE using PC PREVPIECE ← NEWPC)) repeatuntil (EQ PC LASTPC)
       finally (RETURN (for NPC NEXTPC backpieces NEWPC do (SETPC NPC NEXTPIECE NEXTPC)
                                                           (SETQ NEXTPC NPC)
                          finally (RETURN NPC])
@@ -1679,12 +1697,12 @@
    (CL:UNLESS N (SETQ N 7))
    (CL:UNLESS SPREAD (SETQ SPREAD 4))
    (LET ((TEXTOBJ (GTO)))
-         [for I (POS _ (CL:IF (IGREATERP SPREAD 0)
+         [for I (POS ← (CL:IF (IGREATERP SPREAD 0)
                           0
                           90)) from 1 to 3 do (TEDIT.INSERT TEXTOBJ (CONCAT I)
                                                      (add POS 4)
                                                      '(FACE BOLD]
-         [for I (POS _ 90) from (IDIFFERENCE N 3) to N do (TEDIT.INSERT TEXTOBJ (CONCAT I)
+         [for I (POS ← 90) from (IDIFFERENCE N 3) to N do (TEDIT.INSERT TEXTOBJ (CONCAT I)
                                                                 (add POS -4)
                                                                 '(FACE BOLD]
         (SP TEXTOBJ)
@@ -1703,8 +1721,8 @@
        (SETQ THISLINE (fetch (TEXTOBJ THISLINE) of (GTO THISLINE))))
    (CL:UNLESS (FIXP N)
           (SETQ N MAX.SMALLP))
-    (for (CHARSLOT _ (FIRSTCHARSLOT THISLINE))
-         (LASTSLOT _ (LASTCHARSLOT THISLINE))
+    (for (CHARSLOT ← (FIRSTCHARSLOT THISLINE))
+         (LASTSLOT ← (LASTCHARSLOT THISLINE))
         CHAR CHARW by (NEXTCHARSLOT CHARSLOT) as I from 0 to (SUB1 N) repeatuntil (EQ CHARSLOT 
                                                                                       LASTSLOT)
       do (SETQ CHAR (CHAR CHARSLOT))
@@ -2099,7 +2117,7 @@
                                                             (* ; "Edited 11-Aug-2023 08:30 by rmk")
                                                             (* ; "Edited  8-Aug-2023 22:17 by rmk")

-    (* ;; "Makes a copy of FILE except that each each CR is followed by the fileptr of the next byte, and and ^z and \ are also marked with the file position of the nexxt character.  This helps in decoding Bravo files.")
+    (* ;; "Makes a copy of FILE except that each each CR is followed by the fileptr of the next byte, and and ↑z and \ are also marked with the file position of the nexxt character.  This helps in decoding Bravo files.")

    (CL:WITH-OPEN-FILE (INSTREAM FILE :DIRECTION :INPUT)
           (STREAMPROP INSTREAM 'ENDOFSTREAMOP (FUNCTION NILL))
@@ -2155,7 +2173,7 @@
                 else (PRINTOUT OUTSTREAM "[" (GETFILEPTR INSTREAM)
                             "]")))
         (TAB (PRINTOUT OUTSTREAM "[TAB]"))
-         (^Z (BOUT OUTSTREAM (CHARCODE ^Z))                  (* ; "Comes out black")
+         (↑Z (BOUT OUTSTREAM (CHARCODE ↑Z))                  (* ; "Comes out black")
             (if SPACELINES
                 then (PRINTOUT OUTSTREAM T .I6 (GETFILEPTR INSTREAM)
                             ": " -5)
@@ -2175,7 +2193,7 @@

 (OLDWI
  [LAMBDA (FN)                                               (* ; "Edited 16-May-2023 12:02 by rmk")
-    (for F COMS in TEDITFILES when (AND (SETQ F (DFOV.OLDEST F))
+    (for F COMS in TEDITFILES when (AND (SETQ F (DFOV.OLDEST F))
                                        (INFILECOMS? FN NIL (GETDEF (FILECOMS F)
                                                                   'VARS F))) collect F])

@@ -2327,21 +2345,7 @@
                                         LCHAR1)
                          (GTO)))
         (SP LPC)
-         (SPLINES])
-
-(THC
-  [LAMBDA (TSTREAM PRINTER TYPE)                             (* ; "Edited 10-Jul-2023 23:00 by rmk")
-    (CL:UNLESS TYPE (SETQ TYPE DEFAULTPRINTERTYPE))
-    (LET ((TFILE (TXTFILE (GTO TSTREAM)))
-          HCFILE)
-         (CL:UNLESS PRINTER
-             (SETQ HCFILE (OUTFILEP (PACKFILENAME 'EXTENSION TYPE 'VERSION NIL 'NAME
-                                           (PACK* (FILENAMEFIELD TFILE 'NAME)
-                                                  'W)
-                                           'BODY TFILE))))
-         (HARDCOPY.SOMEHOW (WFROMDS (TEXTSTREAM (GTO TSTREAM)))
-                HCFILE TYPE)
-         HCFILE])
+         (SPLINES])
 )

 (RPAQ? LASTTTESTFILE )
@@ -2483,7 +2487,9 @@
 (DEFINEQ

 (TEDIT-DEBUG
-  [LAMBDA (DONTOVERLOAD)                                     (* ; "Edited  7-Feb-2026 17:00 by rmk")
+  [LAMBDA (DONTOVERLOAD)                                     (* ; "Edited 18-May-2026 10:46 by rmk")
+                                                             (* ; "Edited 24-Feb-2026 00:35 by rmk")
+                                                             (* ; "Edited  7-Feb-2026 17:00 by rmk")
                                                             (* ; "Edited  9-Aug-2024 13:20 by rmk")
                                                             (* ; "Edited 16-Jul-2024 12:37 by rmk")
                                                             (* ; "Edited  6-Jul-2024 21:16 by rmk")
@@ -2497,7 +2503,7 @@
                                                             (* ; "Edited  3-Dec-2023 21:00 by rmk")
                                                             (* ; "Edited 29-Nov-2023 10:49 by rmk")
                                                             (* ; "Edited 24-Nov-2023 12:53 by rmk")
-    (DRIBBLE "TEDIT-DEBUG.DRIBBLE")
+    (DRIBBLE (PSEUDOFILENAME "{LI}TEDIT-DEBUG.DRIBBLE"))
    (CL:WHEN (DIRECTORYNAMEP (MEDLEYDIR "../oldtedit/"))
        (PSEUDOHOST 'OT (MEDLEYDIR "../oldtedit/")))
    (FILESLOAD (NOERROR FROM LOADUPS)
@@ -2585,33 +2591,33 @@
 (ADDTOVAR LAMA )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (5124 7683 (GTO 5134 . 5384) (GTS 5386 . 7157) (GTW 7159 . 7315) (GSEL 7317 . 7681)) (
-7716 8837 (TEST.TEMPLATE 7726 . 8835)) (8838 9773 (TESTACTION 8848 . 9771)) (9798 23613 (IPC 9808 . 
-11312) (ILINES 11314 . 13855) (ISEL 13857 . 14468) (ITS 14470 . 16194) (IPANES 16196 . 16431) (ITL 
-16433 . 16852) (IHIST 16854 . 19516) (IPCTB 19518 . 19944) (IMB 19946 . 20705) (ICL 20707 . 21408) (
-IPL 21410 . 21950) (ICARET 21952 . 22479) (INSPECTPIECES 22481 . 23611)) (23635 52650 (SP 23645 . 
-28760) (SL 28762 . 32764) (SSP 32766 . 34468) (SPF 34470 . 37000) (SLF 37002 . 46135) (SHOWLINE 46137
- . 49808) (SLL 49810 . 50557) (STBYTES 50559 . 52285) (SSEL 52287 . 52648)) (52651 65164 (STL 52661 . 
-61662) (CLEARTHISLINE 61664 . 62144) (CHARSLOTP 62146 . 63465) (\TLVALIDATE 63467 . 65162)) (65165 
-70538 (NTHPIECE 65175 . 66307) (NPIECES 66309 . 67174) (NTHPIECECHAR 67176 . 68484) (SELPIECE 68486 . 
-68928) (PIECENUM 68930 . 69649) (PCBYTES 69651 . 70536)) (70539 73013 (FILEBYTES 70549 . 71973) (
-TFILEBYTES 71975 . 73011)) (73014 74336 (TRELMOVE 73024 . 73267) (TSCROLL 73269 . 73435) (TSCROLL* 
-73437 . 74334)) (74337 77386 (TRY 74347 . 75616) (TEDITCLOSEW 75618 . 75961) (PARALASTWITHOUTEOL 75963
- . 76848) (FIXPARALAST 76850 . 77384)) (77387 92274 (SPPRINT 77397 . 84222) (SPPRINT.CHAR 84224 . 
-85208) (SPPRINT.OBJ 85210 . 88268) (SHOWPIECEBYTES 88270 . 89826) (CHECKPLENGTHS 89828 . 90285) (SBT 
-90287 . 91424) (COPYPCHAIN 91426 . 92272)) (92275 94336 (POSLINE 92285 . 94334)) (94337 95220 (
-PRESPLIT 94347 . 95218)) (95221 96934 (ALLTL 95231 . 96484) (NTHCHARSLOT 96486 . 96932)) (96960 107173
- (PLCHAIN 96970 . 97498) (PRINTLINE 97500 . 100490) (SL.GETLINES 100492 . 103785) (CHECKLINES 103787
- . 104767) (COLLECTLINES 104769 . 105021) (NTHLINE 105023 . 106028) (HEIGHT 106030 . 106318) (LINEBOTS
- 106320 . 107171)) (107174 109622 (IPC.DECODEARGS 107184 . 109620)) (109623 110216 (SPF1 109633 . 
-110214)) (110245 112623 (SLF.FATPLEN 110255 . 111114) (FILEPIECE 111116 . 112621)) (112656 113424 (
-SELTEDIT 112666 . 113422)) (113494 119106 (PPARA 113504 . 113926) (PRUN 113928 . 115404) (
-ADDLINEPOSITIONS 115406 . 116833) (SBR 116835 . 117489) (SBC 117491 . 119104)) (119163 120939 (OLDWI 
-119173 . 119548) (COMP 119550 . 119745) (DFR 119747 . 120937)) (120940 121973 (DFGV 120950 . 121476) (
-GDIRECTORIES 121478 . 121971)) (121974 128539 (TTEST 121984 . 126516) (LTEST 126518 . 127883) (THC 
-127885 . 128537)) (128853 129545 (SHOWSAFE 128863 . 129543)) (129598 130045 (MYH 129608 . 130043)) (
-130290 131385 (DFVENUE 130300 . 131179) (VSEE 131181 . 131383)) (131386 131840 (PTT 131396 . 131838)) 
-(132199 133780 (DEBUGOUTPUT.STREAM 132209 . 133778)) (133781 136256 (TEDIT-DEBUG 133791 . 136254)) (
-136257 136749 (HEXTOHILO 136267 . 136607) (CW 136609 . 136747)) (136750 138486 (TRENAME 136760 . 
-138484)))))
+  (FILEMAP (NIL (5171 7730 (GTO 5181 . 5431) (GTS 5433 . 7204) (GTW 7206 . 7362) (GSEL 7364 . 7728)) (
+7763 8884 (TEST.TEMPLATE 7773 . 8882)) (8885 9820 (TESTACTION 8895 . 9818)) (9845 24326 (IPC 9855 . 
+11359) (ILINES 11361 . 13902) (ISEL 13904 . 14515) (ITS 14517 . 16241) (IPANES 16243 . 16478) (ITL 
+16480 . 16899) (IHIST 16901 . 19563) (IPCTB 19565 . 19991) (IMB 19993 . 20752) (ICL 20754 . 21455) (
+IPL 21457 . 21997) (ICARET 21999 . 22526) (INSPECTPIECES 22528 . 23658) (INSPECTFILEPIECES 23660 . 
+24324)) (24348 53381 (SP 24358 . 29473) (SL 29475 . 33477) (SSP 33479 . 35181) (SPF 35183 . 37715) (
+SLF 37717 . 46864) (SHOWLINE 46866 . 50539) (SLL 50541 . 51288) (STBYTES 51290 . 53016) (SSEL 53018 . 
+53379)) (53382 65734 (STL 53392 . 62232) (CLEARTHISLINE 62234 . 62714) (CHARSLOTP 62716 . 64035) (
+\TLVALIDATE 64037 . 65732)) (65735 71108 (NTHPIECE 65745 . 66877) (NPIECES 66879 . 67744) (
+NTHPIECECHAR 67746 . 69054) (SELPIECE 69056 . 69498) (PIECENUM 69500 . 70219) (PCBYTES 70221 . 71106))
+ (71109 74097 (FILEBYTES 71119 . 72822) (TFILEBYTES 72824 . 74095)) (74098 75426 (TRELMOVE 74108 . 
+74355) (TSCROLL 74357 . 74523) (TSCROLL* 74525 . 75424)) (75427 78478 (TRY 75437 . 76706) (TEDITCLOSEW
+ 76708 . 77051) (PARALASTWITHOUTEOL 77053 . 77938) (FIXPARALAST 77940 . 78476)) (78479 93505 (SPPRINT 
+78489 . 85449) (SPPRINT.CHAR 85451 . 86435) (SPPRINT.OBJ 86437 . 89495) (SHOWPIECEBYTES 89497 . 91053)
+ (CHECKPLENGTHS 91055 . 91512) (SBT 91514 . 92651) (COPYPCHAIN 92653 . 93503)) (93506 95567 (POSLINE 
+93516 . 95565)) (95568 96455 (PRESPLIT 95578 . 96453)) (96456 98173 (ALLTL 96466 . 97723) (NTHCHARSLOT
+ 97725 . 98171)) (98199 108412 (PLCHAIN 98209 . 98737) (PRINTLINE 98739 . 101729) (SL.GETLINES 101731
+ . 105024) (CHECKLINES 105026 . 106006) (COLLECTLINES 106008 . 106260) (NTHLINE 106262 . 107267) (
+HEIGHT 107269 . 107557) (LINEBOTS 107559 . 108410)) (108413 110861 (IPC.DECODEARGS 108423 . 110859)) (
+110862 111455 (SPF1 110872 . 111453)) (111484 113862 (SLF.FATPLEN 111494 . 112353) (FILEPIECE 112355
+ . 113860)) (113895 114663 (SELTEDIT 113905 . 114661)) (114733 120351 (PPARA 114743 . 115165) (PRUN 
+115167 . 116643) (ADDLINEPOSITIONS 116645 . 118074) (SBR 118076 . 118730) (SBC 118732 . 120349)) (
+120408 122180 (OLDWI 120418 . 120789) (COMP 120791 . 120986) (DFR 120988 . 122178)) (122181 123214 (
+DFGV 122191 . 122717) (GDIRECTORIES 122719 . 123212)) (123215 129122 (TTEST 123225 . 127757) (LTEST 
+127759 . 129120)) (129436 130128 (SHOWSAFE 129446 . 130126)) (130181 130628 (MYH 130191 . 130626)) (
+130873 131968 (DFVENUE 130883 . 131762) (VSEE 131764 . 131966)) (131969 132423 (PTT 131979 . 132421)) 
+(132782 134363 (DEBUGOUTPUT.STREAM 132792 . 134361)) (134364 137078 (TEDIT-DEBUG 134374 . 137076)) (
+137079 137571 (HEXTOHILO 137089 . 137429) (CW 137431 . 137569)) (137572 139308 (TRENAME 137582 . 
+139306)))))
 STOP
--- a/internal/TEDIT-DEBUG.LCOM
+++ b/internal/TEDIT-DEBUG.LCOM
--- a/internal/loadups/LOADUP-LISP
+++ b/internal/loadups/LOADUP-LISP
@@ -1,12 +1,14 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "XCL" :BASE 10)

-(FILECREATED "16-Apr-2026 09:06:26" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;32| 7864   
+(FILECREATED "18-May-2026 17:55:46" 
+|{DSK}<Users>briggs>projects>medley>internal>loadups>LOADUP-LISP.;20| 8046   

-      :EDIT-BY |rmk|
+      :EDIT-BY |nhb|

      :CHANGES-TO (FNS LOADUP-LISP)

-      :PREVIOUS-DATE "15-Apr-2026 23:27:22" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;31|)
+      :PREVIOUS-DATE "16-Apr-2026 09:06:26" 
+|{DSK}<Users>briggs>projects>medley>internal>loadups>LOADUP-LISP.;19|)


 (PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -19,7 +21,8 @@
 (DEFINEQ

 (LOADUP-LISP
-  (LAMBDA (DRIBBLEFILE)                                     (* \; "Edited 16-Apr-2026 09:06 by rmk")
+  (LAMBDA (DRIBBLEFILE)                                     (* \; "Edited 18-May-2026 17:55 by nhb")
+                                                            (* \; "Edited 16-Apr-2026 09:06 by rmk")
                                                            (* \; "Edited  5-Apr-2026 21:35 by rmk")
                                                         (* \; "Edited 26-Mar-2026 18:38 by briggs")
                                                            (* \; "Edited 22-Feb-2026 14:15 by rmk")
@@ -138,6 +141,7 @@

    (LOADUP '(PUP 10MBDRIVER LEAF LLETHER DPUPFTP LOCALFILE DSKDISPLAY COURIER LLNS TRSERVER SPP 
                  NSPRINT AUTHENTICATION BSP CLEARINGHOUSE NSFILING MAIKOETHER))
+    (SETQ \\NSFLG T)
    (RESTART.ETHER)
    (DRIBBLE)
    (SETQ MAKESYSNAME :MEDLEY)))
@@ -151,5 +155,5 @@
 (GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (640 7658 (LOADUP-LISP 650 . 7656)))))
+  (FILEMAP (NIL (692 7840 (LOADUP-LISP 702 . 7838)))))
 STOP
--- a/internal/loadups/LOADUP-LISP.LCOM
+++ b/internal/loadups/LOADUP-LISP.LCOM
--- a/library/DATABASEFNS
+++ b/library/DATABASEFNS
@@ -1,19 +1,15 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

-(FILECREATED " 2-May-2026 17:38:46" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;4 18684  
+(FILECREATED "12-May-2026 15:33:42" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;5 19557  

      :EDIT-BY "mth"

      :CHANGES-TO (FNS DUMPDB)

-      :PREVIOUS-DATE "29-Apr-2026 17:43:56" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;2
+      :PREVIOUS-DATE "12-May-2026 12:45:18" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;4
 )


-(* ; "
-Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
-")
-
 (PRETTYCOMPRINT DATABASEFNSCOMS)

 (RPAQQ DATABASEFNSCOMS
@@ -62,7 +58,8 @@ Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
 (DEFINEQ

 (DBFILE
-  [LAMBDA (FILE ASKFLAG)                                (* ; "Edited 24-Oct-2021 16:50 by rmk:")
+  [LAMBDA (FILE ASKFLAG)                                     (* ; "Edited 11-May-2026 14:35 by mth")
+                                                            (* ; "Edited 24-Oct-2021 16:50 by rmk:")
                                                             (* lmm "29-APR-81 20:27")

    (* ;; "Finds a database file that corresponds to the contents of FILE.  Looks in directory of FILE, and also in the directory that file originally came from, if it was copied.  Returns NIL if no database file is found, else (fulldbfilename  . filedates), where filedates identifies the name under which the file that the database corresponds to is currently known.")
@@ -73,13 +70,13 @@ Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
    [COND
       ((NULL FILE)
        (SETQ FILE (INPUT)))
-       ((MEMB (FILENAMEFIELD FILE 'EXTENSION)
+       ((MEMB (U-CASE (FILENAMEFIELD FILE 'EXTENSION))
              *COMPILED-EXTENSIONS*)                         (* ; 
-                                                           "Map compiled file into symbolic name")
+                                                             "Map compiled file into symbolic name")
        (SETQ FILE (PACKFILENAME 'EXTENSION NIL 'VERSION NIL 'BODY FILE]
    (LET [(FILEDATES (COND
                        [(AND (NULL (FILENAMEFIELD FILE 'VERSION))
-                              (CAR (GETPROP (NAMEFIELD FILE)
+                              (CAR (GETPROP (ROOTFILENAME FILE)
                                          'FILEDATES]
                        ([SETQ FILE (COND
                                       (ASKFLAG (INFILEP FILE))
@@ -165,14 +162,22 @@ Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
 (DEFINEQ

 (DUMPDB
-  [LAMBDA (FILE PROPFLG)                                     (* ; "Edited  2-May-2026 17:32 by mth")
+  [LAMBDA (FILE PROPFLG)                                     (* ; "Edited 12-May-2026 15:31 by mth")
+                                                             (* ; "Edited 12-May-2026 12:45 by rmk")
+                                                             (* ; "Edited 11-May-2026 14:41 by mth")
+                                                             (* ; "Edited  8-May-2026 16:18 by mth")
+                                                             (* ; "Edited  2-May-2026 17:32 by mth")
                                                             (* ; "Edited 29-Apr-2026 17:42 by mth")
                                                             (* ; "Edited 20-Feb-2024 23:45 by mth")
                                                             (* ; "Edited  7-Feb-2024 18:26 by mth")
                                                           (* ; "Edited 27-Oct-2021 10:51 by larry")
                                                            (* ; "Edited 24-Oct-2021 16:24 by rmk:")

-    (* ;; "Dumps a Masterscope database for functions in FILE.  Checks the DATABASE property if PROPFLG=T which is how the MAKEFILE advice calls it.  A user-level call would default PROPFLG to NIL.")
+    (* ;; "Dumps a Masterscope database for functions in FILE.  ")
+
+    (* ;; "Checks the DATABASE property if PROPFLG=T which is how the MAKEFILE advice calls it.  ")
+
+    (* ;; "A user-level call would default PROPFLG to NIL.")

    (* ;; "The FILE check is because MAKEFILE returns a list when it doesn't understand the options")

@@ -183,72 +188,73 @@ Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
        (LET ((SAVEDCOPYRIGHTFLG COPYRIGHTFLG)
              (SAVEDDEFAULTCOPYRIGHTOWNER DEFAULTCOPYRIGHTOWNER))
             (CL:UNWIND-PROTECT
-                 (PROG (DBFILE DBFN DBROOTFN FLCPR (FL (ROOTFILENAME FILE))
-                              (FNS (FILEFNSLST FILE)))
-                       (SETQ DBFN (PACKFILENAME 'EXTENSION 'DATABASE 'VERSION NIL 'BODY FILE))
-                       (SETQ DBROOTFN (ROOTFILENAME DBFN))
-                       (CL:UNLESS (OR (EQ COPYRIGHTFLG 'NEVER)
-                                      (NULL DEFAULTDATABASECOPYRIGHTOWNER)
-                                      (GETPROP DBROOTFN 'COPYRIGHT))
-                           (SELECTQ DEFAULTDATABASECOPYRIGHTOWNER
-                               ((NONE NEVER) 
-                                             (* ;; 
+                 (PROG* (DBFILE DBFN DBROOTFN FLCPR (FL (ROOTFILENAME FILE))
+                               (FNS (FILEFNSLST FL)))
+                        (SETQ DBFN (PACKFILENAME 'EXTENSION 'DATABASE 'VERSION NIL 'BODY FILE))
+                        (SETQ DBROOTFN (ROOTFILENAME DBFN))
+                        (CL:UNLESS (OR (EQ COPYRIGHTFLG 'NEVER)
+                                       (NULL DEFAULTDATABASECOPYRIGHTOWNER)
+                                       (GETPROP DBROOTFN 'COPYRIGHT))
+                            (SELECTQ DEFAULTDATABASECOPYRIGHTOWNER
+                                ((NONE NEVER) 
+                                              (* ;; 
                                          "Set the COPYRIGHT to NONE (I.e., never mention it again.)")

-                                    (/PUT DBROOTFN 'COPYRIGHT (LIST 'NONE)))
-                               (SAME 
-                                     (* ;; 
+                                     (/PUT DBROOTFN 'COPYRIGHT (LIST 'NONE)))
+                                (SAME 
+                                      (* ;; 
                         "Same as the source file. If it doesn't have one, then just normal handling")

-                                     (CL:WHEN (SETQ FLCPR (GETPROP FL 'COPYRIGHT))
-                                         (/PUT DBROOTFN 'COPYRIGHT (LIST (CAR FLCPR)))))
-                               (DEFAULT 
-                                        (* ;; "Use the general default for copyright")
+                                      (CL:WHEN (SETQ FLCPR (GETPROP FL 'COPYRIGHT))
+                                          (/PUT DBROOTFN 'COPYRIGHT (LIST (CAR FLCPR)))))
+                                (DEFAULT 
+                                         (* ;; "Use the general default for copyright")

-                                        (SETQ COPYRIGHTFLG 'DEFAULT))
-                               (PROGN (SETQ COPYRIGHTFLG 'DEFAULT)
+                                         (SETQ COPYRIGHTFLG 'DEFAULT))
+                                (PROGN (SETQ COPYRIGHTFLG 'DEFAULT)

-                                      (* ;; 
+                                       (* ;; 
                        "Hopefully, DEFAULTDATABASECOPYRIGHTOWNER is one of the COPYRIGHTOWNERS keys")

-                                      (SETQ DEFAULTCOPYRIGHTOWNER DEFAULTDATABASECOPYRIGHTOWNER))))
-                       (COND
-                          (FNS)
-                          ((AND MSFILETABLE (TESTTABLE FL (CADR MSFILETABLE)))
+                                       (SETQ DEFAULTCOPYRIGHTOWNER DEFAULTDATABASECOPYRIGHTOWNER))))
+                        (COND
+                           (FNS)
+                           ((AND MSFILETABLE (TESTTABLE FL (CADR MSFILETABLE)))
                                                             (* ; 
                                                             "Always dump if this is a known file")
-                           (SETQ PROPFLG NIL))
-                          (T (COND
-                                (PROPFLG (/REMPROP FL 'DATABASE))
-                                (T (printout T T FILE " has no functions." T)))
-                             (RETURN)))
-                       (CL:WHEN [OR (NULL PROPFLG)
-                                    (EQ (GETPROP FL 'DATABASE)
-                                        'YES)
-                                    (EQ SAVEDBFLG 'YES)
-                                    (AND MSFILETABLE (TESTTABLE FL (CADR MSFILETABLE]
-                           (CL:WHEN MSFILETABLE
-                               [STORETABLE FL MSFILETABLE (CAR (GETPROP FL 'FILEDATES])
-                           [SETQ DBFILE
-                            (PRETTYDEF NIL DBFN
-                                   `((P (PROGN (PRIN1 "Use LOADDB to load database files!" T)
-                                               (ERROR!)))
-                                     (E [PRINT (CAR (GETPROP ',FL 'FILEDATES]
-                                        (DUMPDATABASE ',FNS]
-                           [COND
-                              (PROPFLG (PRINT (FULLNAME DBFILE)
-                                              T))
-                              (T (/PUT FL 'DATABASEFILENAME DBFILE)
+                            (SETQ PROPFLG NIL))
+                           (T (COND
+                                 (PROPFLG (/REMPROP FL 'DATABASE))
+                                 (T (printout T T FILE " has no functions." T)))
+                              (RETURN)))
+                        (CL:WHEN [OR (NULL PROPFLG)
+                                     (EQ (GETPROP FL 'DATABASE)
+                                         'YES)
+                                     (EQ SAVEDBFLG 'YES)
+                                     (AND MSFILETABLE (TESTTABLE FL (CADR MSFILETABLE]
+                            (CL:WHEN MSFILETABLE
+                                [STORETABLE FL MSFILETABLE (CAR (GETPROP FL 'FILEDATES])
+                            [SETQ DBFILE
+                             (PRETTYDEF NIL DBFN
+                                    `((P (PROGN (PRIN1 "Use LOADDB to load database files!" T)
+                                                (ERROR!)))
+                                      (E [PRINT (CAR (GETPROP ',FL 'FILEDATES]
+                                         (DUMPDATABASE ',FNS]
+                            [COND
+                               (PROPFLG (PRINT (FULLNAME DBFILE)
+                                               T))
+                               (T (/PUT FL 'DATABASEFILENAME DBFILE)
                                                             (* ; 
                                                     "Remember that we have this file valid already.")
-                                 (/PUT FL 'DATABASE 'YES]    (* ; 
+                                  (/PUT FL 'DATABASE 'YES]   (* ; 
                                                    "Take future note of the database on a user call")
-                           (RETURN DBFILE))))
+                            (RETURN DBFILE))))
             (SETQ COPYRIGHTFLG SAVEDCOPYRIGHTFLG)
             (SETQ DEFAULTCOPYRIGHTOWNER SAVEDDEFAULTCOPYRIGHTOWNER)))])

 (LOADDB
-  [LAMBDA (FILE ASKFLAG)                                (* ; "Edited 24-Oct-2021 17:44 by rmk:")
+  [LAMBDA (FILE ASKFLAG)                                     (* ; "Edited 11-May-2026 14:37 by mth")
+                                                            (* ; "Edited 24-Oct-2021 17:44 by rmk:")
                                                             (* ; "Edited  7-Jul-92 09:57 by rmk:")

    (* ;; "Loads the database file corresponding to FILE, asking for confirmation only if ASKFLAG is T, which is the case from the advice on LOAD but not from usual user-level calls.  Before asking, it looks around first to see whether a database file of the appropriate name really exists.")
@@ -257,7 +263,7 @@ Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
    (RESETLST
        [PROG* [TEM FORFILE (*READTABLE* (FIND-READTABLE "INTERLISP"))
                    (*PACKAGE* (CL:FIND-PACKAGE "INTERLISP"))
-                    (NF (NAMEFIELD FILE))
+                    (NF (ROOTFILENAME FILE))
                    (DBSTREAM (DBFILE FILE ASKFLAG))
                    (DBFILE (FULLNAME (CAR DBSTREAM]
               (COND
@@ -265,14 +271,15 @@ Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
                         (SETQ DBSTREAM (CAR DBSTREAM)))
                  (T (COND
                        ((NULL ASKFLAG)
-                         (PRINTOUT T "no database file found for " NF T)))
+                         (PRINTOUT T "no database file found for " (NAMEFIELD FILE)
+                                T)))
                     (RETURN)))
               (COND
                  ([COND
                      [ASKFLAG (COND
                                  ((EQ (GETPROP NF 'DATABASEFILENAME)
                                       DBFILE)               (* ; 
-         "If the database for this very file has already been loaded, don't bother doing it again.")
+           "If the database for this very file has already been loaded, don't bother doing it again.")
                                   (PRINTOUT T "Database " DBFILE " already loaded." T)
                                   NIL)
                                  (T (SELECTQ (GETPROP NF 'DATABASE)
@@ -313,28 +320,30 @@ Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
                           (READATABASE)))
                       (AND MSFILETABLE (STORETABLE NF MSFILETABLE FORFILE))
                                                             (* ; 
-                                                 "This is done whether or not there is a hashfile.")
+                                                   "This is done whether or not there is a hashfile.")
                       (UPDATEFILES)                         (* ; 
-                                                 "Mark any edited fns as needing to be reanalyzed.")
-                       (FOR FN IN (CDR (GETP NF 'FILE))
-                          WHEN (OR (EXPRP FN)
-                                       (GETP FN 'EXPR)) DO (MSMARKCHANGED FN)))
+                                                   "Mark any edited fns as needing to be reanalyzed.")
+                       (FOR FN IN (CDR (GETP NF 'FILE)) WHEN (OR (EXPRP FN)
+                                                                 (GETP FN 'EXPR))
+                          DO (MSMARKCHANGED FN)))
                      (T (PRINTOUT T T DBFILE " is not a database file!" T)
                                                             (* ; "So that value of LOADDB is NIL")
                         (SETQ DBFILE NIL)))
                   (/PUT NF 'DATABASEFILENAME DBFILE)        (* ; 
-                                                "Remember the name of the database we just loaded.")
+                                                  "Remember the name of the database we just loaded.")
                   (RETURN (FULLNAME DBFILE])])

 (MAKEDB
  [LAMBDA (F)                                                (* DECLARATIONS%: UNDOABLE)
+                                                             (* ; "Edited 12-May-2026 12:37 by rmk")
+                                                             (* ; "Edited 11-May-2026 14:38 by mth")
                                                             (* rmk%: " 9-NOV-83 02:56")
    (DECLARE (GLOBALVARS SAVEDBFLG MSFILETABLE DWIMWAIT))
-    (SETQ F (NAMEFIELD F))
-          
-          (* The extension is stripped off for purposes of the DATABASE.
-          This maps compiled files into the root name, but means that we can't have 
-          multiple-extension files with different database status)
+    (SETQ F (ROOTFILENAME F))
+
+         (* The extension is stripped off for purposes of the DATABASE.
+         This maps compiled files into the root name, but means that we can't have 
+         multiple-extension files with different database status)

    (COND
       ((INFILECOMS? T 'FNS (FILECOMS F))
@@ -378,9 +387,8 @@ Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.

 (RESETSAVE DWIMIFYCOMPFLG T)
 )
-(PUTPROPS DATABASEFNS COPYRIGHT ("Xerox Corporation" 1986 1990 1991 1992 1993 2024 2026))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1783 6808 (DBFILE 1793 . 3438) (DBFILE1 3440 . 4950) (DBFILE2 4952 . 6174) (LOAD 6176
- . 6406) (LOADFROM 6408 . 6596) (MAKEFILE 6598 . 6806)) (6864 18072 (DUMPDB 6874 . 12107) (LOADDB 
-12109 . 16984) (MAKEDB 16986 . 18070)))))
+  (FILEMAP (NIL (1708 6856 (DBFILE 1718 . 3486) (DBFILE1 3488 . 4998) (DBFILE2 5000 . 6222) (LOAD 6224
+ . 6454) (LOADFROM 6456 . 6644) (MAKEFILE 6646 . 6854)) (6912 19035 (DUMPDB 6922 . 12674) (LOADDB 
+12676 . 17747) (MAKEDB 17749 . 19033)))))
 STOP
--- a/library/DATABASEFNS.LCOM
+++ b/library/DATABASEFNS.LCOM
--- a/library/UNIXUTILS
+++ b/library/UNIXUTILS
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

-(FILECREATED "28-Apr-2026 09:59:13" {WMEDLEY}<library>UNIXUTILS.;61 22079  
+(FILECREATED "13-May-2026 12:28:06" {MEDLEY}<library>UNIXUTILS.;62 22210  

      :EDIT-BY rmk

-      :CHANGES-TO (VARS UNIXUTILSCOMS)
+      :CHANGES-TO (FNS UNIX-FILE-NAME)

-      :PREVIOUS-DATE "27-Apr-2026 11:10:07" {MEDLEY}<library>UNIXUTILS.;60)
+      :PREVIOUS-DATE "28-Apr-2026 09:59:13" {MEDLEY}<library>UNIXUTILS.;61)


 (PRETTYCOMPRINT UNIXUTILSCOMS)
@@ -294,7 +294,8 @@
         SLASHED])

 (UNIX-FILE-NAME
-  [LAMBDA (FILE ACCESS COPY EXTENSION)                       (* ; "Edited 31-Mar-2026 00:13 by rmk")
+  [LAMBDA (FILE ACCESS COPY EXTENSION)                       (* ; "Edited 13-May-2026 12:25 by rmk")
+                                                             (* ; "Edited 31-Mar-2026 00:13 by rmk")
                                                             (* ; "Edited 29-Mar-2026 00:26 by rmk")
                                                             (* ; "Edited 19-Jan-2026 14:05 by rmk")
                                                             (* ; "Edited 17-Jan-2026 22:32 by rmk")
@@ -319,7 +320,7 @@
                                              (NIL (SETQ ACCESS 'INPUT)
                                                   'OLD)
                                              (\ILLEGAL.ARG ACCESS])
-        [SLASHIT (SELECTQ (FILENAMEFIELD FILE 'HOST)
+        (SLASHIT (SELECTQ (FILENAMEFIELD FILE 'HOST)
                     (UNIX (CL:IF [AND EXTENSION (NEQ (L-CASE EXTENSION)
                                                      (L-CASE (FILENAMEFIELD FILE 'EXTENSION]
                               (COPYFILE FILE (PACKFILENAME 'EXTENSION EXTENSION 'BODY FILE))
@@ -345,7 +346,8 @@
                                      [RESETSAVE (GETFILEPTR FILE)
                                             `(PROGN (SETFILEPTR ,FILE OLDVALUE])
                                  (COPYFILE FILE UNAME))
-                              UNAME)])])
+                              UNAME)))
+               NIL T))])

 (UNIX-TMP-FILE-NAME
  [LAMBDA (NAME EXT HOST)                                    (* ; "Edited 17-Jan-2026 22:28 by rmk")
@@ -384,8 +386,8 @@

 (PUTPROPS UNIXUTILS FILETYPE CL:COMPILE-FILE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1208 1581 (ShellCommand 1208 . 1581)) (1583 1980 (ShellWhich 1583 . 1980)) (2090 21695 
-(ShellBrowser 2100 . 3872) (ShellBrowse 3874 . 4559) (ShellOpener 4561 . 6249) (ShellOpen 6251 . 12198
-) (PROCESS-COMMAND 12200 . 12813) (SLASHIT 12815 . 16127) (UNIX-FILE-NAME 16129 . 20014) (
-UNIX-TMP-FILE-NAME 20016 . 21693)))))
+  (FILEMAP (NIL (1207 1580 (ShellCommand 1207 . 1580)) (1582 1979 (ShellWhich 1582 . 1979)) (2089 21826 
+(ShellBrowser 2099 . 3871) (ShellBrowse 3873 . 4558) (ShellOpener 4560 . 6248) (ShellOpen 6250 . 12197
+) (PROCESS-COMMAND 12199 . 12812) (SLASHIT 12814 . 16126) (UNIX-FILE-NAME 16128 . 20145) (
+UNIX-TMP-FILE-NAME 20147 . 21824)))))
 STOP
--- a/library/UNIXUTILS.DFASL
+++ b/library/UNIXUTILS.DFASL
--- a/library/tedit/TEDIT-FILE
+++ b/library/tedit/TEDIT-FILE
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

-(FILECREATED "29-Apr-2026 23:49:14" {MEDLEY}<library>tedit>TEDIT-FILE.;684 174888 
+(FILECREATED "10-May-2026 20:54:51" {MEDLEY}<library>TEDIT>TEDIT-FILE.;685 174952 

      :EDIT-BY rmk

-      :CHANGES-TO (FNS \TEDIT.INTERPRET.MCCS.SHIFTS)
+      :CHANGES-TO (FNS \TEDIT.GET.FORMATTED.FILE)

-      :PREVIOUS-DATE "24-Apr-2026 21:09:13" {MEDLEY}<library>tedit>TEDIT-FILE.;683)
+      :PREVIOUS-DATE "29-Apr-2026 23:49:14" {MEDLEY}<library>TEDIT>TEDIT-FILE.;684)


 (PRETTYCOMPRINT TEDIT-FILECOMS)
@@ -707,7 +707,8 @@
             (\TEDIT.INSERTPIECES PIECES NIL TEXTOBJ)))])

 (\TEDIT.GET.FORMATTED.FILE
-  [LAMBDA (TEXT TSTREAM START END PROPS)                     (* ; "Edited 25-Sep-2025 21:27 by rmk")
+  [LAMBDA (TEXT TSTREAM START END PROPS)                     (* ; "Edited 10-May-2026 20:54 by rmk")
+                                                             (* ; "Edited 25-Sep-2025 21:27 by rmk")
                                                             (* ; "Edited  9-Sep-2025 21:45 by rmk")
                                                             (* ; "Edited  7-Sep-2025 12:14 by rmk")
                                                             (* ; "Edited 28-Mar-2025 14:15 by rmk")
@@ -744,8 +745,7 @@
                                                   "Version 1;  obsoleted at INTERMEZZO release 2/85")
                    (\TEDIT.GET.PCTB1 TEXT TSTREAM PCCOUNT START END))
                 (0                                          (* ; "VERSION 0")
-                    (\TEDIT.GET.PCTB0 TEXT TSTREAM (CADR PCCOUNT)
-                           PCCOUNT START END))
+                    (\TEDIT.GET.PCTB0 TEXT TSTREAM PCCOUNT START END))
                 (\TEDIT.THELP "File format version incompatible with this version of TEdit."))
             (CL:WHEN (SETQ PC (\TEDIT.LASTPIECE TEXTOBJ))
                    (FSETPC PC PPARALAST T))
@@ -2706,29 +2706,29 @@

 (RPAQ? *TEDIT-FILE-READTABLE* (COPYREADTABLE \ORIGREADTABLE))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (5384 35643 (TEDIT.GET 5394 . 11804) (TEDIT.FORMATTEDFILEP 11806 . 13122) (
-TEDIT.FILEDATE 13124 . 14433) (TEDIT.INCLUDE 14435 . 22464) (TEDIT.RAW.INCLUDE 22466 . 23274) (
-TEDIT.PUT 23276 . 31632) (TEDIT.PUT.STREAM 31634 . 35641)) (35644 56951 (\TEDIT.GET.FOREIGN.FILE 35654
- . 39079) (\TEDIT.GET.UNFORMATTED.FILE 39081 . 43420) (\TEDIT.GET.FORMATTED.FILE 43422 . 47065) (
-\TEDIT.FORMATTEDSTREAMP 47067 . 50198) (\ARBIN 50200 . 50920) (\ATMIN 50922 . 51459) (\DWIN 51461 . 
-51840) (\STRINGIN 51842 . 52550) (\TEDIT.GET.TRAILER 52552 . 55420) (\TEDIT.CACHEFILE 55422 . 56949)) 
-(57117 73044 (\TEDIT.GET.PIECES3 57127 . 68176) (\TEDIT.GET.PROPS3 68178 . 71400) (
-\TEDIT.MAKE.STRINGPIECE 71402 . 73042)) (73045 85841 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73055 . 78706) 
-(\TEDIT.INTERPRET.MCCS.SHIFTS 78708 . 84304) (\TEDIT.CONVERT.XCCSTOMCCS 84306 . 85238) (
-\TEDIT.RUN.TO.STRINGPIECE 85240 . 85839)) (85863 92124 (\TEDIT.GET.UNFORMATTED.FILE.UTF8 85873 . 92122
-)) (92147 103665 (\TEDIT.GET.CHARLOOKS.LIST 92157 . 92888) (\TEDIT.GET.SINGLE.CHARLOOKS 92890 . 99962)
- (\TEDIT.GET.CHARLOOKS 99964 . 101520) (\TEDIT.GET.PARALOOKS.INDEX 101522 . 102066) (
-\TEDIT.GET.CHARLOOKS.INDEX 102068 . 103663)) (103666 111323 (\TEDIT.GET.PARALOOKS.LIST 103676 . 104298
-) (\TEDIT.GET.SINGLE.PARALOOKS 104300 . 111321)) (111324 115266 (\TEDIT.GET.OBJECT 111334 . 115264)) (
-115331 150489 (\TEDIT.PUT.PCTB 115341 . 125667) (\TEDIT.PUT.PCTB.PIECEDATA 125669 . 128826) (
-\TEDIT.PUT.TRAILER 128828 . 130156) (\TEDIT.PUT.PCTB.MERGEABLE 130158 . 134019) (
-\TEDIT.PUT.UTF8.SPLITPIECES 134021 . 138597) (\TEDIT.PUT.MCCS.SPLITPIECES 138599 . 140177) (
-\TEDIT.PUT.PCTB.NEXTNEW 140179 . 144920) (\TEDIT.INSERT.NEWPIECES 144922 . 148087) (\TEDIT.PUTRESET 
-148089 . 148331) (\ARBOUT 148333 . 149057) (\ATMOUT 149059 . 149664) (\DWOUT 149666 . 149945) (
-\STRINGOUT 149947 . 150487)) (150490 163441 (\TEDIT.PUT.CHARLOOKS.LIST 150500 . 152172) (
-\TEDIT.PUT.SINGLE.CHARLOOKS 152174 . 158454) (\TEDIT.PUT.CHARLOOKS 158456 . 159903) (
-\TEDIT.PUT.CHARLOOKS1 159905 . 160956) (\TEDIT.PUT.OBJECT 160958 . 163439)) (163442 171081 (
-\TEDIT.PUT.PARALOOKS.LIST 163452 . 164354) (\TEDIT.PUT.SINGLE.PARALOOKS 164356 . 169940) (
-\TEDIT.PUT.PARALOOKS 169942 . 171079)) (171176 174581 (TEDITFROMLISPSOURCE 171186 . 173830) (
-SHELLSCRIPTP 173832 . 174061) (TEDITFROMSHELLSCRIPT 174063 . 174579)))))
+  (FILEMAP (NIL (5381 35640 (TEDIT.GET 5391 . 11801) (TEDIT.FORMATTEDFILEP 11803 . 13119) (
+TEDIT.FILEDATE 13121 . 14430) (TEDIT.INCLUDE 14432 . 22461) (TEDIT.RAW.INCLUDE 22463 . 23271) (
+TEDIT.PUT 23273 . 31629) (TEDIT.PUT.STREAM 31631 . 35638)) (35641 57015 (\TEDIT.GET.FOREIGN.FILE 35651
+ . 39076) (\TEDIT.GET.UNFORMATTED.FILE 39078 . 43417) (\TEDIT.GET.FORMATTED.FILE 43419 . 47129) (
+\TEDIT.FORMATTEDSTREAMP 47131 . 50262) (\ARBIN 50264 . 50984) (\ATMIN 50986 . 51523) (\DWIN 51525 . 
+51904) (\STRINGIN 51906 . 52614) (\TEDIT.GET.TRAILER 52616 . 55484) (\TEDIT.CACHEFILE 55486 . 57013)) 
+(57181 73108 (\TEDIT.GET.PIECES3 57191 . 68240) (\TEDIT.GET.PROPS3 68242 . 71464) (
+\TEDIT.MAKE.STRINGPIECE 71466 . 73106)) (73109 85905 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73119 . 78770) 
+(\TEDIT.INTERPRET.MCCS.SHIFTS 78772 . 84368) (\TEDIT.CONVERT.XCCSTOMCCS 84370 . 85302) (
+\TEDIT.RUN.TO.STRINGPIECE 85304 . 85903)) (85927 92188 (\TEDIT.GET.UNFORMATTED.FILE.UTF8 85937 . 92186
+)) (92211 103729 (\TEDIT.GET.CHARLOOKS.LIST 92221 . 92952) (\TEDIT.GET.SINGLE.CHARLOOKS 92954 . 100026
+) (\TEDIT.GET.CHARLOOKS 100028 . 101584) (\TEDIT.GET.PARALOOKS.INDEX 101586 . 102130) (
+\TEDIT.GET.CHARLOOKS.INDEX 102132 . 103727)) (103730 111387 (\TEDIT.GET.PARALOOKS.LIST 103740 . 104362
+) (\TEDIT.GET.SINGLE.PARALOOKS 104364 . 111385)) (111388 115330 (\TEDIT.GET.OBJECT 111398 . 115328)) (
+115395 150553 (\TEDIT.PUT.PCTB 115405 . 125731) (\TEDIT.PUT.PCTB.PIECEDATA 125733 . 128890) (
+\TEDIT.PUT.TRAILER 128892 . 130220) (\TEDIT.PUT.PCTB.MERGEABLE 130222 . 134083) (
+\TEDIT.PUT.UTF8.SPLITPIECES 134085 . 138661) (\TEDIT.PUT.MCCS.SPLITPIECES 138663 . 140241) (
+\TEDIT.PUT.PCTB.NEXTNEW 140243 . 144984) (\TEDIT.INSERT.NEWPIECES 144986 . 148151) (\TEDIT.PUTRESET 
+148153 . 148395) (\ARBOUT 148397 . 149121) (\ATMOUT 149123 . 149728) (\DWOUT 149730 . 150009) (
+\STRINGOUT 150011 . 150551)) (150554 163505 (\TEDIT.PUT.CHARLOOKS.LIST 150564 . 152236) (
+\TEDIT.PUT.SINGLE.CHARLOOKS 152238 . 158518) (\TEDIT.PUT.CHARLOOKS 158520 . 159967) (
+\TEDIT.PUT.CHARLOOKS1 159969 . 161020) (\TEDIT.PUT.OBJECT 161022 . 163503)) (163506 171145 (
+\TEDIT.PUT.PARALOOKS.LIST 163516 . 164418) (\TEDIT.PUT.SINGLE.PARALOOKS 164420 . 170004) (
+\TEDIT.PUT.PARALOOKS 170006 . 171143)) (171240 174645 (TEDITFROMLISPSOURCE 171250 . 173894) (
+SHELLSCRIPTP 173896 . 174125) (TEDITFROMSHELLSCRIPT 174127 . 174643)))))
 STOP
--- a/library/tedit/TEDIT-FILE.LCOM
+++ b/library/tedit/TEDIT-FILE.LCOM
--- a/library/tedit/TEDIT-FNKEYS
+++ b/library/tedit/TEDIT-FNKEYS
@@ -1,12 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

-(FILECREATED " 8-Feb-2026 19:54:41" {WMEDLEY}<library>tedit>TEDIT-FNKEYS.;318 109228 
+(FILECREATED "16-May-2026 22:20:12" {MEDLEY}<library>TEDIT>TEDIT-FNKEYS.;319 109301 

      :EDIT-BY rmk

-      :CHANGES-TO (VARS TEDIT.BASIC.CHARBINDINGS ORIG.TEDIT.CHARACTIONS)
+      :CHANGES-TO (FNS TEDIT.SETSYNTAX)

-      :PREVIOUS-DATE "24-Nov-2025 08:40:56" {WMEDLEY}<library>tedit>TEDIT-FNKEYS.;317)
+      :PREVIOUS-DATE " 8-Feb-2026 19:54:41" {MEDLEY}<library>TEDIT>TEDIT-FNKEYS.;318)


 (PRETTYCOMPRINT TEDIT-FNKEYSCOMS)
@@ -1354,7 +1354,8 @@
        'FN])

 (TEDIT.SETSYNTAX
-  [LAMBDA (CHAR CLASS RDTBL)                                 (* ; "Edited 12-Nov-2025 14:44 by rmk")
+  [LAMBDA (CHAR CLASS RDTBL)                                 (* ; "Edited 16-May-2026 22:19 by rmk")
+                                                             (* ; "Edited 12-Nov-2025 14:44 by rmk")
                                                             (* ; "Edited 13-Mar-2025 21:52 by rmk")
                                                             (* ; "Edited 24-Dec-2023 09:17 by rmk")
                                                             (* ; "Edited 31-Mar-87 10:00 by jds")
@@ -1374,7 +1375,7 @@
    (PROG1 (TEDIT.GETSYNTAX CHAR RDTBL)
        (\SETSYNCODE (fetch READSA of RDTBL)
               CHAR
-               (OR (CADR (ASSOC CLASS \TEDIT.TTCCODES))
+               (OR (CDR (ASSOC CLASS \TEDIT.TTCCODES))
                   (\TEDIT.TTC NONE))))])

 (TEDIT.GETFUNCTION
@@ -1989,30 +1990,30 @@
 (RPAQ TEDIT.WORDBOUND.READTABLE (\TEDIT.WORDBOUND.READTABLE))
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (5054 23319 (TEDIT.INSTALL.CHARBINDINGS 5064 . 7915) (TEDIT.CLEAR.CHARBINDINGS 7917 . 
-10937) (TEDIT.GET.CHARACTION 10939 . 13720) (TEDIT.GET.CHARBINDING 13722 . 15899) (
-TEDIT.GET.ALL.CHARBINDINGS 15901 . 18400) (TEDIT.CHARBINDINGS.INVERT 18402 . 19681) (
-TEDIT.GET.ALL.CHARACTIONS 19683 . 22005) (TEDIT.CONFLICTING.CHARBINDINGS 22007 . 23317)) (23379 33434 
-(\TEDIT.KEY.CHARLOOKS 23389 . 24581) (\TEDIT.KEY.QUAD 24583 . 26676) (\TEDIT.DEFAULTSSEL 26678 . 27289
-) (\TEDIT.SETDEFAULT.FROM.SEL 27291 . 27968) (\TEDIT.KEY.SIZE 27970 . 29166) (\TEDIT.SUBSCRIPTSEL 
-29168 . 29371) (\TEDIT.SUPERSCRIPTSEL 29373 . 29577) (\TEDIT.KEY.TRANSFORM 29579 . 31576) (
-\TEDIT.KEY.OPENLINE 31578 . 32032) (\TEDIT.KEY.FAMILYN 32034 . 33432)) (33435 33724 (CAP-CASECODE 
-33445 . 33722)) (33758 37190 (\TEDIT.SHOWCARETLOOKS 33768 . 36283) (\TEDIT.DESCRIBEFONT 36285 . 37188)
-) (37221 52194 (\TEDIT.ONECHAR.BACKWARD 37231 . 38378) (\TEDIT.ONECHAR.FORWARD 38380 . 39616) (
-\TEDIT.ONELINE.UP 39618 . 42579) (\TEDIT.ONELINE.DOWN 42581 . 44238) (\TEDIT.ONELINE.MOVE 44240 . 
-46527) (\TEDIT.ONEWORD.BACKWARD 46529 . 47717) (\TEDIT.ONEWORD.FORWARD 47719 . 48906) (
-\TEDIT.LINE.BEGIN 48908 . 49987) (\TEDIT.LINE.END 49989 . 51226) (\TEDIT.DOCUMENT.BEGIN 51228 . 51587)
- (\TEDIT.DOCUMENT.END 51589 . 52192)) (52195 55503 (\TEDIT.LINEDELETE.FORWARD 52205 . 53314) (
-\TEDIT.LINEDELETE.BACKWARD 53316 . 54455) (\TEDIT.LINEDELETE 54457 . 55501)) (55504 58032 (
-\TEDIT.KEY.NEST 55514 . 58030)) (58033 59315 (\TEDIT.KEY.WRAP 58043 . 59313)) (59406 67454 (
-\TEDIT.KEY.FIND 59416 . 64594) (\TEDIT.KEY.FIND.SEARCHSTRING 64596 . 65736) (\TEDIT.GET.TARGET.STRING 
-65738 . 67452)) (67485 70117 (\TEDIT.KEY.SUBSTITUTE 67495 . 67716) (\TEDIT.MANPAGE 67718 . 68965) (
-\TEDIT.CALL.ED 68967 . 69797) (\TEDIT.SELECT.ALL 69799 . 70115)) (70144 75834 (\TEDIT.CLIPBOARD 70154
- . 71909) (\TEDIT.COPYTOCLIPBOARD 71911 . 72691) (\TEDIT.EXTRACTTOCLIPBOARD 72693 . 72888) (
-\TEDIT.WRITE.SEL 72890 . 75832)) (76000 88507 (\TEDIT.READTABLE 76010 . 76946) (
-\TEDIT.WORDBOUND.READTABLE 76948 . 79996) (TEDIT.GETSYNTAX 79998 . 81227) (TEDIT.SETSYNTAX 81229 . 
-82543) (TEDIT.GETFUNCTION 82545 . 84018) (TEDIT.SETFUNCTION 84020 . 86176) (TEDIT.WORDGET 86178 . 
-86439) (TEDIT.WORDSET 86441 . 87181) (TEDIT.ATOMBOUND.READTABLE 87183 . 88505)) (88608 95596 (
-TEDIT.BUTTONS.BUILD 88618 . 93864) (TEDIT.BUTTONBITMAP.FILL 93866 . 95594)) (98061 98649 (
-\TEDIT.TTCCLASS 98071 . 98647)))))
+  (FILEMAP (NIL (5019 23284 (TEDIT.INSTALL.CHARBINDINGS 5029 . 7880) (TEDIT.CLEAR.CHARBINDINGS 7882 . 
+10902) (TEDIT.GET.CHARACTION 10904 . 13685) (TEDIT.GET.CHARBINDING 13687 . 15864) (
+TEDIT.GET.ALL.CHARBINDINGS 15866 . 18365) (TEDIT.CHARBINDINGS.INVERT 18367 . 19646) (
+TEDIT.GET.ALL.CHARACTIONS 19648 . 21970) (TEDIT.CONFLICTING.CHARBINDINGS 21972 . 23282)) (23344 33399 
+(\TEDIT.KEY.CHARLOOKS 23354 . 24546) (\TEDIT.KEY.QUAD 24548 . 26641) (\TEDIT.DEFAULTSSEL 26643 . 27254
+) (\TEDIT.SETDEFAULT.FROM.SEL 27256 . 27933) (\TEDIT.KEY.SIZE 27935 . 29131) (\TEDIT.SUBSCRIPTSEL 
+29133 . 29336) (\TEDIT.SUPERSCRIPTSEL 29338 . 29542) (\TEDIT.KEY.TRANSFORM 29544 . 31541) (
+\TEDIT.KEY.OPENLINE 31543 . 31997) (\TEDIT.KEY.FAMILYN 31999 . 33397)) (33400 33689 (CAP-CASECODE 
+33410 . 33687)) (33723 37155 (\TEDIT.SHOWCARETLOOKS 33733 . 36248) (\TEDIT.DESCRIBEFONT 36250 . 37153)
+) (37186 52159 (\TEDIT.ONECHAR.BACKWARD 37196 . 38343) (\TEDIT.ONECHAR.FORWARD 38345 . 39581) (
+\TEDIT.ONELINE.UP 39583 . 42544) (\TEDIT.ONELINE.DOWN 42546 . 44203) (\TEDIT.ONELINE.MOVE 44205 . 
+46492) (\TEDIT.ONEWORD.BACKWARD 46494 . 47682) (\TEDIT.ONEWORD.FORWARD 47684 . 48871) (
+\TEDIT.LINE.BEGIN 48873 . 49952) (\TEDIT.LINE.END 49954 . 51191) (\TEDIT.DOCUMENT.BEGIN 51193 . 51552)
+ (\TEDIT.DOCUMENT.END 51554 . 52157)) (52160 55468 (\TEDIT.LINEDELETE.FORWARD 52170 . 53279) (
+\TEDIT.LINEDELETE.BACKWARD 53281 . 54420) (\TEDIT.LINEDELETE 54422 . 55466)) (55469 57997 (
+\TEDIT.KEY.NEST 55479 . 57995)) (57998 59280 (\TEDIT.KEY.WRAP 58008 . 59278)) (59371 67419 (
+\TEDIT.KEY.FIND 59381 . 64559) (\TEDIT.KEY.FIND.SEARCHSTRING 64561 . 65701) (\TEDIT.GET.TARGET.STRING 
+65703 . 67417)) (67450 70082 (\TEDIT.KEY.SUBSTITUTE 67460 . 67681) (\TEDIT.MANPAGE 67683 . 68930) (
+\TEDIT.CALL.ED 68932 . 69762) (\TEDIT.SELECT.ALL 69764 . 70080)) (70109 75799 (\TEDIT.CLIPBOARD 70119
+ . 71874) (\TEDIT.COPYTOCLIPBOARD 71876 . 72656) (\TEDIT.EXTRACTTOCLIPBOARD 72658 . 72853) (
+\TEDIT.WRITE.SEL 72855 . 75797)) (75965 88580 (\TEDIT.READTABLE 75975 . 76911) (
+\TEDIT.WORDBOUND.READTABLE 76913 . 79961) (TEDIT.GETSYNTAX 79963 . 81192) (TEDIT.SETSYNTAX 81194 . 
+82616) (TEDIT.GETFUNCTION 82618 . 84091) (TEDIT.SETFUNCTION 84093 . 86249) (TEDIT.WORDGET 86251 . 
+86512) (TEDIT.WORDSET 86514 . 87254) (TEDIT.ATOMBOUND.READTABLE 87256 . 88578)) (88681 95669 (
+TEDIT.BUTTONS.BUILD 88691 . 93937) (TEDIT.BUTTONBITMAP.FILL 93939 . 95667)) (98134 98722 (
+\TEDIT.TTCCLASS 98144 . 98720)))))
 STOP
--- a/library/tedit/TEDIT-FNKEYS.LCOM
+++ b/library/tedit/TEDIT-FNKEYS.LCOM
--- a/library/tedit/TEDIT-HCPY
+++ b/library/tedit/TEDIT-HCPY
@@ -1,12 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

-(FILECREATED "15-Jan-2026 11:08:15" {WMEDLEY}<library>tedit>TEDIT-HCPY.;196 32421  
+(FILECREATED "16-May-2026 09:39:37" {MEDLEY}<library>TEDIT>TEDIT-HCPY.;197 32446  

      :EDIT-BY rmk

-      :CHANGES-TO (FNS TEDIT.IMAGEFILE.MESSAGE TEDIT.FORMAT.HARDCOPY)
+      :CHANGES-TO (FNS TEDIT-BOOK)

-      :PREVIOUS-DATE "24-Dec-2025 11:16:22" {WMEDLEY}<library>tedit>TEDIT-HCPY.;194)
+      :PREVIOUS-DATE "15-Jan-2026 11:08:15" {MEDLEY}<library>TEDIT>TEDIT-HCPY.;196)


 (PRETTYCOMPRINT TEDIT-HCPYCOMS)
@@ -508,25 +508,26 @@
 (DEFINEQ

 (TEDIT-BOOK
-  [LAMBDA (FILES DIRECTORY PRINT-FILE DONT-SEND)             (* ; "Edited 22-Mar-93 23:55 by jds")
+  [LAMBDA (FILES DIRECTORY IMAGEFILE IMAGETYPE)              (* ; "Edited 16-May-2026 09:39 by rmk")
+                                                             (* ; "Edited 22-Mar-93 23:55 by jds")
    (LET ((DOC (OPENTEXTSTREAM (MKATOM (CAR FILES))
                      NIL)))

         (* ;; "Gather all the files into one document:")

-         (for FILE in (CDR FILES) do (TEDIT.SETSEL DOC 1 (fetch (TEXTOBJ TEXTLEN) of (TEXTOBJ DOC))
-                                            'RIGHT NIL NIL)
-                                     (TEDIT.INCLUDE DOC (PACK* (OR DIRECTORY "")
-                                                               FILE)))
+         (for FILE in (CDR FILES) do (TEDIT.SETSEL DOC 1 (TEDIT.NCHARS DOC)
+                                            'RIGHT)
+                                     (TEDIT.INCLUDE DOC (PACKFILENAME 'BODY FILE 'DIRECTORY DIRECTORY
+                                                               )))
                                                             (* ; "Set page layout")
-         (TEDIT.FORMAT.HARDCOPY DOC PRINT-FILE DONT-SEND NIL NIL NIL NIL NIL)
+         (TEDIT.TO.IMAGEFILE DOC IMAGEFILE IMAGETYPE)
         (CLOSEF DOC])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2727 29208 (TEDIT.HARDCOPY 2737 . 3995) (TEDIT.FORMAT.HARDCOPY 3997 . 7234) (
-TEDIT.IMAGEFILE.MESSAGE 7236 . 8533) (\TEDIT.PRINT.MENU 8535 . 10938) (\TEDIT.HARDCOPY.DISPLAYLINE 
-10940 . 20163) (\TEDIT.HARDCOPY.FORMATLINE.HEADINGS 20165 . 21894) (\TEDIT.HARDCOPY.MODIFYLOOKS 21896
- . 24077) (\TEDIT.HCPYFMTSPEC 24079 . 27537) (\TEDIT.INTEGER.IMAGEBOX 27539 . 28210) (
-\TEDIT.DISPLAY.DIACRITIC 28212 . 29206)) (29283 30113 (\TEDIT.SCALEREGION 29293 . 30111)) (30405 30978
- (\TEDIT.HARDCOPYFILEFN 30415 . 30976)) (31597 32398 (TEDIT-BOOK 31607 . 32396)))))
+  (FILEMAP (NIL (2690 29171 (TEDIT.HARDCOPY 2700 . 3958) (TEDIT.FORMAT.HARDCOPY 3960 . 7197) (
+TEDIT.IMAGEFILE.MESSAGE 7199 . 8496) (\TEDIT.PRINT.MENU 8498 . 10901) (\TEDIT.HARDCOPY.DISPLAYLINE 
+10903 . 20126) (\TEDIT.HARDCOPY.FORMATLINE.HEADINGS 20128 . 21857) (\TEDIT.HARDCOPY.MODIFYLOOKS 21859
+ . 24040) (\TEDIT.HCPYFMTSPEC 24042 . 27500) (\TEDIT.INTEGER.IMAGEBOX 27502 . 28173) (
+\TEDIT.DISPLAY.DIACRITIC 28175 . 29169)) (29246 30076 (\TEDIT.SCALEREGION 29256 . 30074)) (30368 30941
+ (\TEDIT.HARDCOPYFILEFN 30378 . 30939)) (31560 32423 (TEDIT-BOOK 31570 . 32421)))))
 STOP
--- a/library/tedit/TEDIT-HCPY.LCOM
+++ b/library/tedit/TEDIT-HCPY.LCOM
--- a/library/tedit/TEDIT-MENU
+++ b/library/tedit/TEDIT-MENU
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

-(FILECREATED "29-Apr-2026 15:35:33" {MEDLEY}<library>TEDIT>TEDIT-MENU.;512 183159 
+(FILECREATED "10-May-2026 17:15:14" {MEDLEY}<library>tedit>TEDIT-MENU.;513 183190 

      :EDIT-BY rmk

-      :CHANGES-TO (FNS \TEDIT.SHOW.PAGELOOKS)
+      :CHANGES-TO (FNS \TEDIT.MENU.START)

-      :PREVIOUS-DATE " 9-Feb-2026 09:10:43" {MEDLEY}<library>TEDIT>TEDIT-MENU.;510)
+      :PREVIOUS-DATE "29-Apr-2026 15:35:33" {MEDLEY}<library>tedit>TEDIT-MENU.;512)


 (PRETTYCOMPRINT TEDIT-MENUCOMS)
@@ -1161,7 +1161,8 @@
           TSTREAM])

 (\TEDIT.MENU.START
-  [LAMBDA (MENUSTREAM TSTREAM TITLE HEIGHT TYPE)             (* ; "Edited 14-Mar-2025 16:13 by rmk")
+  [LAMBDA (MENUSTREAM TSTREAM TITLE HEIGHT TYPE)             (* ; "Edited 10-May-2026 17:12 by rmk")
+                                                             (* ; "Edited 14-Mar-2025 16:13 by rmk")
                                                             (* ; "Edited 28-Jun-2024 23:08 by rmk")
                                                             (* ; "Edited 19-Apr-2024 10:53 by rmk")
                                                             (* ; "Edited 10-Apr-2024 23:04 by rmk")
@@ -1195,7 +1196,6 @@
                                         WIDTH _ (fetch (REGION WIDTH) of WREG)
                                         HEIGHT _ (OR HEIGHT 133))
                                TITLE))
-             (WINDOWADDPROP MENUW 'CLOSEFN (FUNCTION FREEATTACHEDWINDOW))
             (WINDOWPROP MENUW 'TEDITMENU (OR TITLE "TEdit Menu"))
                                                             (* ; "Mark this as a TEDIT MENU window")
             (ATTACHWINDOW MENUW MAINWINDOW 'TOP 'JUSTIFY 'LOCALCLOSE)
@@ -2899,32 +2899,32 @@
 (ADDTOVAR LAMA )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4933 16571 (TEDIT.ADD.MENUITEM 4943 . 7060) (TEDIT.DEFAULT.MENUFN 7062 . 13783) (
-TEDIT.REMOVE.MENUITEM 13785 . 14782) (\TEDIT.CREATEMENU 14784 . 15349) (\TEDIT.MENU.WHENHELDFN 15351
- . 16256) (\TEDIT.MENU.WHENSELECTEDFN 16258 . 16569)) (17385 65420 (DRAWMARGINSCALE 17395 . 20854) (
-MARGINBAR 20856 . 27981) (MARGINBAR.CREATE 27983 . 32181) (MB.MARGINBAR.BUTTONEVENTINFN 32183 . 39985)
- (MB.MARGINBAR.SELFN.TABS 39987 . 45227) (MB.MARGINBAR.SELFN.TABS.KIND 45229 . 46164) (
-MARGINBAR.GETSTATEFN 46166 . 50153) (MARGINBAR.SETSTATEFN 50155 . 50365) (MARGINBAR.NEUTRALIZE 50367
- . 51042) (MARGINBAR.LOOKS 51044 . 54150) (MB.MARGINBAR.SIZEFN 54152 . 54938) (MB.MARGINBAR.DISPLAYFN 
-54940 . 58001) (MDESCALE 58003 . 58543) (MSCALE 58545 . 58875) (MB.MARGINBAR.SHOWTAB 58877 . 61200) (
-MB.MARGINBAR.TABTRACK 61202 . 62587) (MARGINBAR.INIT 62589 . 63982) (\TEDIT.PARALOOKS.TO.MARBAR 63984
- . 65418)) (66245 73527 (TEDIT.MENUSTREAM 66255 . 67255) (TEDITMENUP 67257 . 68226) (\TEDIT.MENU.START
- 68228 . 72575) (\TEDIT.MENU.OPEN? 72577 . 72951) (\TEDIT.MENU.BUTTONEVENTFN 72953 . 73525)) (73846 
-81897 (\TEDIT.MENU.CREATE 73856 . 75796) (\TEDIT.MENU.PARSE 75798 . 79487) (\TEDIT.MENU.NEUTRALIZE 
-79489 . 81560) (\TEDITMENU.RECORD.UNFORMATTED 81562 . 81895)) (81963 101365 (
-\TEDIT.EXPANDEDMENU.CREATE 81973 . 87651) (\TEDIT.EXPANDEDMENU.START 87653 . 89277) (
-\TEDIT.EXPANDEDMENU.FN 89279 . 92534) (\TEDIT.EXPANDEDMENU.ACTIONFN 92536 . 101363)) (101427 120852 (
-\TEDIT.PARAMENU.CREATE 101437 . 110168) (\TEDIT.PARAMENU.START 110170 . 111424) (
-\TEDIT.APPLY.PARALOOKS 111426 . 112478) (\TEDIT.SHOW.PARALOOKS 112480 . 115197) (
-\TEDIT.PARAMENU.FILLIN 115199 . 119948) (\TEDIT.PARAMENU.RESHAPEFN 119950 . 120850)) (121046 147888 (
-\TEDIT.CHARMENU.CREATE 121056 . 123660) (\TEDIT.CHARMENU.START 123662 . 124952) (\TEDIT.CHARMENU.SPEC 
-124954 . 129637) (\TEDIT.CHARMENU.PARSE 129639 . 132807) (\TEDIT.CHARMENU.FILLIN 132809 . 137439) (
-\TEDIT.SHOW.CHARLOOKS 137441 . 140986) (\TEDIT.APPLY.CHARLOOKS 140988 . 142149) (
-\TEDIT.OFFSETTYPE.STATEFN 142151 . 144114) (\TEDIT.OTHER.STATECHANGEFN 144116 . 145761) (
-\TEDIT.OTHER.SELECTFN 145763 . 147886)) (147950 177199 (\TEDIT.PAGEMENU.CREATE 147960 . 156481) (
-\TEDIT.PAGEMENU.START 156483 . 156834) (\TEDIT.SHOW.PAGELOOKS 156836 . 158857) (\TEDIT.PAGEMENU.FILLIN
- 158859 . 160409) (\TEDIT.PAGEREGION.UNPARSE 160411 . 169810) (\TEDIT.APPLY.PAGELOOKS 169812 . 171739)
- (\TEDIT.CHANGE.PAGELOOKS 171741 . 176355) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176357 . 177197)) (
-177200 183003 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177210 . 180022) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 
-180024 . 181449) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181451 . 183001)))))
+  (FILEMAP (NIL (4929 16567 (TEDIT.ADD.MENUITEM 4939 . 7056) (TEDIT.DEFAULT.MENUFN 7058 . 13779) (
+TEDIT.REMOVE.MENUITEM 13781 . 14778) (\TEDIT.CREATEMENU 14780 . 15345) (\TEDIT.MENU.WHENHELDFN 15347
+ . 16252) (\TEDIT.MENU.WHENSELECTEDFN 16254 . 16565)) (17381 65416 (DRAWMARGINSCALE 17391 . 20850) (
+MARGINBAR 20852 . 27977) (MARGINBAR.CREATE 27979 . 32177) (MB.MARGINBAR.BUTTONEVENTINFN 32179 . 39981)
+ (MB.MARGINBAR.SELFN.TABS 39983 . 45223) (MB.MARGINBAR.SELFN.TABS.KIND 45225 . 46160) (
+MARGINBAR.GETSTATEFN 46162 . 50149) (MARGINBAR.SETSTATEFN 50151 . 50361) (MARGINBAR.NEUTRALIZE 50363
+ . 51038) (MARGINBAR.LOOKS 51040 . 54146) (MB.MARGINBAR.SIZEFN 54148 . 54934) (MB.MARGINBAR.DISPLAYFN 
+54936 . 57997) (MDESCALE 57999 . 58539) (MSCALE 58541 . 58871) (MB.MARGINBAR.SHOWTAB 58873 . 61196) (
+MB.MARGINBAR.TABTRACK 61198 . 62583) (MARGINBAR.INIT 62585 . 63978) (\TEDIT.PARALOOKS.TO.MARBAR 63980
+ . 65414)) (66241 73558 (TEDIT.MENUSTREAM 66251 . 67251) (TEDITMENUP 67253 . 68222) (\TEDIT.MENU.START
+ 68224 . 72606) (\TEDIT.MENU.OPEN? 72608 . 72982) (\TEDIT.MENU.BUTTONEVENTFN 72984 . 73556)) (73877 
+81928 (\TEDIT.MENU.CREATE 73887 . 75827) (\TEDIT.MENU.PARSE 75829 . 79518) (\TEDIT.MENU.NEUTRALIZE 
+79520 . 81591) (\TEDITMENU.RECORD.UNFORMATTED 81593 . 81926)) (81994 101396 (
+\TEDIT.EXPANDEDMENU.CREATE 82004 . 87682) (\TEDIT.EXPANDEDMENU.START 87684 . 89308) (
+\TEDIT.EXPANDEDMENU.FN 89310 . 92565) (\TEDIT.EXPANDEDMENU.ACTIONFN 92567 . 101394)) (101458 120883 (
+\TEDIT.PARAMENU.CREATE 101468 . 110199) (\TEDIT.PARAMENU.START 110201 . 111455) (
+\TEDIT.APPLY.PARALOOKS 111457 . 112509) (\TEDIT.SHOW.PARALOOKS 112511 . 115228) (
+\TEDIT.PARAMENU.FILLIN 115230 . 119979) (\TEDIT.PARAMENU.RESHAPEFN 119981 . 120881)) (121077 147919 (
+\TEDIT.CHARMENU.CREATE 121087 . 123691) (\TEDIT.CHARMENU.START 123693 . 124983) (\TEDIT.CHARMENU.SPEC 
+124985 . 129668) (\TEDIT.CHARMENU.PARSE 129670 . 132838) (\TEDIT.CHARMENU.FILLIN 132840 . 137470) (
+\TEDIT.SHOW.CHARLOOKS 137472 . 141017) (\TEDIT.APPLY.CHARLOOKS 141019 . 142180) (
+\TEDIT.OFFSETTYPE.STATEFN 142182 . 144145) (\TEDIT.OTHER.STATECHANGEFN 144147 . 145792) (
+\TEDIT.OTHER.SELECTFN 145794 . 147917)) (147981 177230 (\TEDIT.PAGEMENU.CREATE 147991 . 156512) (
+\TEDIT.PAGEMENU.START 156514 . 156865) (\TEDIT.SHOW.PAGELOOKS 156867 . 158888) (\TEDIT.PAGEMENU.FILLIN
+ 158890 . 160440) (\TEDIT.PAGEREGION.UNPARSE 160442 . 169841) (\TEDIT.APPLY.PAGELOOKS 169843 . 171770)
+ (\TEDIT.CHANGE.PAGELOOKS 171772 . 176386) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176388 . 177228)) (
+177231 183034 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177241 . 180053) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 
+180055 . 181480) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181482 . 183032)))))
 STOP
--- a/library/tedit/TEDIT-MENU.LCOM
+++ b/library/tedit/TEDIT-MENU.LCOM
--- a/library/tedit/TEDIT-SELECTION
+++ b/library/tedit/TEDIT-SELECTION
@@ -1,12 +1,13 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

-(FILECREATED "16-Apr-2026 09:27:41" {WMEDLEY}<library>TEDIT>TEDIT-SELECTION.;741 161623 
+(FILECREATED "15-May-2026 10:48:32" {MEDLEY}<library>TEDIT>TEDIT-SELECTION.;743 162591 

      :EDIT-BY rmk

-      :CHANGES-TO (FNS \TEDIT.SELPIECES.FROM.STRING)
+      :CHANGES-TO (FNS \TEDIT.XYTOSEL \TEDIT.REGIONTYPE \TEDIT.SEL.OFF \TEDIT.SECONDARYSEL.OFF)
+                  (VARS TEDIT-SELECTIONCOMS)

-      :PREVIOUS-DATE "10-Apr-2026 09:31:20" {WMEDLEY}<library>TEDIT>TEDIT-SELECTION.;740)
+      :PREVIOUS-DATE "16-Apr-2026 09:27:41" {MEDLEY}<library>tedit>TEDIT-SELECTION.;741)


 (PRETTYCOMPRINT TEDIT-SELECTIONCOMS)
@@ -41,9 +42,9 @@
              (FNS \TEDIT.RESET.EXTEND.PENDING.DELETE \TEDIT.SET.SEL.LOOKS)
              (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (MACROS \TEDIT.NOSEL \TEDIT.SEL.ON 
                                                              \TEDIT.SEL.OFF)))
-              (FNS \TEDIT.SHOWSEL \TEDIT.NOSEL \TEDIT.SEL.OFF \TEDIT.SEL.ON \TEDIT.SHOWSEL.HILIGHT 
-                   \TEDIT.UPDATE.SEL \TEDIT.CARETLINE \TEDIT.SEL.L1 \TEDIT.SEL.LN 
-                   \TEDIT.SEL.DELETEDCHARS)
+              (FNS \TEDIT.SHOWSEL \TEDIT.NOSEL \TEDIT.SEL.OFF \TEDIT.SECONDARYSEL.OFF \TEDIT.SEL.ON 
+                   \TEDIT.SHOWSEL.HILIGHT \TEDIT.UPDATE.SEL \TEDIT.CARETLINE \TEDIT.SEL.L1 
+                   \TEDIT.SEL.LN \TEDIT.SEL.DELETEDCHARS)
              (FNS \TEDIT.COPYSEL \TEDIT.SEL.CHANGED?))
        (COMS                                                (* ; "Image objects")
              (FNS \TEDIT.SELECT.OBJECT \TEDIT.SHOWSEL.OBJECT \TEDIT.CLIP.OBJECT 
@@ -821,6 +822,7 @@

 (\TEDIT.XYTOSEL
  [LAMBDA (X Y NEWSEL TSTREAM SELOPERATION PANE BUTTON CURSEL REGIONTYPE)
+                                                             (* ; "Edited 15-May-2026 09:48 by rmk")
                                                             (* ; "Edited 21-Apr-2025 20:33 by rmk")
                                                             (* ; "Edited  6-Apr-2025 18:57 by rmk")
                                                             (* ; "Edited 13-Feb-2025 11:03 by rmk")
@@ -848,7 +850,7 @@
           LINE PARAFIRSTCHNO PARALASTCHNO SELFN)
          (CL:UNLESS (SETQ LINE (\TEDIT.XYTOSEL.LINE X Y PANE TEXTOBJ))
                 (RETURN))
-          (SELECTQ (\TEDIT.REGIONTYPE BUTTON CURSEL TEXTOBJ REGIONTYPE)
+          (SELECTQ REGIONTYPE
              ((TEXT PANE)                                   (* ; 
                                                   "We're in the regular text area, which character?")
                   (CL:WHEN (AND (IGREATERP (GETLD LINE LCHARLIM)
@@ -933,24 +935,28 @@
          (RETURN NEWSEL])

 (\TEDIT.REGIONTYPE
-  [LAMBDA (BUTTON CURSEL TEXTOBJ REGIONTYPE)                 (* ; "Edited  6-Dec-2024 12:50 by rmk")
+  [LAMBDA (CURSEL TEXTOBJ)                                   (* ; "Edited 15-May-2026 10:43 by rmk")
+                                                             (* ; "Edited  6-Dec-2024 12:50 by rmk")

    (* ;; "Coerces the mouse region according to the button and current selection.")

-    (CL:UNLESS REGIONTYPE
-        (SETQ REGIONTYPE (FGETTOBJ TEXTOBJ MOUSEREGION)))
-    (SELECTQ BUTTON
-        (MIDDLE (CL:WHEN (AND (EQ REGIONTYPE 'LINE)
-                              (FGETTOBJ TEXTOBJ PARABREAKCHARS))
+    (LET ((MOUSEREGION (FGETTOBJ TEXTOBJ MOUSEREGION)))
+         (if (NEQ MOUSEREGION 'LINE)
+             then 'TEXT
+           elseif (\TEDIT.MOUSESTATE MIDDLE)
+             then 
+                  (* ;; "A middle-button selection in the line region means the line-containing paragraph.  If there are no PARABREAKCHARS, we assume heuristically that there are no paragraphs, and a line is just a line.  Otherwise, a middle click in such a document will select the whole thing, not very useful.")

-                    (* ;; "A middle-button selection in the line region means the line-containing paragraph.  If there are no PARABREAKCHARS, we assume heuristically that there are no paragraphs, and a line is just a line.  Otherwise, a middle click in such a document will select the whole thing, not very useful.")
-
-                    (SETQ REGIONTYPE 'PARA)))
-        (RIGHT (SETQ REGIONTYPE (OR [CAR (MEMB (FGETSEL CURSEL SELKIND)
-                                               '(LINE PARA]
-                                    'TEXT)))
-        NIL)
-    REGIONTYPE])
+                  (CL:IF (FGETTOBJ TEXTOBJ PARABREAKCHARS)
+                      'PARA
+                      'LINE)
+           elseif (\TEDIT.MOUSESTATE RIGHT)
+             then                                            (* ; "Extending previous t ype")
+                  (OR [AND CURSEL (CAR (MEMB (FGETSEL CURSEL SELKIND)
+                                             '(LINE PARA]
+                      'LINE)
+           else                                              (* ; "No button or left button")
+                'LINE])

 (\TEDIT.XYTOSEL.INLINEP
  [LAMBDA (X Y PANE TEXTOBJ)                                 (* ; "Edited 30-Nov-2024 15:46 by rmk")
@@ -1360,6 +1366,16 @@

    (\TEDIT.SHOWSEL SEL NIL TSTREAM ONLYPANE])

+(\TEDIT.SECONDARYSEL.OFF
+  [LAMBDA (TSTREAM)                                          (* ; "Edited 13-May-2026 09:36 by rmk")
+
+    (* ;; "Turns off and removes the secondary selection.")
+
+    (LET ((TOBJ (FGETTSTR TSTREAM TEXTOBJ)))
+         (CL:WHEN (FGETTOBJ TOBJ SECONDARYSEL)
+             (\TEDIT.SEL.OFF TSTREAM (FGETTOBJ TOBJ SECONDARYSEL))
+             (FSETTOBJ TOBJ SECONDARYSEL NIL))])
+
 (\TEDIT.SEL.ON
  [LAMBDA (TSTREAM SEL ONLYPANE DONTFIX)                     (* ; "Edited  5-May-2025 23:21 by rmk")
                                                             (* ; "Edited 15-Apr-2025 15:20 by rmk")
@@ -2561,26 +2577,26 @@
 (ADDTOVAR LAMA TEDIT.SELPROP)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (15886 17707 (\TEDIT.SELECTION.DEFPRINT 15896 . 17705)) (17744 19249 (
-\TEDIT.SET.GLOBAL.SELECTIONS 17754 . 19247)) (19250 25471 (\TEDIT.SELECTED.PIECES 19260 . 20899) (
-\TEDIT.FIND.PROTECTED.END 20901 . 22695) (\TEDIT.FIND.PROTECTED.START 22697 . 24680) (
-\TEDIT.WORD.BOUND 24682 . 25469)) (25605 59712 (\TEDIT.EXTEND.SEL 25615 . 32855) (\TEDIT.SCAN.LINE 
-32857 . 44530) (\TEDIT.SCAN.LINE.WORD 44532 . 49525) (\TEDIT.XYTOSEL 49527 . 56865) (\TEDIT.REGIONTYPE
- 56867 . 57886) (\TEDIT.XYTOSEL.INLINEP 57888 . 58343) (\TEDIT.XYTOSEL.LINE 58345 . 59710)) (59713 
-73258 (\TEDIT.FIXSEL 59723 . 69100) (\TEDIT.CHTOLINEX 69102 . 73256)) (73259 77463 (
-\TEDIT.RESET.EXTEND.PENDING.DELETE 73269 . 74547) (\TEDIT.SET.SEL.LOOKS 74549 . 77461)) (78400 99553 (
-\TEDIT.SHOWSEL 78410 . 83386) (\TEDIT.NOSEL 83388 . 83689) (\TEDIT.SEL.OFF 83691 . 84102) (
-\TEDIT.SEL.ON 84104 . 84520) (\TEDIT.SHOWSEL.HILIGHT 84522 . 89143) (\TEDIT.UPDATE.SEL 89145 . 93747) 
-(\TEDIT.CARETLINE 93749 . 94463) (\TEDIT.SEL.L1 94465 . 95148) (\TEDIT.SEL.LN 95150 . 95833) (
-\TEDIT.SEL.DELETEDCHARS 95835 . 99551)) (99554 104436 (\TEDIT.COPYSEL 99564 . 102206) (
-\TEDIT.SEL.CHANGED? 102208 . 104434)) (104467 118126 (\TEDIT.SELECT.OBJECT 104477 . 109430) (
-\TEDIT.SHOWSEL.OBJECT 109432 . 111663) (\TEDIT.CLIP.OBJECT 111665 . 113669) (\TEDIT.OPERATE.OBJECT 
-113671 . 118124)) (118154 137453 (\TEDIT.SELPIECES 118164 . 122445) (\TEDIT.SELPIECES.COPY 122447 . 
-124936) (\TEDIT.SELPIECES.CONCAT 124938 . 126817) (\TEDIT.SELPIECES.CHARTRANSFORM 126819 . 130189) (
-\TEDIT.SELPIECES.FROM.STRING 130191 . 135088) (\TEDIT.SELPIECES.TO.STRING 135090 . 137451)) (137506 
-161454 (TEDIT.XYTOCH 137516 . 140092) (TEDIT.SELPROP 140094 . 144371) (TEDIT.GETPOINT 144373 . 146293)
- (TEDIT.GETSEL 146295 . 147171) (TEDIT.GETSEL.PARA 147173 . 148122) (TEDIT.SCANSEL 148124 . 149072) (
-TEDIT.SET.SEL.LOOKS 149074 . 150559) (TEDIT.SETSEL 150561 . 155479) (TEDIT.SHOWSEL 155481 . 157345) (
-TEDIT.SEL.AS.STRING 157347 . 159832) (TEDIT.SEL.AS.SEXPR 159834 . 161120) (TEDIT.SELECTALL 161122 . 
-161452)))))
+  (FILEMAP (NIL (15996 17817 (\TEDIT.SELECTION.DEFPRINT 16006 . 17815)) (17854 19359 (
+\TEDIT.SET.GLOBAL.SELECTIONS 17864 . 19357)) (19360 25581 (\TEDIT.SELECTED.PIECES 19370 . 21009) (
+\TEDIT.FIND.PROTECTED.END 21011 . 22805) (\TEDIT.FIND.PROTECTED.START 22807 . 24790) (
+\TEDIT.WORD.BOUND 24792 . 25579)) (25715 60263 (\TEDIT.EXTEND.SEL 25725 . 32965) (\TEDIT.SCAN.LINE 
+32967 . 44640) (\TEDIT.SCAN.LINE.WORD 44642 . 49635) (\TEDIT.XYTOSEL 49637 . 57038) (\TEDIT.REGIONTYPE
+ 57040 . 58437) (\TEDIT.XYTOSEL.INLINEP 58439 . 58894) (\TEDIT.XYTOSEL.LINE 58896 . 60261)) (60264 
+73809 (\TEDIT.FIXSEL 60274 . 69651) (\TEDIT.CHTOLINEX 69653 . 73807)) (73810 78014 (
+\TEDIT.RESET.EXTEND.PENDING.DELETE 73820 . 75098) (\TEDIT.SET.SEL.LOOKS 75100 . 78012)) (78951 100521 
+(\TEDIT.SHOWSEL 78961 . 83937) (\TEDIT.NOSEL 83939 . 84240) (\TEDIT.SEL.OFF 84242 . 84653) (
+\TEDIT.SECONDARYSEL.OFF 84655 . 85070) (\TEDIT.SEL.ON 85072 . 85488) (\TEDIT.SHOWSEL.HILIGHT 85490 . 
+90111) (\TEDIT.UPDATE.SEL 90113 . 94715) (\TEDIT.CARETLINE 94717 . 95431) (\TEDIT.SEL.L1 95433 . 96116
+) (\TEDIT.SEL.LN 96118 . 96801) (\TEDIT.SEL.DELETEDCHARS 96803 . 100519)) (100522 105404 (
+\TEDIT.COPYSEL 100532 . 103174) (\TEDIT.SEL.CHANGED? 103176 . 105402)) (105435 119094 (
+\TEDIT.SELECT.OBJECT 105445 . 110398) (\TEDIT.SHOWSEL.OBJECT 110400 . 112631) (\TEDIT.CLIP.OBJECT 
+112633 . 114637) (\TEDIT.OPERATE.OBJECT 114639 . 119092)) (119122 138421 (\TEDIT.SELPIECES 119132 . 
+123413) (\TEDIT.SELPIECES.COPY 123415 . 125904) (\TEDIT.SELPIECES.CONCAT 125906 . 127785) (
+\TEDIT.SELPIECES.CHARTRANSFORM 127787 . 131157) (\TEDIT.SELPIECES.FROM.STRING 131159 . 136056) (
+\TEDIT.SELPIECES.TO.STRING 136058 . 138419)) (138474 162422 (TEDIT.XYTOCH 138484 . 141060) (
+TEDIT.SELPROP 141062 . 145339) (TEDIT.GETPOINT 145341 . 147261) (TEDIT.GETSEL 147263 . 148139) (
+TEDIT.GETSEL.PARA 148141 . 149090) (TEDIT.SCANSEL 149092 . 150040) (TEDIT.SET.SEL.LOOKS 150042 . 
+151527) (TEDIT.SETSEL 151529 . 156447) (TEDIT.SHOWSEL 156449 . 158313) (TEDIT.SEL.AS.STRING 158315 . 
+160800) (TEDIT.SEL.AS.SEXPR 160802 . 162088) (TEDIT.SELECTALL 162090 . 162420)))))
 STOP
--- a/library/tedit/TEDIT-SELECTION.LCOM
+++ b/library/tedit/TEDIT-SELECTION.LCOM
--- a/library/tedit/TEDIT-STREAM
+++ b/library/tedit/TEDIT-STREAM
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

-(FILECREATED " 1-May-2026 08:15:56" {MEDLEY}<library>tedit>TEDIT-STREAM.;956 190971 
+(FILECREATED "10-May-2026 13:26:30" {MEDLEY}<library>TEDIT>TEDIT-STREAM.;957 191002 

      :EDIT-BY rmk

-      :CHANGES-TO (RECORDS PIECE)
+      :CHANGES-TO (FNS \TEDIT.OPENTEXTFILE)

-      :PREVIOUS-DATE "26-Apr-2026 23:46:38" {MEDLEY}<library>tedit>TEDIT-STREAM.;955)
+      :PREVIOUS-DATE " 1-May-2026 08:15:56" {MEDLEY}<library>TEDIT>TEDIT-STREAM.;956)


 (PRETTYCOMPRINT TEDIT-STREAMCOMS)
@@ -1642,7 +1642,8 @@
         (SETTOBJ TEXTOBJ DEFAULTPARALOOKS PARALOOKS])

 (\TEDIT.OPENTEXTFILE
-  [LAMBDA (TEXT PROPS ERROR)                                 (* ; "Edited  2-Dec-2025 17:49 by rmk")
+  [LAMBDA (TEXT PROPS ERROR)                                 (* ; "Edited 10-May-2026 12:57 by rmk")
+                                                             (* ; "Edited  2-Dec-2025 17:49 by rmk")
                                                             (* ; "Edited 16-Sep-2025 00:28 by rmk")
                                                             (* ; "Edited  8-Sep-2025 21:52 by rmk")
                                                             (* ; "Edited 21-Nov-2024 11:38 by rmk")
@@ -1658,16 +1659,15 @@
                          (STRINGP TEXT)
                          (CL:PATHNAMEP TEXT)
                          (STREAMP TEXT))
-                      (CAR (NLSETQ (OPENSTREAM (if (STREAMP TEXT)
-                                                 elseif (CL:PATHNAMEP TEXT)
-                                                   then (FINDFILE TEXT T)
-                                                 elseif (FINDFILE-WITH-EXTENSIONS TEXT NIL 
-                                                               *TEDIT-EXTENSIONS*)
-                                                 else TEXT)
+                      (CAR (NLSETQ (OPENSTREAM (OR (STREAMP TEXT)
+                                                   (AND (CL:PATHNAMEP TEXT)
+                                                        (FINDFILE TEXT T))
+                                                   (FINDFILE-WITH-EXTENSIONS TEXT NIL 
+                                                          *TEDIT-EXTENSIONS*)
+                                                   TEXT)
                                          'INPUT
                                          'OLD
-                                          `((TYPE TEXT)
-                                            (FORMAT ,(LISTGET PROPS 'FORMAT]
+                                          `((FORMAT ,(LISTGET PROPS 'FORMAT]
          elseif ERROR
            then (ERROR "File not found:" TEXT)))])

@@ -3084,33 +3084,33 @@
 (ADDTOVAR LAMA TEXTPROP)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (36156 66033 (\TEDIT.TEXTBIN 36166 . 46068) (\TEDIT.TEXTPEEKBIN 46070 . 51495) (
-\TEDIT.TEXTBACKFILEPTR 51497 . 57204) (\TEDIT.TEXTBOUT 57206 . 61823) (\TEDIT.INSTALL.FILEBUFFER 61825
- . 66031)) (66931 71222 (\TEDIT.TEXTOUTCHARFN 66941 . 68497) (\TEDIT.TEXTINCCODEFN 68499 . 69238) (
-\TEDIT.TEXTBACKCCODEFN 69240 . 69832) (\TEDIT.TEXTFORMATBYTESTREAM 69834 . 70671) (
-\TEDIT.TEXTFORMATBYTESTRING 70673 . 71220)) (71269 83344 (OPENTEXTSTREAM 71279 . 78255) (
-COPYTEXTSTREAM 78257 . 82567) (TEDIT.STREAMCHANGEDP 82569 . 82871) (TXTFILE 82873 . 83342)) (83345 
-106550 (\TEDIT.REOPENTEXTSTREAM 83355 . 84707) (\TEDIT.OPENTEXTSTREAM.PIECES 84709 . 89637) (
-\TEDIT.OPENTEXTSTREAM.PROPS 89639 . 90741) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 90743 . 96193) (
-\TEDIT.OPENTEXTSTREAM.WINDOW 96195 . 98986) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 98988 . 100927) (
-\TEDIT.OPENTEXTFILE 100929 . 103061) (\TEDIT.CREATE.TEXTSTREAM 103063 . 104210) (\TEDIT.REOPEN.STREAM 
-104212 . 106548)) (106551 114883 (\TEDIT.STREAMINIT 106561 . 114700) (TEDIT.IMAGESTREAM.OPEN 114702 . 
-114881)) (115071 116259 (\TEDIT.TTYBOUT 115081 . 116257)) (116377 138060 (\TEDIT.TEXTCLOSEF 116387 . 
-117711) (\TEDIT.TEXTDSPFONT 117713 . 118911) (\TEDIT.TEXTEOFP 118913 . 120668) (\TEDIT.TEXTGETEOFPTR 
-120670 . 120993) (\TEDIT.TEXTSETEOFPTR 120995 . 122282) (\TEDIT.TEXTGETFILEPTR 122284 . 125119) (
-\TEDIT.TEXTSETFILEINFO 125121 . 125629) (\TEDIT.TEXTOPENF 125631 . 126562) (\TEDIT.TEXTSETEOF 126564
- . 127180) (\TEDIT.TEXTSETFILEPTR 127182 . 129292) (\TEDIT.TEXTDSPXPOSITION 129294 . 131997) (
-\TEDIT.TEXTDSPYPOSITION 131999 . 132740) (\TEDIT.TEXTLEFTMARGIN 132742 . 133333) (\TEDIT.TEXTCOLOR 
-133335 . 133918) (\TEDIT.TEXTRIGHTMARGIN 133920 . 137209) (\TEDIT.TEXTDSPCHARWIDTH 137211 . 137515) (
-\TEDIT.TEXTDSPSTRINGWIDTH 137517 . 137823) (\TEDIT.TEXTDSPLINEFEED 137825 . 138058)) (138098 150332 (
-\TEDIT.NTHCHARCODE 138108 . 139634) (\TEDIT.PIECE.NTHCHARCODE 139636 . 143204) (\TEDIT.RPLCHARCODE 
-143206 . 144764) (\TEDIT.PIECE.RPLCHARCODE 144766 . 149977) (\TEDIT.NTHCHARLOOKS 149979 . 150330)) (
-151379 172254 (\TEDIT.DELETE.SELPIECES 151389 . 155014) (\TEDIT.INSERTCH 155016 . 162821) (
-\TEDIT.INSERTCH.HISTORY 162823 . 166287) (\TEDIT.INSERTEOL 166289 . 168114) (\TEDIT.INSERTCH.INSERTION
- 168116 . 170953) (\TEDIT.INSERTCH.EXTEND 170955 . 172252)) (172255 173862 (\TEDIT.NEXTCHANGEABLE.CHNO
- 172265 . 172980) (\TEDIT.LASTCHANGEABLE.CHNO 172982 . 173860)) (173863 178652 (\TEDIT.INSTALL.PIECE 
-173873 . 178650)) (178690 188156 (TEXTPROP 178700 . 179047) (GETTEXTPROP 179049 . 179293) (PUTTEXTPROP
- 179295 . 179552) (GETTEXTPROPS 179554 . 179998) (PUTTEXTPROPS 180000 . 180904) (TEXTPROP.ADD 180906
- . 181169) (\TEDIT.TEXTPROP 181171 . 188154)) (188157 190534 (\TEDIT.TEXTOBJ.PROPNAMES 188167 . 189426
-) (\TEDIT.TEXTOBJ.PROPFETCHFN 189428 . 189944) (\TEDIT.TEXTOBJ.PROPSTOREFN 189946 . 190532)))))
+  (FILEMAP (NIL (36166 66043 (\TEDIT.TEXTBIN 36176 . 46078) (\TEDIT.TEXTPEEKBIN 46080 . 51505) (
+\TEDIT.TEXTBACKFILEPTR 51507 . 57214) (\TEDIT.TEXTBOUT 57216 . 61833) (\TEDIT.INSTALL.FILEBUFFER 61835
+ . 66041)) (66941 71232 (\TEDIT.TEXTOUTCHARFN 66951 . 68507) (\TEDIT.TEXTINCCODEFN 68509 . 69248) (
+\TEDIT.TEXTBACKCCODEFN 69250 . 69842) (\TEDIT.TEXTFORMATBYTESTREAM 69844 . 70681) (
+\TEDIT.TEXTFORMATBYTESTRING 70683 . 71230)) (71279 83354 (OPENTEXTSTREAM 71289 . 78265) (
+COPYTEXTSTREAM 78267 . 82577) (TEDIT.STREAMCHANGEDP 82579 . 82881) (TXTFILE 82883 . 83352)) (83355 
+106581 (\TEDIT.REOPENTEXTSTREAM 83365 . 84717) (\TEDIT.OPENTEXTSTREAM.PIECES 84719 . 89647) (
+\TEDIT.OPENTEXTSTREAM.PROPS 89649 . 90751) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 90753 . 96203) (
+\TEDIT.OPENTEXTSTREAM.WINDOW 96205 . 98996) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 98998 . 100937) (
+\TEDIT.OPENTEXTFILE 100939 . 103092) (\TEDIT.CREATE.TEXTSTREAM 103094 . 104241) (\TEDIT.REOPEN.STREAM 
+104243 . 106579)) (106582 114914 (\TEDIT.STREAMINIT 106592 . 114731) (TEDIT.IMAGESTREAM.OPEN 114733 . 
+114912)) (115102 116290 (\TEDIT.TTYBOUT 115112 . 116288)) (116408 138091 (\TEDIT.TEXTCLOSEF 116418 . 
+117742) (\TEDIT.TEXTDSPFONT 117744 . 118942) (\TEDIT.TEXTEOFP 118944 . 120699) (\TEDIT.TEXTGETEOFPTR 
+120701 . 121024) (\TEDIT.TEXTSETEOFPTR 121026 . 122313) (\TEDIT.TEXTGETFILEPTR 122315 . 125150) (
+\TEDIT.TEXTSETFILEINFO 125152 . 125660) (\TEDIT.TEXTOPENF 125662 . 126593) (\TEDIT.TEXTSETEOF 126595
+ . 127211) (\TEDIT.TEXTSETFILEPTR 127213 . 129323) (\TEDIT.TEXTDSPXPOSITION 129325 . 132028) (
+\TEDIT.TEXTDSPYPOSITION 132030 . 132771) (\TEDIT.TEXTLEFTMARGIN 132773 . 133364) (\TEDIT.TEXTCOLOR 
+133366 . 133949) (\TEDIT.TEXTRIGHTMARGIN 133951 . 137240) (\TEDIT.TEXTDSPCHARWIDTH 137242 . 137546) (
+\TEDIT.TEXTDSPSTRINGWIDTH 137548 . 137854) (\TEDIT.TEXTDSPLINEFEED 137856 . 138089)) (138129 150363 (
+\TEDIT.NTHCHARCODE 138139 . 139665) (\TEDIT.PIECE.NTHCHARCODE 139667 . 143235) (\TEDIT.RPLCHARCODE 
+143237 . 144795) (\TEDIT.PIECE.RPLCHARCODE 144797 . 150008) (\TEDIT.NTHCHARLOOKS 150010 . 150361)) (
+151410 172285 (\TEDIT.DELETE.SELPIECES 151420 . 155045) (\TEDIT.INSERTCH 155047 . 162852) (
+\TEDIT.INSERTCH.HISTORY 162854 . 166318) (\TEDIT.INSERTEOL 166320 . 168145) (\TEDIT.INSERTCH.INSERTION
+ 168147 . 170984) (\TEDIT.INSERTCH.EXTEND 170986 . 172283)) (172286 173893 (\TEDIT.NEXTCHANGEABLE.CHNO
+ 172296 . 173011) (\TEDIT.LASTCHANGEABLE.CHNO 173013 . 173891)) (173894 178683 (\TEDIT.INSTALL.PIECE 
+173904 . 178681)) (178721 188187 (TEXTPROP 178731 . 179078) (GETTEXTPROP 179080 . 179324) (PUTTEXTPROP
+ 179326 . 179583) (GETTEXTPROPS 179585 . 180029) (PUTTEXTPROPS 180031 . 180935) (TEXTPROP.ADD 180937
+ . 181200) (\TEDIT.TEXTPROP 181202 . 188185)) (188188 190565 (\TEDIT.TEXTOBJ.PROPNAMES 188198 . 189457
+) (\TEDIT.TEXTOBJ.PROPFETCHFN 189459 . 189975) (\TEDIT.TEXTOBJ.PROPSTOREFN 189977 . 190563)))))
 STOP
--- a/library/tedit/TEDIT-STREAM.LCOM
+++ b/library/tedit/TEDIT-STREAM.LCOM
--- a/library/tedit/TEDIT-WINDOW
+++ b/library/tedit/TEDIT-WINDOW
@@ -1,12 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

-(FILECREATED " 7-Feb-2026 18:53:22" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;896 234678 
+(FILECREATED "17-May-2026 13:04:08" {MEDLEY}<library>tedit>TEDIT-WINDOW.;912 236525 

      :EDIT-BY rmk

-      :CHANGES-TO (FNS TEDIT.PROMPTPRINT)
+      :CHANGES-TO (FNS \TEDIT.BUTTONEVENTFN)

-      :PREVIOUS-DATE " 5-Feb-2026 08:24:23" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;895)
+      :PREVIOUS-DATE "17-May-2026 12:46:44" {MEDLEY}<library>tedit>TEDIT-WINDOW.;911)


 (PRETTYCOMPRINT TEDIT-WINDOWCOMS)
@@ -26,9 +26,10 @@
        (FNS TEDIT.DEFER.UPDATES)
        (FNS \TEDIT.WINDOW.CREATE \TEDIT.WINDOW.GETREGION \TEDIT.WINDOW.SETUP 
             \TEDIT.MINIMAL.WINDOW.SETUP \TEDIT.CLEARPANE \TEDIT.FILL.PANES)
-        (FNS \TEDIT.CURSORMOVEDFN \TEDIT.CURSOROUTFN \TEDIT.ACTIVE.WINDOWP \TEDIT.EXPANDFN 
-             \TEDIT.MAINW \TEDIT.MAINSTREAM \TEDIT.PRIMARYPANE \TEDIT.PANELIST \TEDIT.NEWREGIONFN 
-             \TEDIT.SET.WINDOW.EXTENT \TEDIT.SHRINK.ICONCREATE \TEDIT.SHRINKFN \TEDIT.PANEREGION)
+        (FNS \TEDIT.CURSORMOVEDFN \TEDIT.CURSOROUTFN \TEDIT.CURSORINFN \TEDIT.ACTIVE.WINDOWP 
+             \TEDIT.EXPANDFN \TEDIT.MAINW \TEDIT.MAINSTREAM \TEDIT.PRIMARYPANE \TEDIT.PANELIST 
+             \TEDIT.NEWREGIONFN \TEDIT.SET.WINDOW.EXTENT \TEDIT.SHRINK.ICONCREATE \TEDIT.SHRINKFN 
+             \TEDIT.PANEREGION)
        
        (* ;; "Button events")

@@ -458,7 +459,8 @@
         WINDOW])

 (\TEDIT.WINDOW.GETREGION
-  [LAMBDA (TSTREAM REGIONTYPE PHEIGHT)                       (* ; "Edited  5-Feb-2026 08:24 by rmk")
+  [LAMBDA (TSTREAM REGIONTYPE PHEIGHT)                       (* ; "Edited 10-May-2026 16:32 by rmk")
+                                                             (* ; "Edited  5-Feb-2026 08:24 by rmk")
                                                             (* ; "Edited 27-Jan-2026 15:30 by rmk")
                                                             (* ; "Edited 25-Jan-2026 20:09 by rmk")
                                                             (* ; "Edited 25-Oct-2025 10:27 by rmk")
@@ -552,7 +554,7 @@
                 (CL:WHEN (TXTFILE TSTREAM)
                     (printout PROMPTWINDOW " for " 2 (GETTEXTPROP TSTREAM 'FILENAME)))
                 (TERPRI PROMPTWINDOW)
-                 (GETBOXREGION WIDTH HEIGHT])
+                 (GETREGION WIDTH HEIGHT])

 (\TEDIT.WINDOW.SETUP
  [LAMBDA (PANE TSTREAM PROPS AFTERPANE LCHAR1)              (* ; "Edited 15-Jan-2026 10:35 by rmk")
@@ -619,7 +621,8 @@
          (\TEDIT.SET.WINDOW.EXTENT TEXTOBJ PANE])

 (\TEDIT.MINIMAL.WINDOW.SETUP
-  [LAMBDA (PANEWINDOW TSTREAM PROPS)                         (* ; "Edited 23-Dec-2025 23:41 by rmk")
+  [LAMBDA (PANEWINDOW TSTREAM PROPS)                         (* ; "Edited 14-May-2026 17:30 by rmk")
+                                                             (* ; "Edited 23-Dec-2025 23:41 by rmk")
                                                             (* ; "Edited 20-Dec-2025 23:04 by rmk")
                                                             (* ; "Edited 19-Oct-2025 14:55 by rmk")
                                                             (* ; "Edited 20-Apr-2025 15:19 by rmk")
@@ -632,14 +635,15 @@
                                                             (* ; "Edited 30-Jun-2024 08:55 by rmk")
                                                             (* ; "Edited 25-Jun-2024 00:04 by rmk")
                                                             (* ; "Edited 13-Jun-2024 21:51 by rmk")
-                                                             (* ; "Edited 20-Mar-2024 11:22 by rmk")
-                                                             (* ; "Edited 22-Feb-2024 23:14 by rmk")
-                                                             (* ; "Edited 26-Jan-2024 13:14 by rmk")
-                                                             (* ; "Edited  2-Jan-2024 17:27 by rmk")
-                                                             (* ; "Edited 21-Dec-2023 17:19 by rmk")
-                                                             (* ; "Edited 20-Nov-2023 10:40 by rmk")
-                                                             (* ; "Edited  4-Oct-2023 09:48 by rmk")
-                                                             (* ; "Edited 18-Sep-2023 23:44 by rmk")
+                                                             (* ; "Edited 20-Mar-2024 11:22 by rmk")
+                                                             (* ; 
+                                                            "CURSORINEdited 22-Feb-2024 23:14 by rmk")
+                                                             (* ; "Edited 26-Jan-2024 13:14 by rmk")
+                                                             (* ; "Edited  2-Jan-2024 17:27 by rmk")
+                                                             (* ; "Edited 21-Dec-2023 17:19 by rmk")
+                                                             (* ; "Edited 20-Nov-2023 10:40 by rmk")
+                                                             (* ; "Edited  4-Oct-2023 09:48 by rmk")
+                                                             (* ; "Edited 18-Sep-2023 23:44 by rmk")
                                                             (* ; "Edited 30-May-91 23:33 by jds")

    (* ;; "Do the minimum setup so that the window PANEWINDOW becomes the window of a pane of TSTREAM and TSTREAM and PANE know about each other.  Does NOT include mouse interface or scrolling/lines.")
@@ -698,6 +702,7 @@

         (WINDOWPROP PANEWINDOW 'CURSORMOVEDFN (FUNCTION \TEDIT.CURSORMOVEDFN))
         (WINDOWPROP PANEWINDOW 'CURSOROUTFN (FUNCTION \TEDIT.CURSOROUTFN))
+         (WINDOWPROP PANEWINDOW 'CURSORINFN (FUNCTION \TEDIT.CURSORINFN))
         (WINDOWPROP PANEWINDOW 'BUTTONEVENTFN (FUNCTION \TEDIT.BUTTONEVENTFN))
         (WINDOWPROP PANEWINDOW 'RIGHTBUTTONFN (FUNCTION \TEDIT.BUTTONEVENTFN))
         (WINDOWPROP PANEWINDOW 'IMAGETYPE 'TEDIT)           (* ; "For hardcopy")
@@ -878,6 +883,23 @@
               MOUSEREGION
               'TEXT))])

+(\TEDIT.CURSORINFN
+  [LAMBDA (PANE)                                             (* ; "Edited 16-May-2026 10:05 by rmk")
+                                                             (* ; "Edited 14-May-2026 22:47 by rmk")
+
+    (* ;; "This runs when the mouse comes into a Tedit window from outside.  The mouse may have gone outside while it was being tracked by \TEDIT.BUTTONEVENTFN while there was a secondary selection in the stream and on the screen.  If the window still has (or somehow regained) the TTY (because it wasn't given to anybody else when the mouse was outside) and the mode keys are the same (or were regained) for that secondary selection, then we want to set things up so the mouse tracker is in the state it was when it exited.  But if those conditions don't hold, we at least consistently flush that secondary selection and wait for a click to tell us what to do.")
+
+    (CL:WHEN (PANETEXTSTREAM PANE)
+        [LET ((TEXTOBJ (PANETEXTOBJ PANE))
+              SECSEL)
+             (if [AND (EQ (WINDOWPROP PANE 'PROCESS)
+                          (TTY.PROCESS))
+                      (SETQ SECSEL (FGETTOBJ TEXTOBJ SECONDARYSEL))
+                      (EQ (GETSEL SECSEL SELOPERATION)
+                          (\TEDIT.BUTTONEVENTFN.GETOPERATION (FGETTOBJ TEXTOBJ TXTREADONLY]
+                 then (\TEDIT.BUTTONEVENTFN PANE)
+               else (\TEDIT.SECONDARYSEL.OFF (PANETEXTSTREAM PANE])])
+
 (\TEDIT.ACTIVE.WINDOWP
  [LAMBDA (W)                                                (* ; "Edited 27-Apr-2025 13:07 by rmk")
                                                             (* ; "Edited 20-Mar-2024 09:38 by rmk")
@@ -1156,7 +1178,10 @@
 (DEFINEQ

 (\TEDIT.BUTTONEVENTFN
-  [LAMBDA (PANE)                                             (* ; "Edited 15-Jan-2026 00:39 by rmk")
+  [LAMBDA (PANE)                                             (* ; "Edited 17-May-2026 13:03 by rmk")
+                                                             (* ; "Edited 15-May-2026 12:31 by rmk")
+                                                             (* ; "Edited 13-May-2026 13:26 by rmk")
+                                                             (* ; "Edited 15-Jan-2026 00:39 by rmk")
                                                             (* ; "Edited 11-Jan-2026 08:30 by rmk")
                                                             (* ; "Edited  6-May-2025 20:35 by rmk")
                                                             (* ; "Edited 21-Apr-2025 20:19 by rmk")
@@ -1184,164 +1209,157 @@
    (* ;; "Handle mouse buttons that are clicked in a TEdit pane.  ")

    (TOTOPW PANE)
-    (CL:WHEN (MOUSESTATE (OR LEFT MIDDLE RIGHT))
-
-        (* ;; "If no button is down, we got control on button-up transition, so ignore it.")
-
-        (RESETLST                                            (* ; 
-                                                      "Getting TTYPROC here allows HELP in debugging")
-            (bind (TTYPROC _ (TTY.PROCESS))
-                  (TSTREAM _ (PANETEXTSTREAM PANE))
-                  (X _ (LASTMOUSEX PANE))
-                  (Y _ (LASTMOUSEY PANE))
-                  (DS _ (WINDOWPROP PANE 'DSP))
-                  (OLDX _ MIN.SMALLP)
-                  (OLDY _ MIN.SMALLP)
-                  (PREG _ (PANEREGION PANE))
-                  TEXTOBJ CURSEL NEWSEL CUROPERATION NEWOPERATION PENDINGDEL READONLY SECSEL
-               declare (SPECVARS CURSEL) first 
+    (RESETLST                                                (* ; 
+                             "Getting TTYPROC here allows HELP in debugging.  It's the Tedit process")
+        (bind (TTYPROC _ (TTY.PROCESS))
+              (TSTREAM _ (PANETEXTSTREAM PANE))
+              (X _ (LASTMOUSEX PANE))
+              (Y _ (LASTMOUSEY PANE))
+              (DS _ (WINDOWPROP PANE 'DSP))
+              (OLDX _ MIN.SMALLP)
+              (OLDY _ MIN.SMALLP)
+              (PREG _ (PANEREGION PANE))
+              TEXTOBJ CURSEL NEWSEL CUROPERATION NEWOPERATION PENDINGDEL READONLY SECSEL REGIONTYPE
+           declare (SPECVARS CURSEL) first 

                                      (* ;; "Pick off and return from a bunch of peripheral situations, then fall through to the complexities of normal text selection.")

-                                               (CL:UNLESS TSTREAM (RETURN))
-                                               (SETQ TEXTOBJ (TEXTOBJ! (FGETTSTR TSTREAM TEXTOBJ)))
-                                               (CL:WHEN (OR (\TEDIT.BUTTONEVENTFN.INTITLE Y PANE 
-                                                                   TEXTOBJ)
-                                                            (\TEDIT.BUTTONEVENTFN.INACTIVE TEXTOBJ 
-                                                                   PANE)
-                                                            (\TEDIT.PANE.SPLIT TEXTOBJ PANE))
-                                                      (RETURN)) 
+                                           (CL:UNLESS TSTREAM (RETURN))
+                                           (SETQ TEXTOBJ (TEXTOBJ! (FGETTSTR TSTREAM TEXTOBJ)))
+                                           (CL:WHEN (FGETTOBJ TEXTOBJ EDITFINISHEDFLG)
+                                                  (RETURN))
+                                           (CL:WHEN (OR (\TEDIT.BUTTONEVENTFN.INTITLE Y PANE TEXTOBJ)
+                                                        (\TEDIT.BUTTONEVENTFN.INACTIVE TEXTOBJ PANE)
+                                                        (\TEDIT.PANE.SPLIT TEXTOBJ PANE))
+                                                  (RETURN)) 

-                                               (* ;; "")
+                                           (* ;; "")

-                                               (* ;; 
+                                           (* ;; 
              "The usual case -- a valid click in this pane.  And there's nothing else going on now.")

                                         (* ;; "Make sure the caret isn't being displayed, then change to the special tall one so it is easier to see during typein")

-                                               (\CARET.DOWN)
-                                               [RESETSAVE (\TEDIT.CARET TEXTOBJ BXHICARET)
-                                                      `(\TEDIT.CARET ,TEXTOBJ ,BXCARET] 
+                                           (\CARET.DOWN)
+                                           [RESETSAVE (\TEDIT.CARET TEXTOBJ BXHICARET)
+                                                  `(\TEDIT.CARET ,TEXTOBJ ,BXCARET] 

-                                               (* ;; "")
+                                           (* ;; "")

-                                               (SETQ READONLY (FGETTOBJ TEXTOBJ TXTREADONLY))
-                                               (SETQ NEWOPERATION (\TEDIT.BUTTONEVENTFN.GETOPERATION
-                                                                   READONLY NIL)) 
+                                           (SETQ READONLY (FGETTOBJ TEXTOBJ TXTREADONLY))
+                                           (SETQ NEWOPERATION (\TEDIT.BUTTONEVENTFN.GETOPERATION
+                                                               READONLY NIL)) 

-                                               (* ;; "")
+                                           (* ;; "")

-                                               (if (SETQ CURSEL (FGETTOBJ TEXTOBJ SECONDARYSEL))
-                                                   then      (* ; 
+                                           (if (SETQ CURSEL (FGETTOBJ TEXTOBJ SECONDARYSEL))
+                                               then          (* ; 
                                                       "Mouse moved out and came back...and clicked.")
-                                                        (SETQ CUROPERATION (FGETSEL CURSEL 
-                                                                                  SELOPERATION))
-                                                        (SETQ PENDINGDEL (EQ CUROPERATION
-                                                                             'PENDINGDEL))
-                                                        (CL:UNLESS (EQ NEWOPERATION CUROPERATION)
+                                                    (SETQ CUROPERATION (FGETSEL CURSEL SELOPERATION))
+                                                             (* ; "Shift keys of secondary selection")
+                                                    (SETQ PENDINGDEL (EQ CUROPERATION 'PENDINGDEL))
+                                                    (CL:UNLESS (EQ NEWOPERATION CUROPERATION)
                                                             (* ; 
-                                                    "Shift keys have changed, turn off old secondary")
-                                                            (\TEDIT.SEL.OFF TSTREAM CURSEL))
-                                                        (CL:WHEN (EQ NEWOPERATION 'NORMAL)
-                                                             (* ; "")
-                                                            (CL:UNLESS (SETQ CURSEL (
+                                                 "If shift keys have changed, turn off old secondary")
+                                                        (\TEDIT.SECONDARYSEL.OFF TSTREAM))
+                                                    (CL:WHEN (EQ NEWOPERATION 'NORMAL)
+                                                             (* ; "Go back to normalpicik FILES?")
+                                                        (CL:UNLESS (SETQ CURSEL (
                                                                     \TEDIT.BUTTONEVENTFN.CURSEL.INIT
-                                                                                     NEWOPERATION 
-                                                                                     TSTREAM))
-                                                                   (RETURN)))
-                                                 elseif (SETQ CURSEL (
-                                                                     \TEDIT.BUTTONEVENTFN.CURSEL.INIT
-                                                                      NEWOPERATION TSTREAM))
-                                                   then (SETQ CUROPERATION 'NORMAL)
-                                                 else (RETURN))
-                                               (SETQ NEWSEL (\TEDIT.COPYSEL CURSEL)) 
+                                                                                 'NORMAL TSTREAM))
+                                                               (RETURN)))
+                                             elseif (SETQ CURSEL (\TEDIT.BUTTONEVENTFN.CURSEL.INIT
+                                                                  NEWOPERATION TSTREAM))
+                                               then (SETQ CUROPERATION (FGETSEL CURSEL SELOPERATION))
+                                             else (RETURN))
+                                           (SETQ NEWSEL (\TEDIT.COPYSEL CURSEL)) 
                                                             (* ; 
                                                      "Gets line-chains and consistent initial looks")
-                                               (FSETTOBJ TEXTOBJ LASTARROWX NIL)
-               eachtime (BLOCK)                              (* ; "Give other processes a chance")
-                     (GETMOUSESTATE)                         (* ; 
+                                           (FSETTOBJ TEXTOBJ LASTARROWX NIL)
+                                           (SETQ REGIONTYPE (\TEDIT.REGIONTYPE CURSEL TEXTOBJ))
+           eachtime (BLOCK)                                  (* ; "Give other processes a chance")
+                 (GETMOUSESTATE)                             (* ; 
                                                             "And get the new mouse and key info")
-                     (\TEDIT.CURSORMOVEDFN PANE)
-                     (SETQ NEWOPERATION (\TEDIT.BUTTONEVENTFN.GETOPERATION READONLY CUROPERATION))
-                     (FSETTOBJ TEXTOBJ SECONDARYSEL CURSEL) 
+                 (\TEDIT.CURSORMOVEDFN PANE)
+                 (SETQ NEWOPERATION (\TEDIT.BUTTONEVENTFN.GETOPERATION READONLY CUROPERATION))
+                 (FSETTOBJ TEXTOBJ SECONDARYSEL CURSEL) 

-                     (* ;; "We're done if keys and buttons are up")
+                 (* ;; "We're done if keys and buttons are up")
 until (AND (EQ NEWOPERATION 'NORMAL)
            (ALLBUTTONSUP)) unless (AND (IEQP OLDX (SETQ X (LASTMOUSEX DS)))
                                        (IEQP OLDY (SETQ Y (LASTMOUSEY DS)))
                                        (EQ CUROPERATION NEWOPERATION))
-               do (CL:UNLESS (INSIDEP (PANEREGION PANE PREG)
-                                    X Y)                     (* ; 
-                                                     "Left the window, stay in the loop if scrolling")
-                      (CL:UNLESS (IN/SCROLL/BAR? PANE LASTMOUSEX LASTMOUSEY)
-                             (RETURN))
-                      (SCROLL.HANDLER PANE)) 
+           do (CL:UNLESS (INSIDEP (PANEREGION PANE PREG)
+                                X Y)                         (* ; 
+                   "Left the window, relinquish control until a button click or cursor comes back in")
+                  (RETURN)) 

-                  (* ;; "")
+              (* ;; "")

-                  (* ;; "Polling loop, track the mouse until the buttons and modifier keys come up, i.e. NORMAL Nothing to do until the mouse moves or the operation changes. .")
+              (* ;; "Polling loop, track the mouse until the buttons and modifier keys come up, i.e. NORMAL Nothing to do until the mouse moves or the operation changes. .")

-                  (* ;; "First and always: CURSEL is ON at this point and matches the display. NEWSEL may not be well-defined.")
+              (* ;; "First and always: CURSEL is ON at this point and matches the display. NEWSEL may not be well-defined.")

-                  (* ;; "Ready to track the selection.")
+              (* ;; "Ready to track the selection.")

-                  (SETQ OLDX X)
-                  (SETQ OLDY Y)
-                  (CL:UNLESS (EQ NEWOPERATION CUROPERATION)  (* ; "Keys changed ")
-                      (\TEDIT.SEL.OFF TSTREAM CURSEL)        (* ; "Switch to new highlighting")
-                      (\TEDIT.SET.SEL.LOOKS CURSEL NEWOPERATION)
-                      (\TEDIT.SET.SEL.LOOKS NEWSEL NEWOPERATION)
-                      (CL:WHEN (EQ NEWOPERATION 'NORMAL)
+              (SETQ OLDX X)
+              (SETQ OLDY Y)
+              (CL:UNLESS (EQ NEWOPERATION CUROPERATION)      (* ; "Keys changed ")
+                  (\TEDIT.SEL.OFF TSTREAM CURSEL)            (* ; "Switch to new highlighting")
+                  (\TEDIT.SET.SEL.LOOKS CURSEL NEWOPERATION)
+                  (\TEDIT.SET.SEL.LOOKS NEWSEL NEWOPERATION)
+                  (CL:WHEN (EQ NEWOPERATION 'NORMAL)

-                          (* ;; "Switching from e.g. COPY to NORMAL with button down. Since we didn't start out NORMAL, the original normal selection is still on the screen.  We take it down here, and establish the current (off) CURSEL as the new restoration selection")
+                      (* ;; "Switching from e.g. COPY to NORMAL with button down. Since we didn't start out NORMAL, the original normal selection is still on the screen.  We take it down here, and establish the current (off) CURSEL as the new restoration selection")

-                          (\TEDIT.SEL.OFF TSTREAM CURSEL)
-                          (\TEDIT.COPYSEL CURSEL (TEXTSEL TEXTOBJ)))
-                      (\TEDIT.SEL.ON TSTREAM CURSEL)
-                      (SETQ CUROPERATION NEWOPERATION)) 
+                      (\TEDIT.SEL.OFF TSTREAM CURSEL)
+                      (\TEDIT.COPYSEL CURSEL (TEXTSEL TEXTOBJ)))
+                  (\TEDIT.SEL.ON TSTREAM CURSEL)
+                  (SETQ CUROPERATION NEWOPERATION)) 

-                  (* ;; "Update NEWSEL each time around. Note that \TEDIT.XYTOSEL fixes but doesn't show the selection, we do that here. MOUSEREGION is set by \TEDITCURSORMOVEDFN, below.")
+              (* ;; "Update NEWSEL each time around. Note that \TEDIT.XYTOSEL fixes but doesn't show the selection, we do that here. MOUSEREGION is set by \TEDITCURSORMOVEDFN, below.")

-                  (if (\TEDIT.MOUSESTATE RIGHT)
-                      then                                   (* ; 
+              (if (\TEDIT.MOUSESTATE RIGHT)
+                  then                                       (* ; 
                                                           "Right button: NEWSEL extends last CURSEL")
-                           (\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'RIGHT CURSEL)
-                           (CL:WHEN (FGETSEL NEWSEL SET)
-                               (CL:WHEN (AND TEDIT.EXTEND.PENDING.DELETE (NOT PENDINGDEL)
-                                             (EQ CUROPERATION 'NORMAL)
-                                             (NOT (FGETTOBJ TEXTOBJ TXTREADONLY)))
+                       (\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'RIGHT CURSEL REGIONTYPE)
+                       (CL:WHEN (FGETSEL NEWSEL SET)
+                           (CL:WHEN (AND TEDIT.EXTEND.PENDING.DELETE (NOT PENDINGDEL)
+                                         (EQ CUROPERATION 'NORMAL)
+                                         (NOT (FGETTOBJ TEXTOBJ TXTREADONLY)))

-                                 (* ;; "Switch to simulation of Laurel bluependingdelete: Black, deletes on type-in. Coerce CURSEL and display for pending looks.  Otherwise, CURSEL is already BPD and stays on to avoid flicker in extending")
+                               (* ;; "Switch to simulation of Laurel bluependingdelete: Black, deletes on type-in. Coerce CURSEL and display for pending looks.  Otherwise, CURSEL is already BPD and stays on to avoid flicker in extending")

-                                   (\TEDIT.SEL.OFF TSTREAM CURSEL)
+                               (\TEDIT.SEL.OFF TSTREAM CURSEL)
                                                             (* ; 
                                                             "Take down old looks, change, re-show")
-                                   (\TEDIT.SET.SEL.LOOKS CURSEL 'PENDINGDEL)
-                                   (\TEDIT.SET.SEL.LOOKS NEWSEL 'PENDINGDEL)
-                                   (\TEDIT.SEL.ON TSTREAM CURSEL)
-                                   (SETQ PENDINGDEL T))
-                               [\TEDIT.EXTEND.SEL NEWSEL CURSEL TSTREAM (MEMB CUROPERATION
-                                                                              '(COPY COPYLOOKS]) 
+                               (\TEDIT.SET.SEL.LOOKS CURSEL 'PENDINGDEL)
+                               (\TEDIT.SET.SEL.LOOKS NEWSEL 'PENDINGDEL)
+                               (\TEDIT.SEL.ON TSTREAM CURSEL)
+                               (SETQ PENDINGDEL T))
+                           [\TEDIT.EXTEND.SEL NEWSEL CURSEL TSTREAM (MEMB CUROPERATION
+                                                                          '(COPY COPYLOOKS]) 
                                                             (* ; "No valid selection, go to cleanup")
-                    else (if (\TEDIT.MOUSESTATE LEFT)
-                             then                            (* ; "Left selects char/point. ")
-                                  (\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'LEFT CURSEL)
-                           elseif (\TEDIT.MOUSESTATE MIDDLE)
-                             then                            (* ; "Middle selects word/line")
-                                  (\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'MIDDLE CURSEL
-                                         ))
-                         (CL:WHEN (AND (FGETSEL NEWSEL SET)
-                                       (\TEDIT.SEL.CHANGED? NEWSEL CURSEL)
-                                       (OR (NOT (ALLBUTTONSUP))
-                                           (FGETSEL NEWSEL SELOBJ)))
+                else (if (\TEDIT.MOUSESTATE LEFT)
+                         then                                (* ; "Left selects char/point. ")
+                              (\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'LEFT CURSEL 
+                                     REGIONTYPE)
+                       elseif (\TEDIT.MOUSESTATE MIDDLE)
+                         then                                (* ; "Middle selects word/line")
+                              (\TEDIT.XYTOSEL X Y NEWSEL TSTREAM CUROPERATION PANE 'MIDDLE CURSEL 
+                                     REGIONTYPE))
+                     (CL:WHEN (AND (FGETSEL NEWSEL SET)
+                                   (\TEDIT.SEL.CHANGED? NEWSEL CURSEL)
+                                   (OR (NOT (ALLBUTTONSUP))
+                                       (FGETSEL NEWSEL SELOBJ)))

-                             (* ;; "Selection has changed while at least one button is down. Take down current CURSEL highlighting, switch to NEWSEL.  If the mouse condition is removed, the secondary selection can be lost if the mouse moves while the operation keys are still down.  But if the copy isn't done when NEWSEL picks out an object, the object will be lost. ")
+                         (* ;; "Selection has changed while at least one button is down. Take down current CURSEL highlighting, switch to NEWSEL.  If the mouse condition is removed, the secondary selection can be lost if the mouse moves while the operation keys are still down.  But if the copy isn't done when NEWSEL picks out an object, the object will be lost. ")

-                             (\TEDIT.SEL.OFF TSTREAM CURSEL)
-                             (\TEDIT.COPYSEL NEWSEL CURSEL)
-                             (\TEDIT.SEL.ON TSTREAM CURSEL))) 
+                         (\TEDIT.SEL.OFF TSTREAM CURSEL)
+                         (\TEDIT.COPYSEL NEWSEL CURSEL)
+                         (\TEDIT.SEL.ON TSTREAM CURSEL))) 

-                  (* ;; "CURSEL now matches the display and CUROPERATION.")
+              (* ;; "CURSEL now matches the display and CUROPERATION.")
 finally 

       (* ;; "Out of Polling loop")
@@ -1358,7 +1376,7 @@
                  'NORMAL)                                   (* ; "Restore TEXTSEL")
           (\TEDIT.SEL.ON TSTREAM)
           (RETURN))
-       (\TEDIT.BUTTONEVENTFN.DOOPERATION CURSEL CUROPERATION TSTREAM PANE PENDINGDEL TTYPROC))))])
+       (\TEDIT.BUTTONEVENTFN.DOOPERATION CURSEL CUROPERATION TSTREAM PANE PENDINGDEL TTYPROC)))])

 (\TEDIT.BUTTONEVENTFN.DOOPERATION
  [LAMBDA (CURSEL CUROPERATION TSTREAM PANE PENDINGDEL TTYPROC)
@@ -2393,7 +2411,8 @@
 (DEFINEQ

 (TEDIT.DEACTIVATE.WINDOW
-  [LAMBDA (PANE)                                             (* ; "Edited 30-May-2025 12:54 by rmk")
+  [LAMBDA (PANE)                                             (* ; "Edited 10-May-2026 18:03 by rmk")
+                                                             (* ; "Edited 30-May-2025 12:54 by rmk")
                                                             (* ; "Edited  9-May-2025 14:54 by rmk")
                                                             (* ; "Edited  6-May-2025 15:57 by rmk")
                                                             (* ; "Edited  4-May-2025 21:45 by rmk")
@@ -2455,7 +2474,10 @@
                                                       "Close the file that this window was open on.")
               (CL:UNLESS (fetch (TEXTWINDOW CLOSINGFILE) of PANEWINDOW)
                   (replace (TEXTWINDOW CLOSINGFILE) of PANEWINDOW with T)
-                   (CLOSEF? (FGETTOBJ TEXTOBJ TXTFILE))))    (* ; "Close any open menus")
+                   (CLOSEF? (FGETTOBJ TEXTOBJ TXTFILE))))
+           (CL:WHEN (FGETTOBJ TEXTOBJ MENUFLG)               (* ; 
+                                                  "This is a menu, detach it so that space closes up")
+               (FREEATTACHEDWINDOW PANEWINDOW))              (* ; " Close any open menus")
           (for MENUW MTEXTOBJ in (ATTACHEDWINDOWS PANE) when (AND (SETQ MTEXTOBJ (TEXTOBJ MENUW T))
                                                                   (FGETTOBJ MTEXTOBJ MENUFLG))
              do 
@@ -2463,12 +2485,9 @@

                 (FSETTOBJ MTEXTOBJ EDITFINISHEDFLG T)
                 (WINDOWPROP MENUW 'TEDITMENU NIL)
-                 (GIVE.TTY.PROCESS MENUW))
-           (\TEDIT.CLOSEPANE PANE T)                         (* ; "We're already closing")
-
-     (* ;; "Let it kill itself")
-
-           (GIVE.TTY.PROCESS PANE])
+                 (TEDIT.KILL MTEXTOBJ))
+           (\TEDIT.CLOSEPANE PANE T)
+           (TEDIT.KILL TSTREAM])

 (\TEDIT.RESHAPEFN
  [LAMBDA (PANE BITS OLDREGION)                              (* ; "Edited 20-Apr-2025 12:55 by rmk")
@@ -2549,7 +2568,8 @@
               else (WINDOWPROP PRIMARYPANE 'SAVED-TYPED-REGION WHOLEREGION)))])

 (\TEDIT.CLOSEPANE
-  [LAMBDA (PANE DONTCLOSEW)                                  (* ; "Edited  9-May-2025 00:22 by rmk")
+  [LAMBDA (PANE DONTCLOSEW)                                  (* ; "Edited 16-May-2026 13:42 by rmk")
+                                                             (* ; "Edited  9-May-2025 00:22 by rmk")
                                                             (* ; "Edited  6-May-2025 16:04 by rmk")

    (* ;; "This removes all of the TEdit triggers on PANE, closes its window unless DONTCLOSEW.")
@@ -2557,14 +2577,12 @@
    (LET* ((TEXTOBJ (TEXTOBJ PANE))
           (PANEWINDOW (PANEWINDOW PANE))
           (SEL (TEXTSEL TEXTOBJ)))
-          (\TEDIT.SETCARET SEL PANE TEXTOBJ 'OFF)
-          (WINDOWPROP PANEWINDOW 'PROCESS.EXITFN NIL)
-          (WINDOWPROP PANEWINDOW 'PROCESS.IDLEFN NIL)        (* ; "Restore any disarmed interrupts.")
+          (\TEDIT.SETCARET SEL PANE TEXTOBJ 'OFF)            (* ; "Restore any disarmed interrupts.")
          (DETACHWINDOW PANEWINDOW)
          (\TEDIT.UNLINKPANE PANE)
-          (for PROP in '(CURSOROUTFN CURSORMOVEDFN BUTTONEVENTFN RIGHTBUTTONFN SCROLLFN AFTERMOVEFN 
-                               REPAINTFN WINDOWENTRYFN NEWREGIONFN)
-             do (WINDOWPROP PANEWINDOW PROP NIL))
+          (for PROP in '(PROCESS.EXITFN PROCESS.IDLEFN CURSOROUTFN CURSORINFN CURSORMOVEDFN 
+                               BUTTONEVENTFN RIGHTBUTTONFN SCROLLFN AFTERMOVEFN REPAINTFN 
+                               WINDOWENTRYFN NEWREGIONFN) do (WINDOWPROP PANEWINDOW PROP NIL))
          (for PROP in '(CLOSEFN RESHAPEFN) do (WINDOWDELPROP PANEWINDOW 'CLOSEFN
                                                      (FUNCTION TEDIT.DEACTIVATE.WINDOW))
                                               (WINDOWDELPROP PANEWINDOW 'RESHAPEFN
@@ -3698,36 +3716,36 @@
 (RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ 
                                         TEDIT.ICON.TITLE.REGION))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (17097 17993 (TEDIT.DEFER.UPDATES 17107 . 17991)) (17994 46195 (\TEDIT.WINDOW.CREATE 
-18004 . 24867) (\TEDIT.WINDOW.GETREGION 24869 . 30356) (\TEDIT.WINDOW.SETUP 30358 . 34865) (
-\TEDIT.MINIMAL.WINDOW.SETUP 34867 . 42827) (\TEDIT.CLEARPANE 42829 . 43546) (\TEDIT.FILL.PANES 43548
- . 46193)) (46196 69923 (\TEDIT.CURSORMOVEDFN 46206 . 51733) (\TEDIT.CURSOROUTFN 51735 . 52532) (
-\TEDIT.ACTIVE.WINDOWP 52534 . 53604) (\TEDIT.EXPANDFN 53606 . 54169) (\TEDIT.MAINW 54171 . 55451) (
-\TEDIT.MAINSTREAM 55453 . 55787) (\TEDIT.PRIMARYPANE 55789 . 56559) (\TEDIT.PANELIST 56561 . 57057) (
-\TEDIT.NEWREGIONFN 57059 . 59575) (\TEDIT.SET.WINDOW.EXTENT 59577 . 64559) (\TEDIT.SHRINK.ICONCREATE 
-64561 . 67294) (\TEDIT.SHRINKFN 67296 . 67705) (\TEDIT.PANEREGION 67707 . 69921)) (69955 105080 (
-\TEDIT.BUTTONEVENTFN 69965 . 84672) (\TEDIT.BUTTONEVENTFN.DOOPERATION 84674 . 92145) (
-\TEDIT.BUTTONEVENTFN.GETOPERATION 92147 . 93989) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 93991 . 97661) (
-\TEDIT.BUTTONEVENTFN.INACTIVE 97663 . 100093) (\TEDIT.BUTTONEVENTFN.INTITLE 100095 . 101930) (
-\TEDIT.COPYINSERTFN 101932 . 103064) (\TEDIT.FOREIGN.COPY 103066 . 105078)) (105081 122644 (
-\TEDIT.PANE.SPLIT 105091 . 109039) (\TEDIT.SPLITW 109041 . 117100) (\TEDIT.UNSPLITW 117102 . 121301) (
-\TEDIT.LINKPANES 121303 . 122066) (\TEDIT.UNLINKPANE 122068 . 122642)) (124078 124969 (TEDITWINDOWP 
-124088 . 124967)) (125006 128109 (TEDIT.GETINPUT 125016 . 127459) (\TEDIT.MAKEFILENAME 127461 . 128107
-)) (128158 136241 (TEDIT.PROMPTWINDOW 128168 . 128482) (TEDIT.PROMPTPRINT 128484 . 131451) (
-TEDIT.PROMPTCLEAR 131453 . 133288) (TEDIT.PROMPTFLASH 133290 . 134548) (\TEDIT.PROMPT.PAGEFULLFN 
-134550 . 136239)) (136479 147057 (\TEDIT.FILENAME 136489 . 137261) (\TEDIT.DEFAULT.TITLE 137263 . 
-139642) (\TEDIT.WINDOW.TITLE 139644 . 141813) (\TEDIT.LIKELY.FILENAME 141815 . 144539) (
-\TEDIT.UPDATE.TITLE 144541 . 147055)) (147100 159584 (TEDIT.DEACTIVATE.WINDOW 147110 . 152683) (
-\TEDIT.RESHAPEFN 152685 . 154770) (\TEDIT.REPAINTFN 154772 . 154996) (\TEDIT.CLOSESPLITS 154998 . 
-157443) (\TEDIT.CLOSEPANE 157445 . 159582)) (159585 202384 (\TEDIT.SCROLLFN 159595 . 161826) (
-\TEDIT.SCROLLCH.TOP 161828 . 163939) (\TEDIT.SCROLLCH.BOTTOM 163941 . 168271) (\TEDIT.SCROLLUP 168273
- . 173999) (\TEDIT.TOPLINE.YTOP 174001 . 175670) (\TEDIT.SCROLLDOWN 175672 . 182711) (
-\TEDIT.SCROLL.CARET 182713 . 185551) (\TEDIT.VISIBLECARETP 185553 . 187847) (\TEDIT.VISIBLECHARP 
-187849 . 188940) (\TEDIT.BITMAPLINES 188942 . 192862) (\TEDIT.SETPANE.TOPLINE 192864 . 193476) (
-\TEDIT.SHIFTLINES 193478 . 202382)) (202385 213254 (\TEDIT.ONSCREEN? 202395 . 206946) (
-\TEDIT.ONSCREEN.REGION 206948 . 210599) (\TEDIT.AFTERMOVEFN 210601 . 211498) (OFFSCREENP 211500 . 
-213252)) (213296 216110 (\TEDIT.PROCIDLEFN 213306 . 214966) (\TEDIT.PROCENTRYFN 214968 . 215413) (
-\TEDIT.PROCEXITFN 215415 . 216108)) (216189 229414 (\TEDIT.DOWNCARET 216199 . 216992) (
-\TEDIT.FLASHCARET 216994 . 219105) (\TEDIT.UPCARET 219107 . 220211) (TEDIT.NORMALIZECARET 220213 . 
-223431) (\TEDIT.SETCARET 223433 . 228784) (\TEDIT.CARET 228786 . 229412)))))
+  (FILEMAP (NIL (17130 18026 (TEDIT.DEFER.UPDATES 17140 . 18024)) (18027 46558 (\TEDIT.WINDOW.CREATE 
+18037 . 24900) (\TEDIT.WINDOW.GETREGION 24902 . 30495) (\TEDIT.WINDOW.SETUP 30497 . 35004) (
+\TEDIT.MINIMAL.WINDOW.SETUP 35006 . 43190) (\TEDIT.CLEARPANE 43192 . 43909) (\TEDIT.FILL.PANES 43911
+ . 46556)) (46559 71747 (\TEDIT.CURSORMOVEDFN 46569 . 52096) (\TEDIT.CURSOROUTFN 52098 . 52895) (
+\TEDIT.CURSORINFN 52897 . 54356) (\TEDIT.ACTIVE.WINDOWP 54358 . 55428) (\TEDIT.EXPANDFN 55430 . 55993)
+ (\TEDIT.MAINW 55995 . 57275) (\TEDIT.MAINSTREAM 57277 . 57611) (\TEDIT.PRIMARYPANE 57613 . 58383) (
+\TEDIT.PANELIST 58385 . 58881) (\TEDIT.NEWREGIONFN 58883 . 61399) (\TEDIT.SET.WINDOW.EXTENT 61401 . 
+66383) (\TEDIT.SHRINK.ICONCREATE 66385 . 69118) (\TEDIT.SHRINKFN 69120 . 69529) (\TEDIT.PANEREGION 
+69531 . 71745)) (71779 106619 (\TEDIT.BUTTONEVENTFN 71789 . 86211) (\TEDIT.BUTTONEVENTFN.DOOPERATION 
+86213 . 93684) (\TEDIT.BUTTONEVENTFN.GETOPERATION 93686 . 95528) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 
+95530 . 99200) (\TEDIT.BUTTONEVENTFN.INACTIVE 99202 . 101632) (\TEDIT.BUTTONEVENTFN.INTITLE 101634 . 
+103469) (\TEDIT.COPYINSERTFN 103471 . 104603) (\TEDIT.FOREIGN.COPY 104605 . 106617)) (106620 124183 (
+\TEDIT.PANE.SPLIT 106630 . 110578) (\TEDIT.SPLITW 110580 . 118639) (\TEDIT.UNSPLITW 118641 . 122840) (
+\TEDIT.LINKPANES 122842 . 123605) (\TEDIT.UNLINKPANE 123607 . 124181)) (125617 126508 (TEDITWINDOWP 
+125627 . 126506)) (126545 129648 (TEDIT.GETINPUT 126555 . 128998) (\TEDIT.MAKEFILENAME 129000 . 129646
+)) (129697 137780 (TEDIT.PROMPTWINDOW 129707 . 130021) (TEDIT.PROMPTPRINT 130023 . 132990) (
+TEDIT.PROMPTCLEAR 132992 . 134827) (TEDIT.PROMPTFLASH 134829 . 136087) (\TEDIT.PROMPT.PAGEFULLFN 
+136089 . 137778)) (138018 148596 (\TEDIT.FILENAME 138028 . 138800) (\TEDIT.DEFAULT.TITLE 138802 . 
+141181) (\TEDIT.WINDOW.TITLE 141183 . 143352) (\TEDIT.LIKELY.FILENAME 143354 . 146078) (
+\TEDIT.UPDATE.TITLE 146080 . 148594)) (148639 161431 (TEDIT.DEACTIVATE.WINDOW 148649 . 154465) (
+\TEDIT.RESHAPEFN 154467 . 156552) (\TEDIT.REPAINTFN 156554 . 156778) (\TEDIT.CLOSESPLITS 156780 . 
+159225) (\TEDIT.CLOSEPANE 159227 . 161429)) (161432 204231 (\TEDIT.SCROLLFN 161442 . 163673) (
+\TEDIT.SCROLLCH.TOP 163675 . 165786) (\TEDIT.SCROLLCH.BOTTOM 165788 . 170118) (\TEDIT.SCROLLUP 170120
+ . 175846) (\TEDIT.TOPLINE.YTOP 175848 . 177517) (\TEDIT.SCROLLDOWN 177519 . 184558) (
+\TEDIT.SCROLL.CARET 184560 . 187398) (\TEDIT.VISIBLECARETP 187400 . 189694) (\TEDIT.VISIBLECHARP 
+189696 . 190787) (\TEDIT.BITMAPLINES 190789 . 194709) (\TEDIT.SETPANE.TOPLINE 194711 . 195323) (
+\TEDIT.SHIFTLINES 195325 . 204229)) (204232 215101 (\TEDIT.ONSCREEN? 204242 . 208793) (
+\TEDIT.ONSCREEN.REGION 208795 . 212446) (\TEDIT.AFTERMOVEFN 212448 . 213345) (OFFSCREENP 213347 . 
+215099)) (215143 217957 (\TEDIT.PROCIDLEFN 215153 . 216813) (\TEDIT.PROCENTRYFN 216815 . 217260) (
+\TEDIT.PROCEXITFN 217262 . 217955)) (218036 231261 (\TEDIT.DOWNCARET 218046 . 218839) (
+\TEDIT.FLASHCARET 218841 . 220952) (\TEDIT.UPCARET 220954 . 222058) (TEDIT.NORMALIZECARET 222060 . 
+225278) (\TEDIT.SETCARET 225280 . 230631) (\TEDIT.CARET 230633 . 231259)))))
 STOP
--- a/library/tedit/TEDIT-WINDOW.LCOM
+++ b/library/tedit/TEDIT-WINDOW.LCOM
--- a/lispusers/COMPAREDIRECTORIES
+++ b/lispusers/COMPAREDIRECTORIES
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

-(FILECREATED "28-Apr-2026 23:41:24" {MEDLEY}<lispusers>COMPAREDIRECTORIES.;289 139726 
+(FILECREATED "11-May-2026 23:08:09" {MEDLEY}<lispusers>COMPAREDIRECTORIES.;293 140080 

      :EDIT-BY rmk

-      :CHANGES-TO (FNS CDFILES.PATS CDFILES.MATCH CDBROWSER-COPY)
+      :CHANGES-TO (FNS CD.COMMANDSELECTEDFN CDFILES CD-MENUFN)

-      :PREVIOUS-DATE "28-Apr-2026 21:38:49" {MEDLEY}<lispusers>COMPAREDIRECTORIES.;288)
+      :PREVIOUS-DATE "10-May-2026 13:03:16" {MEDLEY}<lispusers>COMPAREDIRECTORIES.;290)


 (PRETTYCOMPRINT COMPAREDIRECTORIESCOMS)
@@ -410,7 +410,8 @@
 (DEFINEQ

 (CDFILES
-  [LAMBDA (DIR INCLUDEDFILES EXCLUDEDFILES ALLVERSIONS DEPTH)(* ; "Edited 20-Oct-2025 23:25 by rmk")
+  [LAMBDA (DIR INCLUDEDFILES EXCLUDEDFILES ALLVERSIONS DEPTH)(* ; "Edited 11-May-2026 13:06 by rmk")
+                                                             (* ; "Edited 20-Oct-2025 23:25 by rmk")
                                                             (* ; "Edited 17-Jun-2023 23:04 by rmk")
                                                             (* ; "Edited  3-Oct-2022 12:03 by rmk")
                                                             (* ; "Edited 25-Apr-2022 08:42 by rmk")
@@ -453,7 +454,8 @@
         (* ;; "ENUMPAT is the single pattern that we use for the directory enumeration (given the enumeration depth). We have to go to the most general specification, then filter the generated results.")

         (FOR P (N _ (CAAR INCLUDES))
-              (E _ (CADAR INCLUDES))
+              (E _ (OR (CADAR INCLUDES)
+                       ""))
              (SD _ (CADDAR INCLUDES)) IN (CDR INCLUDES)
            DO (CL:UNLESS (EQ '* N)
                   (SETQ N (POP P)))
@@ -1903,7 +1905,8 @@
           'DON'T])

 (CD.COMMANDSELECTEDFN
-  [LAMBDA (MENUITEM MENU KEY)                                (* ; "Edited 28-Oct-2025 14:34 by rmk")
+  [LAMBDA (MENUITEM MENU KEY)                                (* ; "Edited 11-May-2026 23:07 by rmk")
+                                                             (* ; "Edited 28-Oct-2025 14:34 by rmk")
                                                             (* ; "Edited  6-Mar-2022 19:52 by rmk")
                                                             (* ; "Edited 24-Feb-2022 19:52 by rmk")
                                                             (* ; "Edited  5-Feb-2022 17:23 by rmk")
@@ -1922,7 +1925,7 @@
                   (PWINDOW (GETPROMPTWINDOW WINDOW))
                   (CDBROWSER (WINDOWPROP WINDOW 'TABLEBROWSER))
                   (USERDATA (TB.USERDATA CDBROWSER))
-                   (CDVALUE (LISTGET USERDATA 'CDVALUE))
+                   (CDVALUE (CDR (ASSOC 'CDVALUE USERDATA)))
                   (FN (CADR (LISTP MENUITEM)))
                   (MIDDLE (EQ KEY 'MIDDLE]
                  (DECLARE (SPECVARS WINDOW PWINDOW CDVALUE USERDATA))
@@ -1949,7 +1952,7 @@
                                                          (FETCH (CDENTRY INFO2) OF CDENTRY)))
                                            (TYPE (FETCH (CDINFO TYPE) OF (FETCH (CDENTRY INFO1)
                                                                             OF CDENTRY)))
-                                            (LABELS (APPLY* (OR (LISTGET USERDATA 'LABELFN)
+                                            (LABELS (APPLY* (OR (CDR (ASSOC 'LABELFN USERDATA))
                                                                (FUNCTION NILL))
                                                           FILE1 FILE2 USERDATA))
                                            (LABEL1 (OR (CAR LABELS)
@@ -1991,6 +1994,10 @@
 (CD-MENUFN
  [LAMBDA (TBITEM MENUITEM CDBROWSER KEY)

+    (* ;; "Edited 11-May-2026 13:07 by rmk")
+
+    (* ;; "Edited 10-May-2026 13:02 by rmk")
+
    (* ;; "Edited 10-Feb-2026 21:28 by rmk")

    (* ;; "Edited  8-Nov-2025 13:06 by rmk")
@@ -2021,15 +2028,15 @@
          CHILDREN)
         (SETQ CHILDREN
          (SELECTQ MENUITEM
-              (Compare (IF (AND FILE1 FILE2)
-                           THEN (CD-COMPARE-FILES FILE1 FILE2 LABEL1 LABEL2 TYPE (WINDOWPROP
+              (Compare (if (AND FILE1 FILE2)
+                           then (CD-COMPARE-FILES FILE1 FILE2 LABEL1 LABEL2 TYPE (WINDOWPROP
                                                                                  WINDOW
                                                                                  'REGION)
                                       CDBROWSER)
-                         ELSE (FLASHWINDOW T)
+                         else (FLASHWINDOW T)
                              (PRIN3 "Only one file" T)))
-              (See% left (IF FILE1
-                             THEN (if (PDFFILEP FILE1)
+              (See% left (if FILE1
+                             then (if (PDFFILEP FILE1)
                                      then (SEE-PDF FILE1)
                                    else (TEDIT-SEE FILE1 (RELCREATEREGION
                                                           (CL:IF (LISPSOURCEFILEP FILE1)
@@ -2039,17 +2046,17 @@
                                                           'RIGHT
                                                           'TOP
                                                           `(,WINDOW 0.5)
-                                                           (IPLUS (FETCH (REGION BOTTOM)
-                                                                     OF (WINDOWPROP WINDOW
+                                                           (IPLUS (fetch (REGION BOTTOM)
+                                                                     of (WINDOWPROP WINDOW
                                                                               'REGION))
                                                                  -1)
                                                           T)
                                                NIL
                                                (CONCAT "SEE window for " LABEL1)))
-                           ELSE (FLASHWINDOW T)
+                           else (FLASHWINDOW T)
                                (PRIN3 "No file to print" T)))
-              (See% right (IF FILE2
-                              THEN (if (PDFFILEP FILE2)
+              (See% right (if FILE2
+                              then (if (PDFFILEP FILE2)
                                       then (SEE-PDF FILE2)
                                     else (TEDIT-SEE FILE2 (RELCREATEREGION
                                                            (CL:IF (LISPSOURCEFILEP FILE2)
@@ -2059,17 +2066,17 @@
                                                            'LEFT
                                                            'TOP
                                                            `(,WINDOW 0.5)
-                                                            (IPLUS (FETCH (REGION BOTTOM)
-                                                                      OF (WINDOWPROP WINDOW
+                                                            (IPLUS (fetch (REGION BOTTOM)
+                                                                      of (WINDOWPROP WINDOW
                                                                                'REGION))
                                                                   -1)
                                                            NIL)
                                                 NIL
                                                 (CONCAT "SEE window for " LABEL2)))
-                            ELSE (FLASHWINDOW T)
+                            else (FLASHWINDOW T)
                                 (PRIN3 "No file to print" T)))
              ((See See% both) 
-                   (IF (AND FILE1 (PDFFILEP FILE1))
+                   (if (AND FILE1 (PDFFILEP FILE1))
                       then (SEE-PDF FILE1)
                            (CL:WHEN (AND FILE2 (PDFFILEP FILE2))
                                   (SEE-PDF FILE2))
@@ -2083,7 +2090,7 @@
                                        'LEFT
                                        'TOP
                                        `(,WINDOW 0.5 -701)
-                                        (IPLUS (FETCH (REGION BOTTOM) OF (WINDOWPROP WINDOW
+                                        (IPLUS (fetch (REGION BOTTOM) of (WINDOWPROP WINDOW
                                                                                'REGION))
                                               -1)
                                        NIL))))
@@ -2337,25 +2344,25 @@

 (MOVD? 'NILL 'TEDIT.FILEDATE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2683 23662 (COMPAREDIRECTORIES 2693 . 8028) (COMPAREDIRECTORIES.INFOS 8030 . 11259) (
-COMPAREDIRECTORIES.CANDIDATES 11261 . 14646) (CDENTRIES.SELECT 14648 . 19550) (
-COMPAREDIRECTORIES.INFOS.TYPE 19552 . 20896) (MATCHNAME 20898 . 21578) (CD.INSURECDVALUE 21580 . 23194
-) (CD.UPDATEWIDTHS 23196 . 23660)) (23663 34971 (CDFILES 23673 . 29770) (CDFILES.MATCH 29772 . 31782) 
-(CDFILES.PATS 31784 . 34969)) (34972 52990 (CDPRINT 34982 . 37499) (CDPRINT.HEADER 37501 . 38398) (
-CDPRINT.LINE 38400 . 41829) (CDPRINT.MAXWIDTHS 41831 . 45946) (CDPRINT.COLHEADERS 45948 . 47233) (
-CDPRINT.COLUMNS 47235 . 52355) (CDTEDIT 52357 . 52988)) (52991 62112 (CDMAP 53001 . 54433) (CDENTRY 
-54435 . 54744) (CDSUBSET 54746 . 56185) (CDMERGE 56187 . 60171) (CDMERGE.COMMON 60173 . 61488) (
-CD.SORT 61490 . 62110)) (62113 69651 (BINCOMP 62123 . 66412) (EOLTYPE 66414 . 68976) (EOLTYPE.SHOW 
-68978 . 69649)) (70179 82706 (FIND-UNCOMPILED-FILES 70189 . 73832) (FIND-UNSOURCED-FILES 73834 . 76218
-) (FIND-SOURCE-FILES 76220 . 77958) (FIND-COMPILED-FILES 77960 . 79837) (FIND-UNLOADED-FILES 79839 . 
-80692) (FIND-LOADED-FILES 80694 . 81122) (FIND-MULTICOMPILED-FILES 81124 . 82704)) (82707 91138 (
-CREATED-AS 82717 . 87514) (SOURCE-FOR-COMPILED-P 87516 . 90443) (COMPILE-SOURCE-DATE-DIFF 90445 . 
-91136)) (91139 101902 (FIX-DIRECTORY-DATES 91149 . 94599) (FIX-EQUIV-DATES 94601 . 96126) (
-COPY-COMPARED-FILES 96128 . 97949) (COPY-MISSING-FILES 97951 . 100108) (COMPILED-ON-SAME-SOURCE 100110
- . 101900)) (102096 109974 (CDBROWSER 102106 . 106073) (CDBROWSER.STRINGS 106075 . 109972)) (110136 
-111872 (CD.TABLEITEM 110146 . 110366) (CD.TABLEITEM.PRINTFN 110368 . 110567) (CD.TABLEITEM.COPYFN 
-110569 . 111627) (CDTABLEBROWSER.HEADING.REPAINTFN 111629 . 111870)) (111873 139210 (
-CDTABLEBROWSER.WHENSELECTEDFN 111883 . 112351) (CD.COMMANDSELECTEDFN 112353 . 118526) (CD-MENUFN 
-118528 . 125005) (CD-COMPARE-FILES 125007 . 128534) (CDBROWSER-COPY 128536 . 134084) (
-CDBROWSER-DELETE-FILE 134086 . 138689) (CD-SWAPDIRS 138691 . 139208)))))
+  (FILEMAP (NIL (2680 23659 (COMPAREDIRECTORIES 2690 . 8025) (COMPAREDIRECTORIES.INFOS 8027 . 11256) (
+COMPAREDIRECTORIES.CANDIDATES 11258 . 14643) (CDENTRIES.SELECT 14645 . 19547) (
+COMPAREDIRECTORIES.INFOS.TYPE 19549 . 20893) (MATCHNAME 20895 . 21575) (CD.INSURECDVALUE 21577 . 23191
+) (CD.UPDATEWIDTHS 23193 . 23657)) (23660 35108 (CDFILES 23670 . 29907) (CDFILES.MATCH 29909 . 31919) 
+(CDFILES.PATS 31921 . 35106)) (35109 53127 (CDPRINT 35119 . 37636) (CDPRINT.HEADER 37638 . 38535) (
+CDPRINT.LINE 38537 . 41966) (CDPRINT.MAXWIDTHS 41968 . 46083) (CDPRINT.COLHEADERS 46085 . 47370) (
+CDPRINT.COLUMNS 47372 . 52492) (CDTEDIT 52494 . 53125)) (53128 62249 (CDMAP 53138 . 54570) (CDENTRY 
+54572 . 54881) (CDSUBSET 54883 . 56322) (CDMERGE 56324 . 60308) (CDMERGE.COMMON 60310 . 61625) (
+CD.SORT 61627 . 62247)) (62250 69788 (BINCOMP 62260 . 66549) (EOLTYPE 66551 . 69113) (EOLTYPE.SHOW 
+69115 . 69786)) (70316 82843 (FIND-UNCOMPILED-FILES 70326 . 73969) (FIND-UNSOURCED-FILES 73971 . 76355
+) (FIND-SOURCE-FILES 76357 . 78095) (FIND-COMPILED-FILES 78097 . 79974) (FIND-UNLOADED-FILES 79976 . 
+80829) (FIND-LOADED-FILES 80831 . 81259) (FIND-MULTICOMPILED-FILES 81261 . 82841)) (82844 91275 (
+CREATED-AS 82854 . 87651) (SOURCE-FOR-COMPILED-P 87653 . 90580) (COMPILE-SOURCE-DATE-DIFF 90582 . 
+91273)) (91276 102039 (FIX-DIRECTORY-DATES 91286 . 94736) (FIX-EQUIV-DATES 94738 . 96263) (
+COPY-COMPARED-FILES 96265 . 98086) (COPY-MISSING-FILES 98088 . 100245) (COMPILED-ON-SAME-SOURCE 100247
+ . 102037)) (102233 110111 (CDBROWSER 102243 . 106210) (CDBROWSER.STRINGS 106212 . 110109)) (110273 
+112009 (CD.TABLEITEM 110283 . 110503) (CD.TABLEITEM.PRINTFN 110505 . 110704) (CD.TABLEITEM.COPYFN 
+110706 . 111764) (CDTABLEBROWSER.HEADING.REPAINTFN 111766 . 112007)) (112010 139564 (
+CDTABLEBROWSER.WHENSELECTEDFN 112020 . 112488) (CD.COMMANDSELECTEDFN 112490 . 118780) (CD-MENUFN 
+118782 . 125359) (CD-COMPARE-FILES 125361 . 128888) (CDBROWSER-COPY 128890 . 134438) (
+CDBROWSER-DELETE-FILE 134440 . 139043) (CD-SWAPDIRS 139045 . 139562)))))
 STOP
--- a/lispusers/COMPAREDIRECTORIES.LCOM
+++ b/lispusers/COMPAREDIRECTORIES.LCOM
--- a/lispusers/COMPARESOURCES
+++ b/lispusers/COMPARESOURCES
@@ -1,12 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

-(FILECREATED "13-Jun-2024 11:46:26" {WMEDLEY}<lispusers>COMPARESOURCES.;138 40991  
+(FILECREATED "11-May-2026 23:18:13" {MEDLEY}<lispusers>COMPARESOURCES.;141 41025  

      :EDIT-BY rmk

-      :CHANGES-TO (FNS \CS.COMPARE.MASTERS)
+      :CHANGES-TO (FNS CSBROWSER)

-      :PREVIOUS-DATE " 7-Feb-2024 16:08:54" {WMEDLEY}<lispusers>COMPARESOURCES.;137)
+      :PREVIOUS-DATE "13-Jun-2024 11:46:26" {MEDLEY}<lispusers>COMPARESOURCES.;138)


 (PRETTYCOMPRINT COMPARESOURCESCOMS)
@@ -644,6 +644,8 @@
 (CSBROWSER
  [LAMBDA (FILE1 FILE2 DW? LABEL1 LABEL2 REGION IGNOREFORMS TITLE)

+    (* ;; "Edited 11-May-2026 23:16 by rmk")
+
    (* ;; "Edited  7-Feb-2024 15:52 by rmk")

    (* ;; "Edited 17-Jun-2023 15:21 by rmk")
@@ -678,7 +680,7 @@
    (CL:UNLESS (LISPSOURCEFILEP FILE2)
           (ERROR FILE1 " is not a Medley source file"))
    (CL:UNLESS TITLE
-        (SETQ TITLE (CONCAT "COMPARESOURCES of " LABEL1 " and " LABEL2)))
+        (SETQ TITLE (CONCAT "Compare " LABEL1 "    and    " LABEL2)))
    (LET [(WINDOW (OBJ.CREATEW 'VERTICAL REGION TITLE NIL T (FONTPROP DEFAULTFONT 'HEIGHT]
         (WINDOWPROP WINDOW 'UNDERSCONTRUCTION T)
         (GETPROMPTWINDOW WINDOW T)
@@ -703,17 +705,17 @@
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1683 26182 (COMPARESOURCES 1693 . 8341) (\CS.COMPARE.MASTERS 8343 . 15981) (
-\CS.COMPARE.TYPES 15983 . 19249) (\CS.EXAMINE 19251 . 22429) (\CS.FIXFNS 22431 . 23933) (
-\CS.SORT.DECLARES 23935 . 24278) (\CS.SORT.DECLARE1 24280 . 25700) (\CS.FILTER.GARBAGE 25702 . 26180))
- (26183 31526 (\CS.ISFNFORM 26193 . 26461) (\CS.COMPARE.FNS 26463 . 26705) (\CS.FNSID 26707 . 26851) (
-\CS.ISVARFORM 26853 . 26958) (\CS.COMPARE.VARS 26960 . 27622) (\CS.ISMACROFORM 27624 . 27762) (
-\CS.ISRECFORM 27764 . 28092) (\CS.REC.NAME 28094 . 28413) (\CS.ISCOURIERFORM 28415 . 28515) (
-\CS.ISTEMPLATEFORM 28517 . 28615) (\CS.COMPARE.TEMPLATES 28617 . 28982) (\CS.ISPROPFORM 28984 . 29139)
- (\CS.PROP.NAME 29141 . 29286) (\CS.COMPARE.PROPS 29288 . 29445) (\CS.ISADDVARFORM 29447 . 29540) (
-\CS.COMPARE.ADDVARS 29542 . 29707) (\CS.ISFPKGCOMFORM 29709 . 29916) (\CS.COMPARE.FPKGCOMS 29918 . 
-30125) (\CS.COMPARE.DEFINE-FILE-INFO 30127 . 30717) (\CS.IGNOREFORMS 30719 . 31524)) (31527 37591 (
-CSOBJ.CREATE 31537 . 31950) (CSOBJ.DISPLAYFN 31952 . 32705) (CSOBJ.IMAGEBOXFN 32707 . 34868) (
-CSOBJ.BUTTONEVENTINFN 34870 . 37341) (CSOBJ.COPYBUTTONEVENTINFN 37343 . 37589)) (38472 40657 (
-CSBROWSER 38482 . 40655)))))
+  (FILEMAP (NIL (1671 26170 (COMPARESOURCES 1681 . 8329) (\CS.COMPARE.MASTERS 8331 . 15969) (
+\CS.COMPARE.TYPES 15971 . 19237) (\CS.EXAMINE 19239 . 22417) (\CS.FIXFNS 22419 . 23921) (
+\CS.SORT.DECLARES 23923 . 24266) (\CS.SORT.DECLARE1 24268 . 25688) (\CS.FILTER.GARBAGE 25690 . 26168))
+ (26171 31514 (\CS.ISFNFORM 26181 . 26449) (\CS.COMPARE.FNS 26451 . 26693) (\CS.FNSID 26695 . 26839) (
+\CS.ISVARFORM 26841 . 26946) (\CS.COMPARE.VARS 26948 . 27610) (\CS.ISMACROFORM 27612 . 27750) (
+\CS.ISRECFORM 27752 . 28080) (\CS.REC.NAME 28082 . 28401) (\CS.ISCOURIERFORM 28403 . 28503) (
+\CS.ISTEMPLATEFORM 28505 . 28603) (\CS.COMPARE.TEMPLATES 28605 . 28970) (\CS.ISPROPFORM 28972 . 29127)
+ (\CS.PROP.NAME 29129 . 29274) (\CS.COMPARE.PROPS 29276 . 29433) (\CS.ISADDVARFORM 29435 . 29528) (
+\CS.COMPARE.ADDVARS 29530 . 29695) (\CS.ISFPKGCOMFORM 29697 . 29904) (\CS.COMPARE.FPKGCOMS 29906 . 
+30113) (\CS.COMPARE.DEFINE-FILE-INFO 30115 . 30705) (\CS.IGNOREFORMS 30707 . 31512)) (31515 37579 (
+CSOBJ.CREATE 31525 . 31938) (CSOBJ.DISPLAYFN 31940 . 32693) (CSOBJ.IMAGEBOXFN 32695 . 34856) (
+CSOBJ.BUTTONEVENTINFN 34858 . 37329) (CSOBJ.COPYBUTTONEVENTINFN 37331 . 37577)) (38460 40691 (
+CSBROWSER 38470 . 40689)))))
 STOP
--- a/lispusers/COMPARESOURCES.LCOM
+++ b/lispusers/COMPARESOURCES.LCOM
--- a/lispusers/DATEFORMAT-EDITOR
+++ b/lispusers/DATEFORMAT-EDITOR
@@ -1,18 +1,43 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP" BASE 10)
-(FILECREATED "19-May-89 17:52:44" {ERINYES}<LISPUSERS>MEDLEY>DATEFORMAT-EDITOR.;1 13443  
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

-      changes to%:  (VARS DATEFORMAT-EDITORCOMS)
+(FILECREATED " 3-May-2026 10:44:14" {MEDLEY}<lispusers>DATEFORMAT-EDITOR.;2 14047  

-      previous date%: "16-Sep-88 12:50:52" {PHYLUM}<LISP>MEDLEY>LISPUSERS>DATEFORMAT-EDITOR.;1)
+      :EDIT-BY "lmm"

+      :CHANGES-TO (VARS DATEFORMAT-EDITORCOMS)
+
+      :PREVIOUS-DATE "19-May-89 17:52:44" {MEDLEY}<lispusers>DATEFORMAT-EDITOR.;1)

-(* "
-Copyright (c) 1987, 1988, 1989 by Johannes A. G. M. Koomen.  All rights reserved.
-")

 (PRETTYCOMPRINT DATEFORMAT-EDITORCOMS)

-(RPAQQ DATEFORMAT-EDITORCOMS ((* ;;; "This system provides a facility for editing date formats as described in section 12.5 of the Interlisp-D manual, Koto version.  User entry point is the function EDIT-DATEFORMAT.  Editing is accomplished using a FREEMENU.  Items displayed in this menu are stored on DATEFORMAT-EDITOR-ITEMS.  Call (GET-DATEFORMAT-EDITOR T) after changing this variable.  Input to EDIT-DATEFORMAT is either NIL or a value returned by the DATEFORMAT function.  Output is either NIL -- in case editing was aborted -- or another value as returned from the DATEFORMAT function.") (* ;;; "Interface") (FNS EDIT-DATEFORMAT GET-DATEFORMAT-EDITOR) (INITVARS (EDIT-DATEFORMAT-DEFAULT (DATEFORMAT))) (* ;;; "Support") (FILES (SYSLOAD) FREEMENU) (FNS DATEFORMAT-EDITOR-STATUS DATEFORMAT-EDITOR-GET-STATE DATEFORMAT-EDITOR-PUT-STATE DATEFORMAT-EDITOR-SHOW-STATE DATEFORMAT-EDITOR-ABORTFN DATEFORMAT-EDITOR-CLOSEFN DATEFORMAT-EDITOR-GETDFLTFN DATEFORMAT-EDITOR-PUTDFLTFN DATEFORMAT-EDITOR-QUITFN DATEFORMAT-EDITOR-SHOWFN) (VARS $$DATEFORMAT-EDITOR-ITEMS) (INITVARS (DATEFORMAT-EDITOR-ITEMS (COPY $$DATEFORMAT-EDITOR-ITEMS))) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS ($$DATEFORMAT-EDITOR (GET-DATEFORMAT-EDITOR)) ($$DATEFORMAT-EDITOR-IDATE (IDATE " 1-Jan-88 23:56:41"))) (P (COND ((NOT (GETD (QUOTE \OUTDATE-STRING))) (* ; "Get DATE extensions") (FILESLOAD (SYSLOAD) DATEPATCH))))) (PROP MAKEFILE-ENVIRONMENT DATEFORMAT-EDITOR)))
+(RPAQQ DATEFORMAT-EDITORCOMS
+       (
+
+(* ;;; "This system provides a facility for editing date formats as described in section 12.5 of the Interlisp-D manual, Koto version.  User entry point is the function EDIT-DATEFORMAT.  Editing is accomplished using a FREEMENU.  Items displayed in this menu are stored on DATEFORMAT-EDITOR-ITEMS.  Call (GET-DATEFORMAT-EDITOR T) after changing this variable.  Input to EDIT-DATEFORMAT is either NIL or a value returned by the DATEFORMAT function.  Output is either NIL -- in case editing was aborted -- or another value as returned from the DATEFORMAT function.")
+
+        
+
+(* ;;; "Interface")
+
+        (FNS EDIT-DATEFORMAT GET-DATEFORMAT-EDITOR)
+        (INITVARS (EDIT-DATEFORMAT-DEFAULT (DATEFORMAT)))
+        
+
+(* ;;; "Support")
+
+        (FILES FREEMENU)
+        (FNS DATEFORMAT-EDITOR-STATUS DATEFORMAT-EDITOR-GET-STATE DATEFORMAT-EDITOR-PUT-STATE 
+             DATEFORMAT-EDITOR-SHOW-STATE DATEFORMAT-EDITOR-ABORTFN DATEFORMAT-EDITOR-CLOSEFN 
+             DATEFORMAT-EDITOR-GETDFLTFN DATEFORMAT-EDITOR-PUTDFLTFN DATEFORMAT-EDITOR-QUITFN 
+             DATEFORMAT-EDITOR-SHOWFN)
+        (VARS $$DATEFORMAT-EDITOR-ITEMS)
+        (INITVARS (DATEFORMAT-EDITOR-ITEMS (COPY $$DATEFORMAT-EDITOR-ITEMS)))
+        [DECLARE%: DONTEVAL@LOAD DOCOPY (VARS ($$DATEFORMAT-EDITOR (GET-DATEFORMAT-EDITOR))
+                                              ($$DATEFORMAT-EDITOR-IDATE (IDATE 
+                                                                               " 1-Jan-1988 23:56:41"
+                                                                                ]
+        (PROP MAKEFILE-ENVIRONMENT DATEFORMAT-EDITOR)))



@@ -36,14 +61,14 @@ Copyright (c) 1987, 1988, 1989 by Johannes A. G. M. Koomen.  All rights reserved
 )
 )

-(RPAQ? EDIT-DATEFORMAT-DEFAULT (DATEFORMAT))
+(RPAQ? EDIT-DATEFORMAT-DEFAULT (DATEFORMAT))



 (* ;;; "Support")


-(FILESLOAD (SYSLOAD) FREEMENU)
+(FILESLOAD FREEMENU)
 (DEFINEQ

 (DATEFORMAT-EDITOR-STATUS
@@ -87,26 +112,76 @@ Copyright (c) 1987, 1988, 1989 by Johannes A. G. M. Koomen.  All rights reserved
 )
 )

-(RPAQQ $$DATEFORMAT-EDITOR-ITEMS (((TYPE MOMENTARY LABEL "Quit" FONT (GACHA 10 BOLD) SELECTEDFN DATEFORMAT-EDITOR-QUITFN MESSAGE "Stop editing, return current settings") (TYPE DISPLAY LABEL "") (TYPE MOMENTARY LABEL "Abort" FONT (GACHA 10 BOLD) SELECTEDFN DATEFORMAT-EDITOR-ABORTFN MESSAGE "Stop editing, ignore changes, return NIL") (TYPE DISPLAY LABEL "      Default:") (TYPE MOMENTARY LABEL "Get" FONT (GACHA 10 BOLD) SELECTEDFN DATEFORMAT-EDITOR-GETDFLTFN MESSAGE "Use default settings") (TYPE MOMENTARY LABEL "Put" FONT (GACHA 10 BOLD) SELECTEDFN DATEFORMAT-EDITOR-PUTDFLTFN MESSAGE "Save settings as default") (TYPE DISPLAY LABEL "")) ((TYPE DISPLAY LABEL "")) ((TYPE DISPLAY LABEL "DATE:     " FONT (GACHA 10 BOLD))) ((TYPE DISPLAY LABEL "  Format: " FONT (GACHA 10 BOLD)) (TYPE NWAY COLLECTION DATE ID DATE-NORMAL LABEL "dd-mon-yy" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION DATE ID DATE-SLASHES LABEL "dd/mon/yy" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION DATE ID DATE-NONE LABEL "none" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL "          ") (TYPE NWAY COLLECTION DATE ID DATE-SPACES LABEL "dd mon yy" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION DATE ID DATE-LEADING LABEL "mon dd, yy" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL "  Year:   " FONT (GACHA 10 BOLD)) (TYPE NWAY COLLECTION YEAR ID YEAR-LONG LABEL "long" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION YEAR ID YEAR-SHORT LABEL "short" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL "  Month:  " FONT (GACHA 10 BOLD)) (TYPE NWAY COLLECTION MONTH ID MONTH-LONG LABEL "long" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION MONTH ID MONTH-SHORT LABEL "short" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION MONTH ID MONTH-NUMERIC LABEL "numeric" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL "  Weekday:" FONT (GACHA 10 BOLD)) (TYPE NWAY COLLECTION DAY ID DAY-LONG LABEL "long" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION DAY ID DAY-SHORT LABEL "short" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION DAY ID DAY-NONE LABEL "none" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL "  Spaces: " FONT (GACHA 10 BOLD)) (TYPE NWAY COLLECTION LEADER ID LEADER-YES LABEL "yes" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION LEADER ID LEADER-NO LABEL "no" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL "")) ((TYPE DISPLAY LABEL "TIME:" FONT (GACHA 10 BOLD))) ((TYPE DISPLAY LABEL "  Format:   " FONT (GACHA 10 BOLD)) (TYPE NWAY COLLECTION TIME ID TIME-SECS LABEL "hh:mm:ss" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION TIME ID TIME-MINS LABEL "hh:mm" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION TIME ID TIME-NONE LABEL "none" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)) ((TYPE DISPLAY LABEL "  Time Zone:" FONT (GACHA 10 BOLD)) (TYPE NWAY COLLECTION TIMEZONE ID TIMEZONE-YES LABEL "yes" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN) (TYPE NWAY COLLECTION TIMEZONE ID TIMEZONE-NO LABEL "no" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN))))
+(RPAQQ $$DATEFORMAT-EDITOR-ITEMS
+       (((TYPE MOMENTARY LABEL "Quit" FONT (GACHA 10 BOLD)
+               SELECTEDFN DATEFORMAT-EDITOR-QUITFN MESSAGE "Stop editing, return current settings")
+         (TYPE DISPLAY LABEL "")
+         (TYPE MOMENTARY LABEL "Abort" FONT (GACHA 10 BOLD)
+               SELECTEDFN DATEFORMAT-EDITOR-ABORTFN MESSAGE 
+               "Stop editing, ignore changes, return NIL")
+         (TYPE DISPLAY LABEL "      Default:")
+         (TYPE MOMENTARY LABEL "Get" FONT (GACHA 10 BOLD)
+               SELECTEDFN DATEFORMAT-EDITOR-GETDFLTFN MESSAGE "Use default settings")
+         (TYPE MOMENTARY LABEL "Put" FONT (GACHA 10 BOLD)
+               SELECTEDFN DATEFORMAT-EDITOR-PUTDFLTFN MESSAGE "Save settings as default")
+         (TYPE DISPLAY LABEL ""))
+        ((TYPE DISPLAY LABEL ""))
+        ((TYPE DISPLAY LABEL "DATE:     " FONT (GACHA 10 BOLD)))
+        ((TYPE DISPLAY LABEL "  Format: " FONT (GACHA 10 BOLD))
+         (TYPE NWAY COLLECTION DATE ID DATE-NORMAL LABEL "dd-mon-yyyy" SELECTEDFN 
+               DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION DATE ID DATE-SLASHES LABEL "dd/mon/yyyy" SELECTEDFN 
+               DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION DATE ID DATE-NONE LABEL "none" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN))
+        ((TYPE DISPLAY LABEL "          ")
+         (TYPE NWAY COLLECTION DATE ID DATE-SPACES LABEL "dd mon yyyy" SELECTEDFN 
+               DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION DATE ID DATE-LEADING LABEL "mon dd, yyyy??" SELECTEDFN 
+               DATEFORMAT-EDITOR-SHOWFN))
+        ((TYPE DISPLAY LABEL "  Year:   " FONT (GACHA 10 BOLD))
+         (TYPE NWAY COLLECTION YEAR ID YEAR-LONG LABEL "long" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION YEAR ID YEAR-SHORT LABEL "short" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN))
+        ((TYPE DISPLAY LABEL "  Month:  " FONT (GACHA 10 BOLD))
+         (TYPE NWAY COLLECTION MONTH ID MONTH-LONG LABEL "long" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION MONTH ID MONTH-SHORT LABEL "short" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN
+               )
+         (TYPE NWAY COLLECTION MONTH ID MONTH-NUMERIC LABEL "numeric" SELECTEDFN 
+               DATEFORMAT-EDITOR-SHOWFN))
+        ((TYPE DISPLAY LABEL "  Weekday:" FONT (GACHA 10 BOLD))
+         (TYPE NWAY COLLECTION DAY ID DAY-LONG LABEL "long" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION DAY ID DAY-SHORT LABEL "short" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION DAY ID DAY-NONE LABEL "none" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN))
+        ((TYPE DISPLAY LABEL "  Spaces: " FONT (GACHA 10 BOLD))
+         (TYPE NWAY COLLECTION LEADER ID LEADER-YES LABEL "yes" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION LEADER ID LEADER-NO LABEL "no" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN))
+        ((TYPE DISPLAY LABEL ""))
+        ((TYPE DISPLAY LABEL "TIME:" FONT (GACHA 10 BOLD)))
+        ((TYPE DISPLAY LABEL "  Format:   " FONT (GACHA 10 BOLD))
+         (TYPE NWAY COLLECTION TIME ID TIME-SECS LABEL "hh:mm:ss" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN
+               )
+         (TYPE NWAY COLLECTION TIME ID TIME-MINS LABEL "hh:mm" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION TIME ID TIME-NONE LABEL "none" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN))
+        ((TYPE DISPLAY LABEL "  Time Zone:" FONT (GACHA 10 BOLD))
+         (TYPE NWAY COLLECTION TIMEZONE ID TIMEZONE-YES LABEL "yes" SELECTEDFN 
+               DATEFORMAT-EDITOR-SHOWFN)
+         (TYPE NWAY COLLECTION TIMEZONE ID TIMEZONE-NO LABEL "no" SELECTEDFN DATEFORMAT-EDITOR-SHOWFN
+               ))))

-(RPAQ? DATEFORMAT-EDITOR-ITEMS (COPY $$DATEFORMAT-EDITOR-ITEMS))
+(RPAQ? DATEFORMAT-EDITOR-ITEMS (COPY $$DATEFORMAT-EDITOR-ITEMS))
 (DECLARE%: DONTEVAL@LOAD DOCOPY 

-(RPAQ $$DATEFORMAT-EDITOR (GET-DATEFORMAT-EDITOR))
+(RPAQ $$DATEFORMAT-EDITOR (GET-DATEFORMAT-EDITOR))

-(RPAQ $$DATEFORMAT-EDITOR-IDATE (IDATE " 1-Jan-88 23:56:41"))
-
-
-(COND ((NOT (GETD (QUOTE \OUTDATE-STRING))) (* ; "Get DATE extensions") (FILESLOAD (SYSLOAD) DATEPATCH)))
+(RPAQ $$DATEFORMAT-EDITOR-IDATE (IDATE " 1-Jan-1988 23:56:41"))
 )

-(PUTPROPS DATEFORMAT-EDITOR MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10))
-(PUTPROPS DATEFORMAT-EDITOR COPYRIGHT ("Johannes A. G. M. Koomen" 1987 1988 1989))
+(PUTPROPS DATEFORMAT-EDITOR MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 
+                                                        10))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2483 4408 (EDIT-DATEFORMAT 2493 . 3520) (GET-DATEFORMAT-EDITOR 3522 . 4406)) (4513 9803
- (DATEFORMAT-EDITOR-STATUS 4523 . 4743) (DATEFORMAT-EDITOR-GET-STATE 4745 . 6551) (
-DATEFORMAT-EDITOR-PUT-STATE 6553 . 8363) (DATEFORMAT-EDITOR-SHOW-STATE 8365 . 8616) (
-DATEFORMAT-EDITOR-ABORTFN 8618 . 8758) (DATEFORMAT-EDITOR-CLOSEFN 8760 . 8949) (
-DATEFORMAT-EDITOR-GETDFLTFN 8951 . 9218) (DATEFORMAT-EDITOR-PUTDFLTFN 9220 . 9456) (
-DATEFORMAT-EDITOR-QUITFN 9458 . 9596) (DATEFORMAT-EDITOR-SHOWFN 9598 . 9801)))))
+  (FILEMAP (NIL (2634 4559 (EDIT-DATEFORMAT 2644 . 3671) (GET-DATEFORMAT-EDITOR 3673 . 4557)) (4658 9948
+ (DATEFORMAT-EDITOR-STATUS 4668 . 4888) (DATEFORMAT-EDITOR-GET-STATE 4890 . 6696) (
+DATEFORMAT-EDITOR-PUT-STATE 6698 . 8508) (DATEFORMAT-EDITOR-SHOW-STATE 8510 . 8761) (
+DATEFORMAT-EDITOR-ABORTFN 8763 . 8903) (DATEFORMAT-EDITOR-CLOSEFN 8905 . 9094) (
+DATEFORMAT-EDITOR-GETDFLTFN 9096 . 9363) (DATEFORMAT-EDITOR-PUTDFLTFN 9365 . 9601) (
+DATEFORMAT-EDITOR-QUITFN 9603 . 9741) (DATEFORMAT-EDITOR-SHOWFN 9743 . 9946)))))
 STOP
--- a/lispusers/DATEFORMAT-EDITOR.LCOM
+++ b/lispusers/DATEFORMAT-EDITOR.LCOM
--- a/lispusers/DOC-OBJECTS
+++ b/lispusers/DOC-OBJECTS
@@ -1,12 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

-(FILECREATED " 9-Dec-2024 21:07:13" {WMEDLEY}<lispusers>DOC-OBJECTS.;58 52672  
+(FILECREATED "11-May-2026 13:00:03" {MEDLEY}<lispusers>DOC-OBJECTS.;62 52842  

      :EDIT-BY rmk

-      :CHANGES-TO (FNS DOCOBJ-STRING-IMAGEBOX)
+      :CHANGES-TO (VARS DOC-OBJECTSCOMS)

-      :PREVIOUS-DATE " 8-Dec-2024 15:49:01" {WMEDLEY}<lispusers>DOC-OBJECTS.;57)
+      :PREVIOUS-DATE " 6-Apr-2025 23:38:07" {MEDLEY}<lispusers>DOC-OBJECTS.;61)


 (PRETTYCOMPRINT DOC-OBJECTSCOMS)
@@ -16,8 +16,7 @@

 (* ;;; "This TEdit subsystem implements an extensible facility originally intended to provide bibliography and citation capabilities.  The TEdit function GET.OBJ.FROM.USER, the one triggered by typing ^O, calls the function PROMPTFOREVALED which is redefined by this subsystem to be equivalent to the function DocObj-Acquire-Object.  This function inserts IMAGEOBJects into the current TEdit, and is driven by the variables DocObjectsMenu and DocObjectsMenuCommands (analogous to BackgroundMenu and BackgroundMenuCommands).  Each menu entry contains a form that, when EVAL'd, creates and returns a particular kind of IMAGEOBJ.  Note that this form is EVAL'd under the function DocObj-Acquire-Object, which runs under the function GET.OBJ.FROM.USER, which gets TEXTSTREAM and TEXTOBJ as arguments.  They can be (and are) used freely to record state or other desired info.  The image objects supplied by this subsystem are 'Eval`d Form' (i.e., the original behavior of ^O), 'Screen Snap' (equivalent to right-buttoning in the background while holding the SHIFT key down), etc.")

-        (FILES (SYSLOAD)
-               TEDIT IMAGEOBJ)
+        (FILES TEDIT IMAGEOBJ)
        (DECLARE%: EVAL@COMPILE DONTCOPY (FILES TEDIT-EXPORTS.ALL))
        (VARS (DocObjectsMenu NIL)
              (DocObjectsConfirmEditMenu NIL))
@@ -45,8 +44,7 @@
              (* ;; "Time Stamp")

              (DECLARE%: DONTCOPY (RECORDS DOCOBJ-TIMESTAMP))
-              (FILES (SYSLOAD)
-                     DATEFORMAT-EDITOR)
+              (FILES DATEFORMAT-EDITOR)
              (FNS DOCOBJ-EDIT-TIMESTAMP DOCOBJ-MAKE-TIMESTAMP DOCOBJ-MAKE-TIMESTAMP-IMAGEFNS 
                   DOCOBJ-TIMESTAMP-BUTTONEVENTINFN DOCOBJ-TIMESTAMP-COPYFN 
                   DOCOBJ-TIMESTAMP-DISPLAYFN DOCOBJ-TIMESTAMP-GETFN DOCOBJ-TIMESTAMP-IMAGEBOXFN 
@@ -70,8 +68,7 @@
        (COMS 
              (* ;; "Horizontal Rule")

-              (FILES (SYSLOAD)
-                     HRULE READNUMBER)
+              (FILES HRULE READNUMBER)
              (FNS DOCOBJ-MAKE-HRULE DOCOBJ-EDIT-HRULE DOCOBJ-HRULE-INIT DOCOBJ-HRULE-GET-WIDTH 
                   DOCOBJ-HRULE-BUTTONEVENTINFN)
              (VARS (DOCOBJ-HRULE-RULE-PAD)
@@ -107,8 +104,7 @@
 )


-(FILESLOAD (SYSLOAD)
-       TEDIT IMAGEOBJ)
+(FILESLOAD TEDIT IMAGEOBJ)
 (DECLARE%: EVAL@COMPILE DONTCOPY 

 (FILESLOAD TEDIT-EXPORTS.ALL)
@@ -167,7 +163,8 @@
    (GET.OBJ.FROM.USER TEXTSTREAM (TEXTOBJ TEXTSTREAM])

 (DOCOBJ-GET-LOOKS
-  [LAMBDA (TEXTOBJ CH#ORCHARLOOKS)                           (* ; "Edited  5-Apr-2024 12:20 by rmk")
+  [LAMBDA (TEXTOBJ CH#ORCHARLOOKS)                           (* ; "Edited  6-Apr-2025 23:36 by rmk")
+                                                             (* ; "Edited  5-Apr-2024 12:20 by rmk")
                                                             (* ; "Edited 19-Mar-2024 19:36 by rmk")
                                                             (* ; "Edited 29-Oct-2022 21:30 by rmk")
                                                             (* Koomen " 4-Feb-87 23:37")
@@ -184,20 +181,19 @@
             then                                            (* ; 
                                      "There's no text in the document.  Use the extant caret looks.")
                  (FGETTOBJ TEXTOBJ CARETLOOKS)
-           else (PLOOKS (\TEDIT.CHTOPC (if (FIXP CH#ORCHARLOOKS)
-                                           then              (* ; 
+           else (\TEDIT.NTHCHARLOOKS TEXTOBJ (if (FIXP CH#ORCHARLOOKS)
+                                                 then        (* ; 
                                                    "He gave us a CH# to get the looks of.  Grab it.")
-                                                CH#ORCHARLOOKS
-                                         elseif (type? SELECTION CH#ORCHARLOOKS)
-                                           then              (* ; 
+                                                      CH#ORCHARLOOKS
+                                               elseif (type? SELECTION CH#ORCHARLOOKS)
+                                                 then        (* ; 
                                                             "Get the looks of the selected text")
-                                                (GETSEL CH#ORCHARLOOKS CH#)
-                                         elseif (NULL CH#ORCHARLOOKS)
-                                           then              (* ; 
+                                                      (GETSEL CH#ORCHARLOOKS CH#)
+                                               elseif (NULL CH#ORCHARLOOKS)
+                                                 then        (* ; 
                                                             "Get the looks of the selected text")
-                                                (GETSEL (FGETTOBJ TEXTOBJ SEL)
-                                                       CH#))
-                               TEXTOBJ])
+                                                      (GETSEL (FGETTOBJ TEXTOBJ SEL)
+                                                             CH#])

 (DOCOBJ-REGISTER-OBJECT
  [LAMBDA (OBJECT)                                          (* ; "Edited 23-Oct-87 14:48 by Koomen")
@@ -382,8 +378,7 @@
 )
 )

-(FILESLOAD (SYSLOAD)
-       DATEFORMAT-EDITOR)
+(FILESLOAD DATEFORMAT-EDITOR)
 (DEFINEQ

 (DOCOBJ-EDIT-TIMESTAMP
@@ -611,8 +606,7 @@
 (* ;; "Horizontal Rule")


-(FILESLOAD (SYSLOAD)
-       HRULE READNUMBER)
+(FILESLOAD HRULE READNUMBER)
 (DEFINEQ

 (DOCOBJ-MAKE-HRULE
@@ -740,7 +734,8 @@
         IMAGEOBJ])

 (DOCOBJ-INCLUDE-EDIT
-  [LAMBDA (INCLOBJ TSTREAM)                                  (* ; "Edited 12-May-2024 09:03 by rmk")
+  [LAMBDA (INCLOBJ TSTREAM)                                  (* ; "Edited 26-Dec-2024 00:23 by rmk")
+                                                             (* ; "Edited 12-May-2024 09:03 by rmk")
                                                            (* ; "Edited  9-May-2018 11:09 by rmk:")
                                                            (* ; "Edited  9-May-2018 10:35 by rmk:")
                                                            (* ; "Edited 26-Oct-87 19:57 by Koomen")
@@ -767,31 +762,32 @@
                                (NOT (EQUAL NEWNAME (fetch (INCLOBJ FILENAME) of INCLOBJ]
                           then (replace (INCLOBJ FILENAME) of INCLOBJ with NEWNAME)
                                T)))
-        (EDIT.FILE (for W in (OPENWINDOWS)
-                      bind [FULLNAME _ (OR (FINDFILE-WITH-EXTENSIONS
-                                            (fetch (INCLOBJ FILENAME) of INCLOBJ)
-                                            (CONS (PACKFILENAME.STRING 'HOST (FILENAMEFIELD
-                                                                              TXTFILE
-                                                                              'HOST)
-                                                         'DIRECTORY
-                                                         (FILENAMEFIELD TXTFILE 'DIRECTORY))
-                                                  DIRECTORIES)
-                                            *TEDIT-EXTENSIONS*)
-                                           (INFILEP (fetch (INCLOBJ FILENAME) of INCLOBJ]
-                      first (if (NULL FULLNAME)
-                                then (TEDIT.PROMPTPRINT TSTREAM "Can't find " T)
-                                     (TEDIT.PROMPTPRINT TSTREAM (fetch (INCLOBJ FILENAME)
-                                                                   of INCLOBJ))
-                                     (RETURN)) when (SETQ W (DOCOBJ-INCLUDE-EDIT-WINDOWP FULLNAME W))
+        (EDIT.FILE (for W FULLNAME (TXTFILE _ TSTREAM) in (OPENWINDOWS)
+                      first [SETQ FULLNAME (OR (FINDFILE-WITH-EXTENSIONS
+                                                (fetch (INCLOBJ FILENAME) of INCLOBJ)
+                                                (CONS (PACKFILENAME.STRING 'HOST (FILENAMEFIELD
+                                                                                  TXTFILE
+                                                                                  'HOST)
+                                                             'DIRECTORY
+                                                             (FILENAMEFIELD TXTFILE 'DIRECTORY))
+                                                      DIRECTORIES)
+                                                *TEDIT-EXTENSIONS*)
+                                               (INFILEP (fetch (INCLOBJ FILENAME) of INCLOBJ]
+                            (CL:UNLESS FULLNAME
+                                (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Can't find " (fetch (INCLOBJ
+                                                                                         FILENAME)
+                                                                                    of INCLOBJ))
+                                       T)
+                                (RETURN)) when (SETQ W (DOCOBJ-INCLUDE-EDIT-WINDOWP FULLNAME W))
                      do (TOTOPW W)
                         (GIVE.TTY.PROCESS W)
-                         (RETURN) finally (TEDIT (MKATOM FULLNAME))))
-        (ENABLE (if (NOT (fetch (INCLOBJ ENABLEDP) of INCLOBJ))
-                    then (replace (INCLOBJ ENABLEDP) of INCLOBJ with T)
-                         T))
-        (DISABLE (if (fetch (INCLOBJ ENABLEDP) of INCLOBJ)
-                     then (replace (INCLOBJ ENABLEDP) of INCLOBJ with NIL)
-                          T))
+                         (RETURN) finally (TEDIT FULLNAME)))
+        (ENABLE (CL:UNLESS (fetch (INCLOBJ ENABLEDP) of INCLOBJ)
+                    (replace (INCLOBJ ENABLEDP) of INCLOBJ with T)
+                    T))
+        (DISABLE (CL:WHEN (fetch (INCLOBJ ENABLEDP) of INCLOBJ)
+                     (replace (INCLOBJ ENABLEDP) of INCLOBJ with NIL)
+                     T))
        NIL])

 (DOCOBJ-INCLUDE-EDIT-WINDOWP
@@ -993,29 +989,29 @@
 (PUTPROPS DOC-OBJECTS MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10))
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (7640 21328 (DOCOBJ-ACQUIRE-OBJECT 7650 . 8651) (DOCOBJ-INIT 8653 . 9281) (
-DOCOBJ-TEDIT-MENU-ENTRY 9283 . 9705) (DOCOBJ-GET-LOOKS 9707 . 12167) (DOCOBJ-REGISTER-OBJECT 12169 . 
-12823) (DOCOBJ-STRING-IMAGEBOX 12825 . 13881) (DOCOBJ-WAIT-MOUSE 13883 . 14343) (
-DOCOBJ-BEFOREHARDCOPYFN 14345 . 19815) (DOCOBJ-AFTERHARDCOPYFN 19817 . 21326)) (21358 21625 (
-DOCOBJ-ACQUIRE-EVALED-OBJECT 21368 . 21623)) (21825 21967 (DOCOBJ-ACQUIRE-SNAPPED-OBJECT 21835 . 21965
-)) (22306 27102 (DOCOBJ-EDIT-TIMESTAMP 22316 . 22845) (DOCOBJ-MAKE-TIMESTAMP 22847 . 23258) (
-DOCOBJ-MAKE-TIMESTAMP-IMAGEFNS 23260 . 24330) (DOCOBJ-TIMESTAMP-BUTTONEVENTINFN 24332 . 24863) (
-DOCOBJ-TIMESTAMP-COPYFN 24865 . 25190) (DOCOBJ-TIMESTAMP-DISPLAYFN 25192 . 25485) (
-DOCOBJ-TIMESTAMP-GETFN 25487 . 25727) (DOCOBJ-TIMESTAMP-IMAGEBOXFN 25729 . 26085) (
-DOCOBJ-TIMESTAMP-PREPRINTFN 26087 . 26318) (DOCOBJ-TIMESTAMP-PUTFN 26320 . 26689) (
-DOCOBJ-TIMESTAMP-TO-STRING 26691 . 27100)) (27396 31703 (DOCOBJ-MAKE-FILESTAMP 27406 . 27747) (
-DOCOBJ-MAKE-FILESTAMP-IMAGEFNS 27749 . 28791) (DOCOBJ-FILESTAMP-COPYFN 28793 . 29108) (
-DOCOBJ-FILESTAMP-DISPLAYFN 29110 . 29398) (DOCOBJ-FILESTAMP-GETFN 29400 . 29753) (
-DOCOBJ-FILESTAMP-IMAGEBOXFN 29755 . 30093) (DOCOBJ-FILESTAMP-GET-FULLNAME 30095 . 30713) (
-DOCOBJ-FILESTAMP-NEW-FULLNAME 30715 . 31188) (DOCOBJ-FILESTAMP-PREPRINTFN 31190 . 31399) (
-DOCOBJ-FILESTAMP-PUTFN 31401 . 31701)) (32026 34523 (DOCOBJ-MAKE-HRULE 32036 . 32450) (
-DOCOBJ-EDIT-HRULE 32452 . 32924) (DOCOBJ-HRULE-INIT 32926 . 33258) (DOCOBJ-HRULE-GET-WIDTH 33260 . 
-34071) (DOCOBJ-HRULE-BUTTONEVENTINFN 34073 . 34521)) (34942 43284 (DOCOBJ-MAKE-INCLUDE 34952 . 35353) 
-(DOCOBJ-MAKE-INCLUDE-IMAGEFNS 35355 . 36360) (DOCOBJ-INCLUDE-CREATE-OBJ 36362 . 37130) (
-DOCOBJ-INCLUDE-EDIT 37132 . 41401) (DOCOBJ-INCLUDE-EDIT-WINDOWP 41403 . 42259) (
-DOCOBJ-INCLUDE-RESET-OBJ 42261 . 43282)) (43285 52131 (DOCOBJ-INCLUDE-BEFOREHARDCOPYFN 43295 . 46789) 
-(DOCOBJ-INCLUDE-CLEANUPFN 46791 . 48310) (DOCOBJ-INCLUDE-BUTTONEVENTINFN 48312 . 48989) (
-DOCOBJ-INCLUDE-COPYFN 48991 . 49209) (DOCOBJ-INCLUDE-DISPLAYFN 49211 . 49963) (DOCOBJ-INCLUDE-GETFN 
-49965 . 50688) (DOCOBJ-INCLUDE-IMAGEBOXFN 50690 . 51699) (DOCOBJ-INCLUDE-PREPRINTFN 51701 . 51920) (
-DOCOBJ-INCLUDE-PUTFN 51922 . 52129)))))
+  (FILEMAP (NIL (7528 21326 (DOCOBJ-ACQUIRE-OBJECT 7538 . 8539) (DOCOBJ-INIT 8541 . 9169) (
+DOCOBJ-TEDIT-MENU-ENTRY 9171 . 9593) (DOCOBJ-GET-LOOKS 9595 . 12165) (DOCOBJ-REGISTER-OBJECT 12167 . 
+12821) (DOCOBJ-STRING-IMAGEBOX 12823 . 13879) (DOCOBJ-WAIT-MOUSE 13881 . 14341) (
+DOCOBJ-BEFOREHARDCOPYFN 14343 . 19813) (DOCOBJ-AFTERHARDCOPYFN 19815 . 21324)) (21356 21623 (
+DOCOBJ-ACQUIRE-EVALED-OBJECT 21366 . 21621)) (21823 21965 (DOCOBJ-ACQUIRE-SNAPPED-OBJECT 21833 . 21963
+)) (22287 27083 (DOCOBJ-EDIT-TIMESTAMP 22297 . 22826) (DOCOBJ-MAKE-TIMESTAMP 22828 . 23239) (
+DOCOBJ-MAKE-TIMESTAMP-IMAGEFNS 23241 . 24311) (DOCOBJ-TIMESTAMP-BUTTONEVENTINFN 24313 . 24844) (
+DOCOBJ-TIMESTAMP-COPYFN 24846 . 25171) (DOCOBJ-TIMESTAMP-DISPLAYFN 25173 . 25466) (
+DOCOBJ-TIMESTAMP-GETFN 25468 . 25708) (DOCOBJ-TIMESTAMP-IMAGEBOXFN 25710 . 26066) (
+DOCOBJ-TIMESTAMP-PREPRINTFN 26068 . 26299) (DOCOBJ-TIMESTAMP-PUTFN 26301 . 26670) (
+DOCOBJ-TIMESTAMP-TO-STRING 26672 . 27081)) (27377 31684 (DOCOBJ-MAKE-FILESTAMP 27387 . 27728) (
+DOCOBJ-MAKE-FILESTAMP-IMAGEFNS 27730 . 28772) (DOCOBJ-FILESTAMP-COPYFN 28774 . 29089) (
+DOCOBJ-FILESTAMP-DISPLAYFN 29091 . 29379) (DOCOBJ-FILESTAMP-GETFN 29381 . 29734) (
+DOCOBJ-FILESTAMP-IMAGEBOXFN 29736 . 30074) (DOCOBJ-FILESTAMP-GET-FULLNAME 30076 . 30694) (
+DOCOBJ-FILESTAMP-NEW-FULLNAME 30696 . 31169) (DOCOBJ-FILESTAMP-PREPRINTFN 31171 . 31380) (
+DOCOBJ-FILESTAMP-PUTFN 31382 . 31682)) (31990 34487 (DOCOBJ-MAKE-HRULE 32000 . 32414) (
+DOCOBJ-EDIT-HRULE 32416 . 32888) (DOCOBJ-HRULE-INIT 32890 . 33222) (DOCOBJ-HRULE-GET-WIDTH 33224 . 
+34035) (DOCOBJ-HRULE-BUTTONEVENTINFN 34037 . 34485)) (34906 43454 (DOCOBJ-MAKE-INCLUDE 34916 . 35317) 
+(DOCOBJ-MAKE-INCLUDE-IMAGEFNS 35319 . 36324) (DOCOBJ-INCLUDE-CREATE-OBJ 36326 . 37094) (
+DOCOBJ-INCLUDE-EDIT 37096 . 41571) (DOCOBJ-INCLUDE-EDIT-WINDOWP 41573 . 42429) (
+DOCOBJ-INCLUDE-RESET-OBJ 42431 . 43452)) (43455 52301 (DOCOBJ-INCLUDE-BEFOREHARDCOPYFN 43465 . 46959) 
+(DOCOBJ-INCLUDE-CLEANUPFN 46961 . 48480) (DOCOBJ-INCLUDE-BUTTONEVENTINFN 48482 . 49159) (
+DOCOBJ-INCLUDE-COPYFN 49161 . 49379) (DOCOBJ-INCLUDE-DISPLAYFN 49381 . 50133) (DOCOBJ-INCLUDE-GETFN 
+50135 . 50858) (DOCOBJ-INCLUDE-IMAGEBOXFN 50860 . 51869) (DOCOBJ-INCLUDE-PREPRINTFN 51871 . 52090) (
+DOCOBJ-INCLUDE-PUTFN 52092 . 52299)))))
 STOP
--- a/lispusers/DOC-OBJECTS.LCOM
+++ b/lispusers/DOC-OBJECTS.LCOM
--- a/lispusers/GITFNS
+++ b/lispusers/GITFNS
@@ -1,14 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)

-(FILECREATED "29-Apr-2026 12:51:53" {MEDLEY}<lispusers>GITFNS.;592 137200 
+(FILECREATED "11-May-2026 23:07:30" {MEDLEY}<lispusers>GITFNS.;593 137624 

      :EDIT-BY rmk

-      :CHANGES-TO (FNS GIT-GWC-COMMAND)
-                  (COMMANDS gwc)
-                  (VARS GITFNSCOMS)
+      :CHANGES-TO (FNS GIT-CD-LABELFN)

-      :PREVIOUS-DATE "29-Apr-2026 09:00:33" {MEDLEY}<lispusers>GITFNS.;588)
+      :PREVIOUS-DATE "29-Apr-2026 12:51:53" {MEDLEY}<lispusers>GITFNS.;592)


 (PRETTYCOMPRINT GITFNSCOMS)
@@ -2215,21 +2213,29 @@
                 NIL)))])

 (GIT-CD-LABELFN
-  [LAMBDA (FILE1 FILE2 USERDATA)                             (* ; "Edited  5-Jan-2022 15:10 by rmk")
+  [LAMBDA (FILE1 FILE2 USERDATA)                             (* ; "Edited 11-May-2026 23:02 by rmk")
+                                                             (* ; "Edited  5-Jan-2022 15:10 by rmk")
                                                             (* ; "Edited 16-Dec-2021 12:25 by rmk")
                                                             (* ; "Edited 13-Dec-2021 22:13 by rmk")
-    (DECLARE (USEDFREE CDVALUE))
-    (LET (NC B LABEL1 LABEL2)
+    (LET ((CDVALUE (CDR (ASSOC 'CDVALUE USERDATA)))
+          NC B LABEL1 LABEL2 POS)
         (CL:WHEN (SETQ NC (FETCH NCDIR OF (FETCH CDMAXNC1 OF CDVALUE)))
             (SETQ LABEL1 (SLASHIT (SUBSTRING FILE1 (ADD1 NC))
-                                 T))
-             (CL:WHEN (SETQ B (LISTGET USERDATA 'BRANCH1))
-                 (SETQ LABEL1 (CONCAT B "/" LABEL1))))
+                                 T T))
+             (CL:WHEN (SETQ B (CDR (ASSOC 'BRANCH1 USERDATA)))
+                 (SETQ LABEL1 (CONCAT (SUBSTRING B 1 (SUB1 (OR (STRPOS "--" B NIL T)
+                                                               0)))
+                                     "/" LABEL1))))
         (CL:WHEN (SETQ NC (FETCH NCDIR OF (FETCH CDMAXNC2 OF CDVALUE)))
             (SETQ LABEL2 (SLASHIT (SUBSTRING FILE2 (ADD1 NC))
-                                 T))
-             (CL:WHEN (SETQ B (LISTGET USERDATA 'BRANCH2))
-                 (SETQ LABEL2 (CONCAT B "/" LABEL2))))
+                                 T T))
+             (CL:WHEN (SETQ B (CDR (ASSOC 'BRANCH2 USERDATA)))
+
+                 (* ;; "rmk184--xxx -> rmk184")
+
+                 (SETQ LABEL2 (CONCAT (SUBSTRING B 1 (SUB1 (OR (STRPOS "--" B NIL T)
+                                                               0)))
+                                     "/" LABEL2))))
         (LIST (OR LABEL1 FILE1)
               (OR LABEL2 FILE2])

@@ -2470,33 +2476,33 @@

 (PUTPROPS GITFNS FILETYPE :TCOMPL)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4257 21537 (GIT-CLONEP 4267 . 5698) (GIT-INIT 5700 . 6330) (GIT-MAKE-PROJECT 6332 . 
-14591) (GIT-GET-PROJECT 14593 . 16518) (GIT-PUT-PROJECT-FIELD 16520 . 18161) (GIT-PROJECT-PATH 18163
- . 19207) (FIND-ANCESTOR-DIRECTORY 19209 . 19560) (GIT-FIND-CLONE 19562 . 20645) (GIT-MAINBRANCH 20647
- . 21042) (GIT-MAINBRANCH? 21044 . 21535)) (26309 33483 (PRC-COMMAND 26319 . 31601) (GIT-GWC-COMMAND 
-31603 . 33481)) (33539 36327 (ALLSUBDIRS 33549 . 34835) (MEDLEYSUBDIRS 34837 . 35530) (GITSUBDIRS 
-35532 . 36325)) (36328 38733 (TOGIT 36338 . 37746) (FROMGIT 37748 . 38731)) (38734 41743 (
-WORKINGSUBDIR 38744 . 39199) (GITSUBDIR 39201 . 39644) (STRIPDIR 39646 . 40024) (STRIPHOST 40026 . 
-40266) (STRIPNAME 40268 . 41021) (STRIPWHERE 41023 . 41741)) (41744 43979 (GFILE4MFILE 41754 . 42450) 
-(MFILE4GFILE 42452 . 43021) (GIT-REPO-FILENAME 43023 . 43977)) (44028 54285 (GIT-COMMIT 44038 . 44864)
- (GIT-PUSH 44866 . 45626) (GIT-PULL 45628 . 46380) (GIT-APPROVAL 46382 . 46731) (GIT-GET-FILE 46733 . 
-48648) (GIT-FILE-EXISTS? 48650 . 48924) (GIT-REMOTE-UPDATE 48926 . 49761) (GIT-REMOTE-ADD 49763 . 
-50070) (GIT-FILE-DATE 50072 . 51119) (GIT-FILE-HISTORY 51121 . 53055) (GIT-PRINT-FILE-HISTORY 53057 . 
-54109) (GIT-FETCH 54111 . 54283)) (54315 66267 (GIT-BRANCH-DIFF 54325 . 61214) (GIT-COMMIT-DIFFS 61216
- . 62107) (GIT-BRANCH-RELATIONS 62109 . 65793) (GIT-MODIFIED 65795 . 66265)) (66312 85259 (
-GIT-BRANCH-NUM 66322 . 66895) (GIT-CHECKOUT 66897 . 68183) (GIT-WHICH-BRANCH 68185 . 68592) (
-GIT-MAKE-BRANCH 68594 . 71173) (GIT-BRANCHES 71175 . 73772) (GIT-BRANCH-EXISTS? 73774 . 74645) (
-GIT-PICK-BRANCH 74647 . 75137) (GIT-BRANCH-MENU 75139 . 76040) (GIT-BRANCH-WHENSELECTEDFN 76042 . 
-77749) (GIT-PULL-REQUESTS 77751 . 81636) (GIT-SHORT-BRANCH-NAME 81638 . 81929) (GIT-LONG-NAME 81931 . 
-82248) (GIT-PRC-BRANCHES 82250 . 85257)) (85289 90043 (GIT-MY-CURRENT-BRANCH 85299 . 85669) (
-GIT-MY-BRANCHP 85671 . 86289) (GIT-MY-NEXT-BRANCH 86291 . 88091) (GIT-MY-BRANCHES 88093 . 90041)) (
-90089 94173 (GIT-ADD-WORKTREE 90099 . 91706) (GIT-REMOVE-WORKTREE 91708 . 92640) (GIT-LIST-WORKTREES 
-92642 . 93453) (WORKTREEDIR 93455 . 94171)) (94221 128732 (GIT-GET-DIFFERENT-FILES 94231 . 101139) (
-GIT-BRANCHES-COMPARE-DIRECTORIES 101141 . 108780) (GIT-WORKING-COMPARE-DIRECTORIES 108782 . 114597) (
-GIT-COMPARE-WORKTREE 114599 . 118577) (GITCDOBJBUTTONFN 118579 . 123077) (GIT-CD-LABELFN 123079 . 
-124165) (GIT-CD-MENUFN 124167 . 126713) (GIT-WORKING-COMPARE-FILES 126715 . 127335) (
-GIT-BRANCHES-COMPARE-FILES 127337 . 128501) (GIT-PR-COMPARE 128503 . 128730)) (128802 137133 (CDGITDIR
- 128812 . 129499) (GIT-COMMAND 129501 . 131059) (GITORIGIN 131061 . 131758) (GIT-INITIALS 131760 . 
-132064) (GIT-COMMAND-TO-FILE 132066 . 135551) (GIT-RESULT-TO-LINES 135553 . 136466) (STRIPLOCAL 136468
- . 137131)))))
+  (FILEMAP (NIL (4187 21467 (GIT-CLONEP 4197 . 5628) (GIT-INIT 5630 . 6260) (GIT-MAKE-PROJECT 6262 . 
+14521) (GIT-GET-PROJECT 14523 . 16448) (GIT-PUT-PROJECT-FIELD 16450 . 18091) (GIT-PROJECT-PATH 18093
+ . 19137) (FIND-ANCESTOR-DIRECTORY 19139 . 19490) (GIT-FIND-CLONE 19492 . 20575) (GIT-MAINBRANCH 20577
+ . 20972) (GIT-MAINBRANCH? 20974 . 21465)) (26239 33413 (PRC-COMMAND 26249 . 31531) (GIT-GWC-COMMAND 
+31533 . 33411)) (33469 36257 (ALLSUBDIRS 33479 . 34765) (MEDLEYSUBDIRS 34767 . 35460) (GITSUBDIRS 
+35462 . 36255)) (36258 38663 (TOGIT 36268 . 37676) (FROMGIT 37678 . 38661)) (38664 41673 (
+WORKINGSUBDIR 38674 . 39129) (GITSUBDIR 39131 . 39574) (STRIPDIR 39576 . 39954) (STRIPHOST 39956 . 
+40196) (STRIPNAME 40198 . 40951) (STRIPWHERE 40953 . 41671)) (41674 43909 (GFILE4MFILE 41684 . 42380) 
+(MFILE4GFILE 42382 . 42951) (GIT-REPO-FILENAME 42953 . 43907)) (43958 54215 (GIT-COMMIT 43968 . 44794)
+ (GIT-PUSH 44796 . 45556) (GIT-PULL 45558 . 46310) (GIT-APPROVAL 46312 . 46661) (GIT-GET-FILE 46663 . 
+48578) (GIT-FILE-EXISTS? 48580 . 48854) (GIT-REMOTE-UPDATE 48856 . 49691) (GIT-REMOTE-ADD 49693 . 
+50000) (GIT-FILE-DATE 50002 . 51049) (GIT-FILE-HISTORY 51051 . 52985) (GIT-PRINT-FILE-HISTORY 52987 . 
+54039) (GIT-FETCH 54041 . 54213)) (54245 66197 (GIT-BRANCH-DIFF 54255 . 61144) (GIT-COMMIT-DIFFS 61146
+ . 62037) (GIT-BRANCH-RELATIONS 62039 . 65723) (GIT-MODIFIED 65725 . 66195)) (66242 85189 (
+GIT-BRANCH-NUM 66252 . 66825) (GIT-CHECKOUT 66827 . 68113) (GIT-WHICH-BRANCH 68115 . 68522) (
+GIT-MAKE-BRANCH 68524 . 71103) (GIT-BRANCHES 71105 . 73702) (GIT-BRANCH-EXISTS? 73704 . 74575) (
+GIT-PICK-BRANCH 74577 . 75067) (GIT-BRANCH-MENU 75069 . 75970) (GIT-BRANCH-WHENSELECTEDFN 75972 . 
+77679) (GIT-PULL-REQUESTS 77681 . 81566) (GIT-SHORT-BRANCH-NAME 81568 . 81859) (GIT-LONG-NAME 81861 . 
+82178) (GIT-PRC-BRANCHES 82180 . 85187)) (85219 89973 (GIT-MY-CURRENT-BRANCH 85229 . 85599) (
+GIT-MY-BRANCHP 85601 . 86219) (GIT-MY-NEXT-BRANCH 86221 . 88021) (GIT-MY-BRANCHES 88023 . 89971)) (
+90019 94103 (GIT-ADD-WORKTREE 90029 . 91636) (GIT-REMOVE-WORKTREE 91638 . 92570) (GIT-LIST-WORKTREES 
+92572 . 93383) (WORKTREEDIR 93385 . 94101)) (94151 129156 (GIT-GET-DIFFERENT-FILES 94161 . 101069) (
+GIT-BRANCHES-COMPARE-DIRECTORIES 101071 . 108710) (GIT-WORKING-COMPARE-DIRECTORIES 108712 . 114527) (
+GIT-COMPARE-WORKTREE 114529 . 118507) (GITCDOBJBUTTONFN 118509 . 123007) (GIT-CD-LABELFN 123009 . 
+124589) (GIT-CD-MENUFN 124591 . 127137) (GIT-WORKING-COMPARE-FILES 127139 . 127759) (
+GIT-BRANCHES-COMPARE-FILES 127761 . 128925) (GIT-PR-COMPARE 128927 . 129154)) (129226 137557 (CDGITDIR
+ 129236 . 129923) (GIT-COMMAND 129925 . 131483) (GITORIGIN 131485 . 132182) (GIT-INITIALS 132184 . 
+132488) (GIT-COMMAND-TO-FILE 132490 . 135975) (GIT-RESULT-TO-LINES 135977 . 136890) (STRIPLOCAL 136892
+ . 137555)))))
 STOP
--- a/lispusers/GITFNS.LCOM
+++ b/lispusers/GITFNS.LCOM
--- a/lispusers/WHEELSCROLL.TEDIT
+++ b/lispusers/WHEELSCROLL.TEDIT
--- a/lispusers/tmax/TMAX
+++ b/lispusers/tmax/TMAX
@@ -1,14 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

-(FILECREATED "12-Aug-2025 08:27:53" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>tmax>TMAX.;46 28244  
+(FILECREATED "15-May-2026 22:31:17" {MEDLEY}<lispusers>tmax>TMAX.;47 28263  

      :EDIT-BY rmk

-      :CHANGES-TO (VARS TMAXCOMS TSP.FM.DESC)
+      :CHANGES-TO (FNS NGROUPMENU.ENABLED?)

-      :PREVIOUS-DATE "30-Mar-2025 21:51:58" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>lispusers>TMAX>TMAX.;44)
+      :PREVIOUS-DATE "12-Aug-2025 08:27:53" {MEDLEY}<lispusers>tmax>TMAX.;46)


 (PRETTYCOMPRINT TMAXCOMS)
@@ -377,9 +375,10 @@
            (T (CLOSE.NGROUP.GRAPH TSTREAM])

 (NGROUPMENU.ENABLED?
-  [LAMBDA (TSTREAM)                                          (* ; "Edited 21-Feb-2025 10:17 by rmk")
+  [LAMBDA (TSTREAM)                                          (* ; "Edited 15-May-2026 22:29 by rmk")
+                                                             (* ; "Edited 21-Feb-2025 10:17 by rmk")
                                                             (* ; "Edited 29-Sep-87 11:42 by fsg")
-    (FM.ITEMPROP (FM.GETITEM 'NGROUP.MENU NIL (TMAXPROP TSTREAM 'IMAGEOBJ.MENUW))
+    (FM.ITEMPROP (FM.GETITEM 'NGROUP.MENU NIL (TSP.SETUP.FMMENU TSTREAM))
           'STATE])

 (NGROUP.Text-Before.TOGGLE
@@ -577,15 +576,15 @@

 (TSP.FUNCTION.HOOKS)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3307 4191 (EDIT-TMAX 3317 . 4189)) (8202 16445 (TSP.DISPLAY.FMMENU 8212 . 8886) (
-TSP.SETUP.FILENAMES 8888 . 10219) (TSP.SETUP.FMMENU 10221 . 10772) (TSP.FMMENU 10774 . 11878) (
-TSP.FM.APPLY 11880 . 12468) (UPDATE.ALL 12470 . 13346) (DOWNDATE.ALL 13348 . 13975) (
-TSP.FUNCTION.HOOKS 13977 . 15407) (TSP.GETFN 15409 . 15984) (TSP.PUTFN 15986 . 16443)) (16491 20425 (
-AutoUpdate.TOGGLE 16501 . 16958) (UPDATE? 16960 . 17325) (NGROUP.Menu.TOGGLE 17327 . 17872) (
-NGROUPMENU.ENABLED? 17874 . 18216) (NGROUP.Text-Before.TOGGLE 18218 . 18689) (TEXTBEFORE.ENABLED? 
-18691 . 18958) (NGROUP.Text-After.TOGGLE 18960 . 19429) (TEXTAFTER.ENABLED? 19431 . 19696) (
-Manual.Index.TOGGLE 19698 . 20158) (MANUALINDEX.ENABLED? 20160 . 20423)) (20459 26121 (GET.TSP.FONT 
-20469 . 21743) (GET.TSP.FONT.FAMILY 21745 . 22365) (GET.TSP.FONT.SIZE 22367 . 22855) (
-GET.TSP.FONT.FACE 22857 . 23749) (ABBREVIATE.FONT 23751 . 25365) (TMAX.SHADEOBJ 25367 . 26119)) (26161
- 27529 (TSP.LIST.OF.OBJECTS 26171 . 27527)))))
+  (FILEMAP (NIL (3221 4105 (EDIT-TMAX 3231 . 4103)) (8116 16359 (TSP.DISPLAY.FMMENU 8126 . 8800) (
+TSP.SETUP.FILENAMES 8802 . 10133) (TSP.SETUP.FMMENU 10135 . 10686) (TSP.FMMENU 10688 . 11792) (
+TSP.FM.APPLY 11794 . 12382) (UPDATE.ALL 12384 . 13260) (DOWNDATE.ALL 13262 . 13889) (
+TSP.FUNCTION.HOOKS 13891 . 15321) (TSP.GETFN 15323 . 15898) (TSP.PUTFN 15900 . 16357)) (16405 20444 (
+AutoUpdate.TOGGLE 16415 . 16872) (UPDATE? 16874 . 17239) (NGROUP.Menu.TOGGLE 17241 . 17786) (
+NGROUPMENU.ENABLED? 17788 . 18235) (NGROUP.Text-Before.TOGGLE 18237 . 18708) (TEXTBEFORE.ENABLED? 
+18710 . 18977) (NGROUP.Text-After.TOGGLE 18979 . 19448) (TEXTAFTER.ENABLED? 19450 . 19715) (
+Manual.Index.TOGGLE 19717 . 20177) (MANUALINDEX.ENABLED? 20179 . 20442)) (20478 26140 (GET.TSP.FONT 
+20488 . 21762) (GET.TSP.FONT.FAMILY 21764 . 22384) (GET.TSP.FONT.SIZE 22386 . 22874) (
+GET.TSP.FONT.FACE 22876 . 23768) (ABBREVIATE.FONT 23770 . 25384) (TMAX.SHADEOBJ 25386 . 26138)) (26180
+ 27548 (TSP.LIST.OF.OBJECTS 26190 . 27546)))))
 STOP
--- a/lispusers/tmax/TMAX-INDEX
+++ b/lispusers/tmax/TMAX-INDEX
@@ -1,12 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "XCL" :BASE 10)

-(FILECREATED "28-Feb-2025 23:36:19" |{WMEDLEY}<lispusers>tmax>TMAX-INDEX.;22| 46719  
+(FILECREATED "16-May-2026 09:19:48" |{MEDLEY}<lispusers>tmax>TMAX-INDEX.;24| 46972  

      :EDIT-BY |rmk|

-      :CHANGES-TO (FNS INDEX.MANUAL.DELIMITER RESET.INDEX.PAGENUMBERS)
+      :CHANGES-TO (FNS CREATE.INDEX.FILE GET.INDEX.FILE)

-      :PREVIOUS-DATE "23-Feb-2025 11:55:07" |{WMEDLEY}<lispusers>tmax>TMAX-INDEX.;20|)
+      :PREVIOUS-DATE "28-Feb-2025 23:36:19" |{MEDLEY}<lispusers>tmax>TMAX-INDEX.;22|)


 (PRETTYCOMPRINT TMAX-INDEXCOMS)
@@ -587,24 +587,26 @@
 (DEFINEQ

 (CREATE.INDEX.FILE
-  (LAMBDA (TSTREAM INDEX.FILE INDEX.FONT NOTITLE)           (* \; "Edited 23-Feb-2025 11:55 by rmk")
+  (LAMBDA (TSTREAM INDEX.FILE INDEX.FONT NOTITLE)           (* \; "Edited 16-May-2026 09:18 by rmk")
+                                                            (* \; "Edited 23-Feb-2025 11:55 by rmk")
                                                            (* \; "Edited 21-Feb-2025 10:17 by rmk")
                                                             (* \; "Edited 14-Feb-97 11:10 by rmk:")
                                                             (* |fsg| "13-Aug-87 09:05")
    (SETQ INDEX.FILE (OR (OUTFILEP (OR INDEX.FILE (GET.INDEX.FILE (TMAXPROP TSTREAM 'IMAGEOBJ.MENUW))
                                       ))
-                         (ERROR (CONCAT "Can't open " INDEX.FILE " as a index file"))))
-    (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Writing index on " INDEX.FILE)
+                         (ERROR (CONCAT "Can't open index file" INDEX.FILE))))
+    (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Writing index on " INDEX.FILE "...")
           T)
-    (LET ((IMAGESTREAM (OPENIMAGESTREAM '{NULL}))
+    (LET ((DUMMYSTREAM (OPENIMAGESTREAM (UNIX-TMP-FILE-NAME '|tmax-index| '|pdf|)
+                              'PDF))
          INDEX.ARRAY INDEX.LIST INDEX.STREAM)

-         (* |;;| 
-         "Make sure we have the page numbers, written in the image stream.  Why not in TSTREAM?")
+         (* |;;| "Collect the index-term page numbers in the array")

-         (TEDIT.FORMAT.HARDCOPY TSTREAM IMAGESTREAM NIL NIL NIL NIL NIL NIL NIL NIL T)
-         (SETQ INDEX.ARRAY (TMAXPROP IMAGESTREAM 'TSP.INDEX.ARRAY))
-         (SETQ INDEX.LIST (INDEX.LIST.REFS IMAGESTREAM))
+         (TEDIT.TO.IMAGEFILE TSTREAM DUMMYSTREAM)
+         (SETQ INDEX.ARRAY (TMAXPROP DUMMYSTREAM 'TSP.INDEX.ARRAY))
+         (SETQ INDEX.LIST (INDEX.LIST.REFS DUMMYSTREAM))
+         (DELFILE (CLOSEF? DUMMYSTREAM))
         (COND
            ((AND INDEX.LIST INDEX.FILE)
             (SETQ INDEX.STREAM (OPENTEXTSTREAM))
@@ -614,6 +616,7 @@
                 (PRINTOUT INDEX.STREAM "Index" T T))
             (WRITE.INDEX.FILE INDEX.STREAM INDEX.LIST INDEX.ARRAY INDEX.FONT)
             (CLOSEF? (TEDIT.PUT INDEX.STREAM INDEX.FILE))
+             (TEDIT.PROMPTPRINT TSTREAM "done")
             INDEX.FILE)
            (INDEX.LIST (TEDIT.PROMPTPRINT TSTREAM "Please specify a name for the index file" T)
                   NIL)
@@ -664,15 +667,16 @@
                    ))
         INDEX.FILE)))

-(get.index.file
-  (lambda (menuw)                                            (* \; "Edited 29-Sep-87 14:34 by fsg")
+(GET.INDEX.FILE
+  (LAMBDA (MENUW)                                           (* \; "Edited 16-May-2026 09:17 by rmk")
+                                                             (* \; "Edited 29-Sep-87 14:34 by fsg")

-          (* * |Return| |the| |user| |specified| |index| |file| |name.|)
+(* |;;;| "Return the user specified index file name.")

-    (let ((filename (fm.itemprop (fm.getitem 'index.file nil menuw)
-                           'label)))
-         (and (not (strequal filename ""))
-              (mkatom filename)))))
+    (LET ((FILENAME (FM.ITEMPROP (FM.GETITEM 'INDEX.FILE NIL MENUW)
+                           'LABEL)))
+         (CL:UNLESS (STREQUAL FILENAME "")
+                (MKATOM FILENAME)))))

 (WRITE.INDEX.FILE
  (LAMBDA (INDEX.STREAM INDEX.LIST INDEX.ARRAY INDEX.FONT PAGE.FONT)
@@ -865,17 +869,17 @@
 (* |;;;| "IMAGE OBJECT for causing the index to be written, without using the menu")

 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (3107 11080 (INDEXOBJ 3117 . 4140) (INDEXOBJP 4142 . 4590) (INDEX.DISPLAYFN 4592 . 6451)
- (INDEX.IMAGEBOXFN 6453 . 7999) (INDEX.PUTFN 8001 . 8431) (INDEX.GETFN 8433 . 8824) (INDEX.COPYFN 8826
- . 9469) (INDEX.BUTTONEVENTINFN 9471 . 11078)) (11119 19220 (INSERT.INDEX 11129 . 11716) (
-INSERT.INDEXENTRY 11718 . 14501) (INSERT.KNOWN.INDEX 14503 . 16687) (SUBITEM.SELECTFN 16689 . 17683) (
-ADD.NEW.INDEX 17685 . 19218)) (19286 23217 (CHANGE.INDEX 19296 . 19864) (CHANGE.INDEXENTRY 19866 . 
-20616) (CHANGE.XINDEX.KEY 20618 . 21176) (CHANGE.XINDEX.ENTRY 21178 . 21811) (CHANGE.XINDEX.FONT 21813
- . 22682) (CHANGE.XINDEX.NUMBER 22684 . 23215)) (23259 31132 (GETHASH.INDEX 23269 . 24045) (
-INDEX.PAGE.NUMBER 24047 . 25700) (INDEX.MANUAL.DELIMITER 25702 . 26334) (INDEX.STRING 26336 . 27346) (
-GET.INDEXENTRY.NUMBER 27348 . 28368) (INDEX.LIST.REFS 28370 . 29888) (LIST.OF.INDEXENTRIES 29890 . 
-31130)) (31174 40965 (CREATE.INDEX.FILE 31184 . 33079) (DUMP.INDEX 33081 . 34931) (VIEW.INDEX.FILE 
-34933 . 35993) (GET.INDEX.FILE 35995 . 36385) (WRITE.INDEX.FILE 36387 . 38788) (
-WRITE.INDEX.PAGENUMBERS 38790 . 39990) (RESET.INDEX.PAGENUMBERS 39992 . 40963)) (41163 45188 (
-SELECTION.TO.STRING 41173 . 44005) (SELECTION.TO.INDEX 44007 . 45186)))))
+  (FILEMAP (NIL (3091 11064 (INDEXOBJ 3101 . 4124) (INDEXOBJP 4126 . 4574) (INDEX.DISPLAYFN 4576 . 6435)
+ (INDEX.IMAGEBOXFN 6437 . 7983) (INDEX.PUTFN 7985 . 8415) (INDEX.GETFN 8417 . 8808) (INDEX.COPYFN 8810
+ . 9453) (INDEX.BUTTONEVENTINFN 9455 . 11062)) (11103 19204 (INSERT.INDEX 11113 . 11700) (
+INSERT.INDEXENTRY 11702 . 14485) (INSERT.KNOWN.INDEX 14487 . 16671) (SUBITEM.SELECTFN 16673 . 17667) (
+ADD.NEW.INDEX 17669 . 19202)) (19270 23201 (CHANGE.INDEX 19280 . 19848) (CHANGE.INDEXENTRY 19850 . 
+20600) (CHANGE.XINDEX.KEY 20602 . 21160) (CHANGE.XINDEX.ENTRY 21162 . 21795) (CHANGE.XINDEX.FONT 21797
+ . 22666) (CHANGE.XINDEX.NUMBER 22668 . 23199)) (23243 31116 (GETHASH.INDEX 23253 . 24029) (
+INDEX.PAGE.NUMBER 24031 . 25684) (INDEX.MANUAL.DELIMITER 25686 . 26318) (INDEX.STRING 26320 . 27330) (
+GET.INDEXENTRY.NUMBER 27332 . 28352) (INDEX.LIST.REFS 28354 . 29872) (LIST.OF.INDEXENTRIES 29874 . 
+31114)) (31158 41218 (CREATE.INDEX.FILE 31168 . 33239) (DUMP.INDEX 33241 . 35091) (VIEW.INDEX.FILE 
+35093 . 36153) (GET.INDEX.FILE 36155 . 36638) (WRITE.INDEX.FILE 36640 . 39041) (
+WRITE.INDEX.PAGENUMBERS 39043 . 40243) (RESET.INDEX.PAGENUMBERS 40245 . 41216)) (41416 45441 (
+SELECTION.TO.STRING 41426 . 44258) (SELECTION.TO.INDEX 44260 . 45439)))))
 STOP
--- a/lispusers/tmax/TMAX-INDEX.LCOM
+++ b/lispusers/tmax/TMAX-INDEX.LCOM
--- a/lispusers/tmax/TMAX-NGRAPH
+++ b/lispusers/tmax/TMAX-NGRAPH
@@ -1,15 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "XCL" :BASE 10)

-(FILECREATED "28-Feb-2025 23:52:01" |{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;14| 27479  
+(FILECREATED "12-Apr-2026 23:42:38" |{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;15| 27461  

      :EDIT-BY |rmk|

-      :CHANGES-TO (FNS NGROUP.CHARTYPE.CONVERT UPDATE.NUMBEROBJS DOWNDATE.NUMBEROBJS NGROUP.CHARTYPE
-                       INITIAL.NGROUP.GRAPH RESET.DEPENDENT.CLASSES GET.NCOUNTER GRAPHMENU 
-                       CREATE.NGROUP.NODE FLATTEN.TREE.TO.STRING)
-                  (VARS TMAX-NGRAPHCOMS)
+      :CHANGES-TO (FNS TSP.GET.NGROUP.ARRAY)

-      :PREVIOUS-DATE "23-Feb-2025 22:59:05" |{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;11|)
+      :PREVIOUS-DATE "28-Feb-2025 23:52:01" |{WMEDLEY}<lispusers>tmax>TMAX-NGRAPH.;14|)


 (PRETTYCOMPRINT TMAX-NGRAPHCOMS)
@@ -197,9 +194,13 @@
    (CADR (GETHASH NGID (TSP.GET.NGROUP.ARRAY TSTREAM)))))

 (TSP.GET.NGROUP.ARRAY
-  (LAMBDA (TSTREAM)                                         (* \; "Edited 21-Feb-2025 10:17 by rmk")
+  (LAMBDA (TSTREAM)                                         (* \; "Edited 12-Apr-2026 23:40 by rmk")
+                                                            (* \; "Edited 21-Feb-2025 10:17 by rmk")
                                                             (* |ss:| "27-Jun-87 16:21")
-    (TMAXPROP TSTREAM 'TSP.NGROUP.ARRAY)))
+    (OR (TMAXPROP TSTREAM 'TSP.NGROUP.ARRAY)
+        (LET ((ARRAY (HASHARRAY 30)))
+             (TMAXPROP TSTREAM 'TSP.NGROUP.ARRAY (HASHARRAY 30))
+             ARRAY))))

 (tsp.legalid
  (lambda (prev.ngroups stream)                              (* |fsg| " 3-Aug-87 17:04")
@@ -485,15 +486,15 @@
       |finally| (TMAXPROP TSTREAM 'COUNTERS NIL))))
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (1692 12881 (GRAPHMENU 1702 . 2983) (INITIAL.NGROUP.GRAPH 2985 . 3763) (
-NGROUP.MAKE.ROOTNODE 3765 . 3986) (TSPGRAPHREGION 3988 . 4639) (CLOSE.NGROUP.GRAPH 4641 . 5245) (
-NGROUP.GRAPH.CLOSEFN 5247 . 5904) (ADD.NGROUP.TO.MOTHER.NODE 5906 . 6411) (ADD.NODE.TO.GRAPH 6413 . 
-7624) (COLLECT.HASHARRAY 7626 . 7912) (CREATE.NGROUP.NODE 7914 . 8749) (GET.FROMNODES 8751 . 9057) (
-GET.TONODES 9059 . 9646) (FIND.NODE 9648 . 9927) (TSP.GET.NGROUP.ARRAY 9929 . 10199) (TSP.LEGALID 
-10201 . 11362) (LIST.ANCESTORS 11364 . 11893) (TOPLEVEL.SISTERS 11895 . 12333) (GET.NGROUP.MOTHER 
-12335 . 12879)) (12928 27456 (DOWNDATE.NUMBEROBJS 12938 . 14887) (UPDATE.NUMBEROBJS 14889 . 16686) (
-RESET.DEPENDENT.CLASSES 16688 . 17263) (RESET.NCOUNTER 17265 . 18156) (GET.NCOUNTER 18158 . 19417) (
-NCOUNTER? 19419 . 21229) (FLATTEN.TREE.TO.STRING 21231 . 23129) (NGROUP.CHARTYPE 23131 . 24689) (
-NGROUP.CHARTYPE.CONVERT 24691 . 26076) (NUMBER.TO.LETTER 26078 . 27068) (REMOVE.ALL.COUNTERS 27070 . 
-27454)))))
+  (FILEMAP (NIL (1437 12863 (GRAPHMENU 1447 . 2728) (INITIAL.NGROUP.GRAPH 2730 . 3508) (
+NGROUP.MAKE.ROOTNODE 3510 . 3731) (TSPGRAPHREGION 3733 . 4384) (CLOSE.NGROUP.GRAPH 4386 . 4990) (
+NGROUP.GRAPH.CLOSEFN 4992 . 5649) (ADD.NGROUP.TO.MOTHER.NODE 5651 . 6156) (ADD.NODE.TO.GRAPH 6158 . 
+7369) (COLLECT.HASHARRAY 7371 . 7657) (CREATE.NGROUP.NODE 7659 . 8494) (GET.FROMNODES 8496 . 8802) (
+GET.TONODES 8804 . 9391) (FIND.NODE 9393 . 9672) (TSP.GET.NGROUP.ARRAY 9674 . 10181) (TSP.LEGALID 
+10183 . 11344) (LIST.ANCESTORS 11346 . 11875) (TOPLEVEL.SISTERS 11877 . 12315) (GET.NGROUP.MOTHER 
+12317 . 12861)) (12910 27438 (DOWNDATE.NUMBEROBJS 12920 . 14869) (UPDATE.NUMBEROBJS 14871 . 16668) (
+RESET.DEPENDENT.CLASSES 16670 . 17245) (RESET.NCOUNTER 17247 . 18138) (GET.NCOUNTER 18140 . 19399) (
+NCOUNTER? 19401 . 21211) (FLATTEN.TREE.TO.STRING 21213 . 23111) (NGROUP.CHARTYPE 23113 . 24671) (
+NGROUP.CHARTYPE.CONVERT 24673 . 26058) (NUMBER.TO.LETTER 26060 . 27050) (REMOVE.ALL.COUNTERS 27052 . 
+27436)))))
 STOP
--- a/lispusers/tmax/TMAX-NGRAPH.LCOM
+++ b/lispusers/tmax/TMAX-NGRAPH.LCOM
--- a/lispusers/tmax/TMAX-NGROUP
+++ b/lispusers/tmax/TMAX-NGROUP
@@ -1,19 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "XCL" :BASE 10)

-(FILECREATED "28-Feb-2025 23:58:44" |{WMEDLEY}<lispusers>tmax>TMAX-NGROUP.;54| 51157  
+(FILECREATED "16-May-2026 09:27:29" |{MEDLEY}<lispusers>tmax>TMAX-NGROUP.;58| 51129  

      :EDIT-BY |rmk|

-      :CHANGES-TO (FNS CHANGE.NGROUP.FORMAT CHANGE.NGROUP.FORMAT.ABBREV CHANGE.NGROUP.FORMAT.START 
-                       WRITE.TOC.ENTRY MAP.NGROUP.LOOKS GET.PREVIOUS.NGROUPS NGROUP.TOC.ENTRIES 
-                       CHANGE.NGROUP CHANGE.NGROUP.FONT CHANGE.NGROUP.FORMAT.TXTBEFORE 
-                       CHANGE.NGROUP.FORMAT.DELIMBEFORE CHANGE.NGROUP.FORMAT.DELIMAFTER 
-                       GET.NGROUP.TEMPLATE ADD.NUMBER.GROUP CHANGE.NGROUP.FORMAT.TOC 
-                       CHANGE.NGROUP.FORMAT.MANINDEX CHANGE.NGROUP.FORMAT.DISPLAY 
-                       UPDATE.NGROUP.MANINDEX GET.NGROUP.START SHOW.NGROUP.FONT NGROUP.GETFONT 
-                       NGROUP.FIXUP.RECORDS)
+      :CHANGES-TO (FNS WRITE.TOC.ENTRY CREATE.TOC.FILE WRITE.TOC.FILE)

-      :PREVIOUS-DATE "24-Feb-2025 09:25:39" |{WMEDLEY}<lispusers>tmax>TMAX-NGROUP.;49|)
+      :PREVIOUS-DATE "28-Feb-2025 23:58:44" |{MEDLEY}<lispusers>tmax>TMAX-NGROUP.;54|)


 (PRETTYCOMPRINT TMAX-NGROUPCOMS)
@@ -704,25 +697,27 @@
                                                                         CHAR)))))))

 (CREATE.TOC.FILE
-  (LAMBDA (TSTREAM TOC.FILE)                                (* \; "Edited 23-Feb-2025 11:49 by rmk")
+  (LAMBDA (TSTREAM TOC.FILE)                                (* \; "Edited 16-May-2026 09:18 by rmk")
+                                                            (* \; "Edited 23-Feb-2025 11:49 by rmk")
                                                            (* \; "Edited 21-Feb-2025 10:17 by rmk")
                                                             (* |fsg| "16-Jul-87 11:46")

 (* |;;;| "Here to print the Table Of Contents.  Each Line of the TOC consists of the NGroup, the corresponding text, followed by the current listing page number.")

-    (SETQ TOC.FILE (OR (OUTFILEP (OR TOC.FILE (GET.INDEX.FILE (TMAXPROP TSTREAM 'IMAGEOBJ.MENUW))))
-                       (ERROR (CONCAT "Can't open " TOC.FILE " as a index file"))))
-    (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Writing table of contents on " TOC.FILE)
+    (SETQ TOC.FILE (OR (OUTFILEP (OR TOC.FILE (GET.TOC.FILE (TMAXPROP TSTREAM 'IMAGEOBJ.MENUW))))
+                       (ERROR (CONCAT "Can't open table of contents file " TOC.FILE))))
+    (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Writing contents on " TOC.FILE "...")
           T)
-    (LET ((IMAGESTREAM (OPENIMAGESTREAM '{NULL}))
+    (LET ((DUMMYSTREAM (OPENIMAGESTREAM (UNIX-TMP-FILE-NAME '|tmax-toc| '|pdf|)
+                              'PDF))
          (TOC.LIST (TSP.LIST.OF.OBJECTS TSTREAM (FUNCTION NGROUP.TOC.ENTRIES)))
          (TOC.TABSTOP `(PARALOOKS (TABS ((,(FIXR (TIMES 72.27 6.125)) . DOTTEDLEFT)))))
          TOC.STREAM)

-         (* |;;| 
-         "Make sure we have the page numbers, written in the image stream.  Why not in TSTREAM?")
+         (* |;;| "Collect page numbers in the image objects")

-         (TEDIT.FORMAT.HARDCOPY TSTREAM IMAGESTREAM NIL NIL NIL NIL NIL NIL NIL NIL T)
+         (TEDIT.TO.IMAGEFILE TSTREAM DUMMYSTREAM)
+         (DELFILE DUMMYSTREAM)
         (COND
            ((AND TOC.LIST TOC.FILE)
             (SETQ TOC.STREAM (OPENTEXTSTREAM NIL NIL NIL NIL TOC.TABSTOP))
@@ -730,6 +725,7 @@
             (SETQ TOC.FILE (TEDIT.PUT TOC.STREAM TOC.FILE NIL NIL NIL T))
             (CLOSEF? TOC.FILE)
             (SETQ TOC.FILE (FULLNAME TOC.FILE))
+             (TEDIT.PROMPTPRINT TSTREAM "done")
             TOC.FILE)
            (TOC.LIST (TEDIT.PROMPTPRINT TSTREAM 
                             "Please specify a file name for the table of contents" T)
@@ -777,7 +773,8 @@
                (MKATOM FILENAME)))))

 (WRITE.TOC.FILE
-  (LAMBDA (TOC.STREAM TOC.LIST TSTREAM)                     (* \; "Edited 21-Feb-2025 00:55 by rmk")
+  (LAMBDA (TOC.STREAM TOC.LIST TSTREAM)                     (* \; "Edited 16-May-2026 07:58 by rmk")
+                                                            (* \; "Edited 21-Feb-2025 00:55 by rmk")
                                                             (* |fsg| "26-Aug-87 15:37")

 (* |;;;| "Here to speficy the order of the Table-Of-Contents.  The TOC is ordered by the top-level sister nodes.")
@@ -788,20 +785,21 @@
    (|for| TOC.MOTHER |in| (TOPLEVEL.SISTERS TSTREAM)
       |do| (DSPFONT |GP.DefaultFont| TOC.STREAM)
            (PRINTOUT TOC.STREAM T)
-            (|for| TOC.ITEM |in| TOC.LIST |when| (|with| NUMBEROBJ (|fetch| OBJECTDATUM
-                                                                      |of| (CAR TOC.ITEM))
+            (|for| TOC.ITEM |in| TOC.LIST |when| (|with| NUMBEROBJ (|fetch| OBJECTDATUM |of| TOC.ITEM
+                                                                          )
                                                        (EQ (GET.NGROUP.MOTHER REF.TYPE TSTREAM)
                                                            TOC.MOTHER))
               |do| (WRITE.TOC.ENTRY TOC.ITEM TOC.STREAM TSTREAM)))))

 (WRITE.TOC.ENTRY
-  (LAMBDA (TOC.ITEM TOC.STREAM TSTREAM)                     (* \; "Edited 25-Feb-2025 10:35 by rmk")
+  (LAMBDA (TOC.ITEM TOC.STREAM TSTREAM)                     (* \; "Edited 16-May-2026 09:27 by rmk")
+                                                            (* \; "Edited 25-Feb-2025 10:35 by rmk")
                                                            (* \; "Edited 21-Feb-2025 00:55 by rmk")
                                                             (* |fsg| "27-Jul-87 14:55")

 (* |;;;| "Write one line to the Table-Of-Contents file.")

-    (LET* ((DATUM (|fetch| OBJECTDATUM |of| (CAR TOC.ITEM)))
+    (LET* ((DATUM (|fetch| OBJECTDATUM |of| TOC.ITEM))
           (ITEM.LEVEL (LENGTH (LIST.ANCESTORS (|fetch| (NUMBEROBJ REF.TYPE) |of| DATUM)
                                      NIL TSTREAM))))
          (DSPFONT |GP.DefaultFont| TOC.STREAM)
@@ -811,25 +809,29 @@
             (T (RPTQ ITEM.LEVEL (PRINTOUT TOC.STREAM "   "))))
          (DSPFONT (|fetch| (NUMBEROBJ FONT) |of| DATUM)
                 TOC.STREAM)
-          (PRINTOUT TOC.STREAM (|fetch| (NUMBEROBJ NUMSTRING) |of| DATUM))
+          (PRINTOUT TOC.STREAM (OR (|fetch| (NUMBEROBJ TEXT.BEFORE#) |of| DATUM)
+                                   "")
+                 (|fetch| (NUMBEROBJ NUMSTRING) |of| DATUM)
+                 (OR (|fetch| (NUMBEROBJ TEXT.AFTER#) |of| DATUM)
+                     ""))
          (DSPFONT |GP.DefaultFont| TOC.STREAM)
          (PRINTOUT TOC.STREAM (CHARACTER (CHARCODE TAB))
                 (|fetch| (NUMBEROBJ PAGE.NUMBER) |of| DATUM)
                 T))))
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (2291 42669 (INSERT.NGROUP 2301 . 3781) (VERIFY.NGROUP.ORDER 3783 . 5571) (
-GET.PREVIOUS.NGROUPS 5573 . 6114) (ADD.NUMBER.GROUP 6116 . 8217) (ADD.NGROUP.TO.DBASE 8219 . 9128) (
-COLLECT.NGROUPS 9130 . 9830) (LIST.FONT.PROPS 9832 . 10096) (MAP.NGROUP.LOOKS 10098 . 12009) (
-NGROUP.GETFONT 12011 . 13286) (CHANGE.NGROUP 13288 . 14515) (CHANGE.NGROUP.FONT 14517 . 16876) (
-SHOW.NGROUP.FONT 16878 . 17607) (CHANGE.NGROUP.FORMAT 17609 . 20941) (SHOW.NGROUP.FORMAT 20943 . 21516
-) (GET.NGROUP.TEMPLATE 21518 . 22978) (CHANGE.NGROUP.FORMAT.DELIMBEFORE 22980 . 23962) (
-CHANGE.NGROUP.FORMAT.DISPLAY 23964 . 25654) (CHANGE.NGROUP.FORMAT.DELIMAFTER 25656 . 26634) (
-GET.NGROUP.DELIMITER 26636 . 28370) (CHANGE.NGROUP.FORMAT.ABBREV 28372 . 30663) (
-CHANGE.NGROUP.FORMAT.START 30665 . 31546) (GET.NGROUP.START 31548 . 33364) (CHANGE.NGROUP.FORMAT.TOC 
-33366 . 35382) (CHANGE.NGROUP.FORMAT.MANINDEX 35384 . 37819) (UPDATE.NGROUP.MANINDEX 37821 . 39359) (
-NGROUP.FIXUP.RECORDS 39361 . 42667)) (42718 51134 (GET.NGROUP.TEXTSTRING 42728 . 44110) (
-CONVERT.TABS.TO.SPACES 44112 . 44910) (CREATE.TOC.FILE 44912 . 46827) (NGROUP.TOC.ENTRIES 46829 . 
-47478) (VIEW.TOC.FILE 47480 . 48379) (GET.TOC.FILE 48381 . 48875) (WRITE.TOC.FILE 48877 . 49939) (
-WRITE.TOC.ENTRY 49941 . 51132)))))
+  (FILEMAP (NIL (1676 42054 (INSERT.NGROUP 1686 . 3166) (VERIFY.NGROUP.ORDER 3168 . 4956) (
+GET.PREVIOUS.NGROUPS 4958 . 5499) (ADD.NUMBER.GROUP 5501 . 7602) (ADD.NGROUP.TO.DBASE 7604 . 8513) (
+COLLECT.NGROUPS 8515 . 9215) (LIST.FONT.PROPS 9217 . 9481) (MAP.NGROUP.LOOKS 9483 . 11394) (
+NGROUP.GETFONT 11396 . 12671) (CHANGE.NGROUP 12673 . 13900) (CHANGE.NGROUP.FONT 13902 . 16261) (
+SHOW.NGROUP.FONT 16263 . 16992) (CHANGE.NGROUP.FORMAT 16994 . 20326) (SHOW.NGROUP.FORMAT 20328 . 20901
+) (GET.NGROUP.TEMPLATE 20903 . 22363) (CHANGE.NGROUP.FORMAT.DELIMBEFORE 22365 . 23347) (
+CHANGE.NGROUP.FORMAT.DISPLAY 23349 . 25039) (CHANGE.NGROUP.FORMAT.DELIMAFTER 25041 . 26019) (
+GET.NGROUP.DELIMITER 26021 . 27755) (CHANGE.NGROUP.FORMAT.ABBREV 27757 . 30048) (
+CHANGE.NGROUP.FORMAT.START 30050 . 30931) (GET.NGROUP.START 30933 . 32749) (CHANGE.NGROUP.FORMAT.TOC 
+32751 . 34767) (CHANGE.NGROUP.FORMAT.MANINDEX 34769 . 37204) (UPDATE.NGROUP.MANINDEX 37206 . 38744) (
+NGROUP.FIXUP.RECORDS 38746 . 42052)) (42103 51106 (GET.NGROUP.TEXTSTRING 42113 . 43495) (
+CONVERT.TABS.TO.SPACES 43497 . 44295) (CREATE.TOC.FILE 44297 . 46375) (NGROUP.TOC.ENTRIES 46377 . 
+47026) (VIEW.TOC.FILE 47028 . 47927) (GET.TOC.FILE 47929 . 48423) (WRITE.TOC.FILE 48425 . 49595) (
+WRITE.TOC.ENTRY 49597 . 51104)))))
 STOP
--- a/lispusers/tmax/TMAX-NGROUP.LCOM
+++ b/lispusers/tmax/TMAX-NGROUP.LCOM
--- a/lispusers/tmax/TMAX.LCOM
+++ b/lispusers/tmax/TMAX.LCOM
--- a/scripts/loadups/loadup-setup.sh
+++ b/scripts/loadups/loadup-setup.sh
@@ -256,8 +256,6 @@ process_maikodir() {

 export LOADUP_LOCKFILE="${LOADUP_WORKDIR}"/lock
 LOADUP_LOCK=""
-override_lock=false
-ignore_lock=false

 check_run_lock() {
  if [ "${ignore_lock}" = false ]
--- a/scripts/release-make-tars.sh
+++ b/scripts/release-make-tars.sh
@@ -64,7 +64,7 @@ tar -c -z -f "${release_dir}"/$tag-runtime.tgz                  \
    --exclude "*~"                                              \
    --exclude "*#*"                                             \
    --exclude exports.all                                       \
-    --exclude "venuesysouts"                                   \
+    --exclude "venuesysouts"                                    \
    ${name_xform}                                               \
    "${dirname}"/clos                                           \
    "${dirname}"/docs/dinfo                                     \
@@ -80,6 +80,7 @@ tar -c -z -f "${release_dir}"/$tag-runtime.tgz                  \
    "${dirname}"/fonts/adobe                                    \
    "${dirname}"/fonts/postscriptfonts                          \
    "${dirname}"/fonts/ipfonts                                  \
+    "${dirname}"/fonts/medleydisplayfonts                       \
    "${dirname}"/library                                        \
    "${dirname}"/lispusers                                      \
    "${dirname}"/sources                                        \
--- a/sources/LLINTERP
+++ b/sources/LLINTERP
@@ -1,19 +1,13 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

-(FILECREATED "30-Jun-2022 22:42:02" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>LLINTERP.;4 120990 
+(FILECREATED " 8-May-2026 23:51:41" {DSK}<home>matt>Interlisp>medley>sources>LLINTERP.;2 120946 

-      :PREVIOUS-DATE "30-Jun-2022 18:04:04" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>sources>LLINTERP.;3)
+      :EDIT-BY "mth"

+      :CHANGES-TO (FNS \CCODEARGLIST)
+
+      :PREVIOUS-DATE "30-Jun-2022 22:42:02" {DSK}<home>matt>Interlisp>medley>sources>LLINTERP.;1)

-(* ; "
-Copyright (c) 1981-1988, 1990-1992, 1994-1995 by Venue & Xerox Corporation.
-The following program was created in 1981 but has not been published
-within the meaning of the copyright law, is furnished under license,
-and may not be used, copied and/or disclosed except in accordance
-with the terms of said license.
-")

 (PRETTYCOMPRINT LLINTERPCOMS)

@@ -1541,7 +1535,8 @@ with the terms of said license.
             (T (ERROR '"Args not available:" FN])

 (\CCODEARGLIST
-  [LAMBDA (FNHD SMARTP)                               (* ; "Edited 10-May-88 12:18 by MASINTER")
+  [LAMBDA (FNHD SMARTP)                                      (* ; "Edited  8-May-2026 23:44 by mth")
+                                                          (* ; "Edited 10-May-88 12:18 by MASINTER")

    (* ;; "Computes the arglist for raw code object FNHD.  If SMARTP is true, we're allowed to return a Common Lisp arg list if we find one; otherwise, we have to comply with Interlisp arglist semantics.")

@@ -1556,53 +1551,55 @@ with the terms of said license.
          (SETQ SIZE (fetch (FNHEADER NTSIZE) of FNHD))
          [COND
             ((EQ [SETQ LOCALSIZE (- (FOLDLO (if (fetch (FNHEADER NATIVE) of FNHD)
-                                                 then (- (fetch (FNHEADER STARTPC)
-                                                                of FNHD)
-                                                             4)
+                                                 then (- (fetch (FNHEADER STARTPC) of FNHD)
+                                                         4)
                                               else (fetch (FNHEADER STARTPC) of FNHD))
                                            BYTESPERWORD)
                                     (SETQ ENDT (+ (fetch (FNHEADER OVERHEADWORDS) of T)
                                                   (COND
                                                      ((EQ SIZE 0)
                                                             (* ; 
-                                           "No nametable, but there's a quad of zeros there anyway")
+                                             "No nametable, but there's a quad of zeros there anyway")
                                                       WORDSPERQUAD)
                                                      (T (UNFOLD SIZE 2]
                  0)                                         (* ; "Nothing extra here")
              )
             [(> LOCALSIZE WORDSPERCELL)                     (* ; 
-                                      "There is a second nametable between the first and the code.")
+                                        "There is a second nametable between the first and the code.")
              (SETQ IVARS (\CCODEIVARSCAN FNHD ENDT (FOLDLO LOCALSIZE 2]
             ((AND (LISTP (SETQ ENDT (\GETBASEPTR FNHD ENDT)))
                   (LISTP (CAR ENDT)))                       (* ; 
-                     "It's exactly a pointer to debugging info, car of which is a stylized arglist")
+                       "It's exactly a pointer to debugging info, car of which is a stylized arglist")
              (SETQ ENDT (if (AND (EQ (CAAR ENDT)
-                                          '&OPTIONAL)
-                                      (LISTGET (CDR ENDT)
-                                             :INTERLISP))
-                             then                        (* ; "The &OPTIONAL, while strictly correct, is misleading, since it's technically true for ALL Interlisp functions.")
-                                   (CDAR ENDT)
+                                      '&OPTIONAL)
+                                  (LISTGET (CDR ENDT)
+                                         :INTERLISP))
+                             then                            (* ; "The &OPTIONAL, while strictly correct, is misleading, since it's technically true for ALL Interlisp functions.")
+                                  (CDAR ENDT)
                           else (CAR ENDT)))
              (RETURN (COND
                         (SMARTP ENDT)
                         (T                                  (* ; "Note that if we got this far, function can't be a nospread (we caught this in the very first COND up above), which means there can't be any &key or &rest")
-                            (for X in ENDT unless (EQ X '&OPTIONAL)
-                               collect (COND
-                                              ((STRINGP X)   (* ; 
-            "Callers of ARGLIST are expecting to get something that would actually function as one")
-                                               (MKATOM X))
-                                              (T X]
+                            (for X in ENDT unless (EQ X '&OPTIONAL) collect (COND
+                                                                               ((STRINGP X)
+                                                             (* ; 
+              "Callers of ARGLIST are expecting to get something that would actually function as one")
+                                                                                (MKATOM X))
+                                                                               (T X]
          [COND
             ((< N 0)                                        (* ; 
-           "Waited until now to see if there was a stored arglist, but we didn't find one--give up")
-              (RETURN 'U]
+             "Waited until now to see if there was a stored arglist, but we didn't find one--give up")
+              (RETURN (COND
+                         ((AND (EQ 2 (fetch (FNHEADER ARGTYPE) of FNHD))
+                               (SETQ IVARS (ASSOC 0 IVARS)))
+                          (CDR IVARS))
+                         (T 'U]
          [COND
             ((NEQ SIZE 0)                                   (* ; "Scan specials name table")
              (SETQ IVARS (\CCODEIVARSCAN FNHD (fetch (FNHEADER OVERHEADWORDS) of T)
                                 SIZE IVARS]
-          [SETQ IVARS (for I from 0 to (SUB1 N)
-                         collect (OR (CDR (ASSOC I IVARS))
-                                         (PACK* '*ARG* I]
+          [SETQ IVARS (for I from 0 to (SUB1 N) collect (OR (CDR (ASSOC I IVARS))
+                                                            (PACK* '*ARG* I]
          (RETURN (SELECTQ (fetch (FNHEADER ARGTYPE) of FNHD)
                      (3 (CAR IVARS))
                      IVARS])
@@ -1745,33 +1742,31 @@ with the terms of said license.

 (ADDTOVAR LAMA APPLY* \INTERPRETER)
 )
-(PUTPROPS LLINTERP COPYRIGHT ("Venue & Xerox Corporation" T 1981 1982 1983 1984 1985 1986 1987 1988 
-1990 1991 1992 1994 1995))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (6409 23670 (\INTERPRETER 6419 . 11015) (\INTERPRETER1 11017 . 17585) (
-\SETUP-COMPILED-CLOSURE-CALL 17587 . 22734) (\STKNAME 22736 . 23668)) (23699 29111 (\ENVCALL.UFN 23709
- . 23841) (\SETUP-ENVIRONMENT-CALL 23843 . 29109)) (29150 34027 (EVAL 29160 . 29260) (\EVAL 29262 . 
-29472) (\EVALFORM 29474 . 30705) (\EVALFORMASLAMBDA 30707 . 30897) (\EVALOTHER 30899 . 31106) (APPLY 
-31108 . 31215) (APPLY* 31217 . 32332) (\CHECKAPPLY* 32334 . 33439) (\CKAPPLYARGS 33441 . 33784) (
-DEFEVAL 33786 . 34025)) (35871 43460 (EVALV 35881 . 36090) (\EVALV1 36092 . 36247) (\EVALVAR 36249 . 
-36612) (BOUNDP 36614 . 36830) (SET 36832 . 37198) (\SETVAR 37200 . 37570) (SETQ 37572 . 38244) (
-\STKSCAN 38246 . 41910) (\SETFVARSLOT 41912 . 43458)) (43494 56501 (PROG 43504 . 46020) (\PROG0 46022
- . 49652) (\EVPROG1 49654 . 49857) (RETURN 49859 . 50400) (GO 50402 . 51217) (EVALA 51219 . 53148) (
-\EVALA 53150 . 55743) (ERRORSET 55745 . 56350) (SI::ERRORSET-PRINT-FUNCTION 56352 . 56499)) (56560 
-69212 (LET 56570 . 58713) (LET* 58715 . 60863) (\LET0 60865 . 64525) (\LET* 64527 . 69210)) (69213 
-70789 (QUOTE 69223 . 69254) (AND 69256 . 69464) (OR 69466 . 69714) (PROGN 69716 . 69995) (COND 69997
- . 70331) (\EVPROGN 70333 . 70546) (PROG1 70548 . 70787)) (71277 78168 (ENVEVAL 71287 . 71537) (
-ENVAPPLY 71539 . 71796) (FUNCTION 71798 . 72028) (\FUNCT1 72030 . 74479) (\MAKEFUNARGFRAME 74481 . 
-76678) (STKEVAL 76680 . 76828) (STKAPPLY 76830 . 76999) (RETEVAL 77001 . 77605) (RETAPPLY 77607 . 
-78166)) (78289 85797 (BLIPVAL 78299 . 82200) (SETBLIPVAL 82202 . 84944) (BLIPSCAN 84946 . 85795)) (
-85798 86493 (\REALFRAMEP 85808 . 86491)) (86869 96264 (RAIDCOMMAND 86879 . 90485) (RAIDSHOWFRAME 90487
- . 90870) (RAIDSTACKCMD 90872 . 92053) (RAIDROOTFRAME 92055 . 92317) (PRINTADDRS 92319 . 92845) (
-PRINTVA 92847 . 92992) (READVA 92994 . 93072) (READATOM 93074 . 93656) (READOCT 93658 . 94289) (
-SHOWSTACKBLOCKS 94291 . 95537) (SHOWSTACKBLOCK1 95539 . 95690) (PRINCOPY 95692 . 95824) (NOSUCHATOM 
-95826 . 96262)) (96265 104893 (BACKTRACE 96275 . 96632) (\BACKTRACE 96634 . 97740) (\SCANFORNTENTRY 
-97742 . 99372) (\PRINTSTK 99374 . 99561) (\PRINTFRAME 99563 . 103546) (\PRINTBF 103548 . 104891)) (
-107393 116737 (CCODEP 107403 . 107678) (EXPRP 107680 . 107939) (SUBRP 107941 . 107996) (FNTYP 107998
- . 108758) (ARGTYPE 108760 . 109374) (NARGS 109376 . 109863) (ARGLIST 109865 . 111114) (\CCODEARGLIST 
-111116 . 115512) (\CCODEIVARSCAN 115514 . 116735)) (117687 119918 (CONSTANTS 117697 . 117988) (
-CONSTANTEXPRESSIONP 117990 . 119916)))))
+  (FILEMAP (NIL (6111 23372 (\INTERPRETER 6121 . 10717) (\INTERPRETER1 10719 . 17287) (
+\SETUP-COMPILED-CLOSURE-CALL 17289 . 22436) (\STKNAME 22438 . 23370)) (23401 28813 (\ENVCALL.UFN 23411
+ . 23543) (\SETUP-ENVIRONMENT-CALL 23545 . 28811)) (28852 33729 (EVAL 28862 . 28962) (\EVAL 28964 . 
+29174) (\EVALFORM 29176 . 30407) (\EVALFORMASLAMBDA 30409 . 30599) (\EVALOTHER 30601 . 30808) (APPLY 
+30810 . 30917) (APPLY* 30919 . 32034) (\CHECKAPPLY* 32036 . 33141) (\CKAPPLYARGS 33143 . 33486) (
+DEFEVAL 33488 . 33727)) (35573 43162 (EVALV 35583 . 35792) (\EVALV1 35794 . 35949) (\EVALVAR 35951 . 
+36314) (BOUNDP 36316 . 36532) (SET 36534 . 36900) (\SETVAR 36902 . 37272) (SETQ 37274 . 37946) (
+\STKSCAN 37948 . 41612) (\SETFVARSLOT 41614 . 43160)) (43196 56203 (PROG 43206 . 45722) (\PROG0 45724
+ . 49354) (\EVPROG1 49356 . 49559) (RETURN 49561 . 50102) (GO 50104 . 50919) (EVALA 50921 . 52850) (
+\EVALA 52852 . 55445) (ERRORSET 55447 . 56052) (SI::ERRORSET-PRINT-FUNCTION 56054 . 56201)) (56262 
+68914 (LET 56272 . 58415) (LET* 58417 . 60565) (\LET0 60567 . 64227) (\LET* 64229 . 68912)) (68915 
+70491 (QUOTE 68925 . 68956) (AND 68958 . 69166) (OR 69168 . 69416) (PROGN 69418 . 69697) (COND 69699
+ . 70033) (\EVPROGN 70035 . 70248) (PROG1 70250 . 70489)) (70979 77870 (ENVEVAL 70989 . 71239) (
+ENVAPPLY 71241 . 71498) (FUNCTION 71500 . 71730) (\FUNCT1 71732 . 74181) (\MAKEFUNARGFRAME 74183 . 
+76380) (STKEVAL 76382 . 76530) (STKAPPLY 76532 . 76701) (RETEVAL 76703 . 77307) (RETAPPLY 77309 . 
+77868)) (77991 85499 (BLIPVAL 78001 . 81902) (SETBLIPVAL 81904 . 84646) (BLIPSCAN 84648 . 85497)) (
+85500 86195 (\REALFRAMEP 85510 . 86193)) (86571 95966 (RAIDCOMMAND 86581 . 90187) (RAIDSHOWFRAME 90189
+ . 90572) (RAIDSTACKCMD 90574 . 91755) (RAIDROOTFRAME 91757 . 92019) (PRINTADDRS 92021 . 92547) (
+PRINTVA 92549 . 92694) (READVA 92696 . 92774) (READATOM 92776 . 93358) (READOCT 93360 . 93991) (
+SHOWSTACKBLOCKS 93993 . 95239) (SHOWSTACKBLOCK1 95241 . 95392) (PRINCOPY 95394 . 95526) (NOSUCHATOM 
+95528 . 95964)) (95967 104595 (BACKTRACE 95977 . 96334) (\BACKTRACE 96336 . 97442) (\SCANFORNTENTRY 
+97444 . 99074) (\PRINTSTK 99076 . 99263) (\PRINTFRAME 99265 . 103248) (\PRINTBF 103250 . 104593)) (
+107095 116821 (CCODEP 107105 . 107380) (EXPRP 107382 . 107641) (SUBRP 107643 . 107698) (FNTYP 107700
+ . 108460) (ARGTYPE 108462 . 109076) (NARGS 109078 . 109565) (ARGLIST 109567 . 110816) (\CCODEARGLIST 
+110818 . 115596) (\CCODEIVARSCAN 115598 . 116819)) (117771 120002 (CONSTANTS 117781 . 118072) (
+CONSTANTEXPRESSIONP 118074 . 120000)))))
 STOP
--- a/sources/LLINTERP.LCOM
+++ b/sources/LLINTERP.LCOM
--- a/sources/MEDLEYDIR
+++ b/sources/MEDLEYDIR
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

-(FILECREATED "26-Apr-2026 20:46:52" {WMEDLEY}<sources>MEDLEYDIR.;61 15717  
+(FILECREATED "21-May-2026 13:42:57" {MEDLEY}<sources>MEDLEYDIR.;62 15842  

      :EDIT-BY rmk

-      :CHANGES-TO (VARS MEDLEYDIRCOMS)
+      :CHANGES-TO (FNS MEDLEY-INIT-VARS)

-      :PREVIOUS-DATE "26-Apr-2026 14:56:00" {WMEDLEY}<sources>MEDLEYDIR.;60)
+      :PREVIOUS-DATE "26-Apr-2026 20:46:52" {MEDLEY}<sources>MEDLEYDIR.;61)


 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -71,7 +71,8 @@
 (DEFINEQ

 (MEDLEY-INIT-VARS
-  [LAMBDA (EVENT)                                            (* ; "Edited 15-Apr-2026 16:44 by rmk")
+  [LAMBDA (EVENT)                                            (* ; "Edited 21-May-2026 13:40 by rmk")
+                                                             (* ; "Edited 15-Apr-2026 16:44 by rmk")
                                                             (* ; "Edited 22-Nov-2022 20:38 by FGH")
                                                             (* ; "Edited 21-Nov-2022 17:31 by FGH")
                                                           (* ; "Edited 21-Nov-2022 15:39 by frank")
@@ -99,7 +100,7 @@
                                                                (* ;; 
                                       "Any old values, restore them, substituting the new MEDLEYDIR")

-             (PSEUDOHOST 'MEDLEY MEDLEYDIR)
+             (PSEUDOHOST 'MEDLEY (UNIX-GETENV "MEDLEYDIR"))
             (PROG (OLDMD NEWMD SAME TMP)
                   (IF (EQ \SAVE.MEDLEYDIR T)
                       THEN                                  (* ; " Already restored")
@@ -285,6 +286,6 @@
 (ADDTOVAR GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4215 13446 (MEDLEY-INIT-VARS 4225 . 7856) (MEDLEYDIR 7858 . 12246) (MEDLEYSUBSTDIR 
-12248 . 13226) (SET-SYSOUT-COMMIT 13228 . 13444)))))
+  (FILEMAP (NIL (4215 13571 (MEDLEY-INIT-VARS 4225 . 7981) (MEDLEYDIR 7983 . 12371) (MEDLEYSUBSTDIR 
+12373 . 13351) (SET-SYSOUT-COMMIT 13353 . 13569)))))
 STOP
--- a/sources/MEDLEYDIR.LCOM
+++ b/sources/MEDLEYDIR.LCOM
--- a/internal/MESATYPES
+++ b/internal/MESATYPES
--- a/internal/MESATYPES.LCOM
+++ b/internal/MESATYPES.LCOM
--- a/internal/mesatypes.tedit
+++ b/internal/mesatypes.tedit
Author	SHA1	Message	Date
rmkaplan	9c5e33a8fd	Reset {MEDLEY} pseudohost on restart	2026-05-21 14:06:09 -07:00
rmkaplan	406b509b38	Rmk185 tedit window and process glitches (#2604 ) * Substantive changes aimed to improve behavior of secondary selections as mouse moves around the screen, and to make sure the process does not reopen an inactive window after it has been deactivated and closed. * Line-selection requires a click in the line-select region, just moving the mouse there doesn't change the current selection. * A few other minor bug fixes --------- Co-authored-by: Nick Briggs <nicholas.h.briggs@gmail.com>	2026-05-20 18:51:55 -07:00
rmkaplan	42e4f6b406	Rmk184 fix see and tedit non-extension defaults (#2602 ) * GITFNS: correct inconsistency between plist and alist for user properties, make some window titles more informative * Respect difference in filename specifications between unspecified extension (no dot) and no extension (dot with nothing after) * Lower case some clispwords ----- Co-authored-by: Nick Briggs <nicholas.h.briggs@gmail.com>	2026-05-20 18:45:02 -07:00
rmkaplan	775ed63f5d	Align HCFILES version of DOC-OBJECTS with minor changes I had stashed away (#2607 ) DOCOBJ-GET-LOOKS: update to use new TEdit internal functions for extracting "looks" DOCOBJ-INCLUDE-EDIT: restructure EDIT.FILE case "for" expression to be clearer Remove explict (SYSLOAD) for files it requires, so that those inherit from its own loading.	2026-05-20 18:14:47 -07:00
Nick Briggs	c81efdafaf	Fixes to various Ethernet related code to enable networking when Maiko ethernet turned on (#2617 ) - Effectively reverts some overly aggressive changes to disable networking when Ethernet is not available. - Avoids delays in PUP host number lookup when there is no network. - Removes unnecessary copy of 10 Mb local NDB for the ethernet interrupt handler. - Removes OCTALSTRING implementation that has moved to APRINT - Enable XNS networking in LOADUP-LISP when (\ETHER-AVAILABLE) Mainly tested against DODO networking implementation.	2026-05-20 14:37:01 -07:00
Frank Halasz	72df5f0ebc	Fix issue 2619 - add fonts/medleydisplayfonts to all release packages (#2620 )	2026-05-20 07:46:39 -07:00
Nick Briggs	3038d22ff0	Merge branch 'master' into nhb-fix-ethereventfn	2026-05-18 18:11:39 -07:00
Nick Briggs	30ecf3fced	Reintroduce changes to enable XNS when ethernet is available Necessitated by a merge of the LOADUP-LISP function from the main branch.	2026-05-18 18:08:50 -07:00
Nick Briggs	ef5b97f25f	Merge branch 'master' into nhb-fix-ethereventfn Picking up changes to LOADUP-LISP before reintroducing the ethernet related changes.	2026-05-18 17:53:06 -07:00
rmkaplan	6e9c7b398b	Initialize the TMAX Ngroups menu (#2615 ) * Make sure the Ngroups menu is initialized * Fix index and table of contents	2026-05-18 12:25:57 -07:00
Nick Briggs	7841074444	Globally enables XNS networking Later, the result of (\ETHER-AVAILABLE) controls whether any networking is turned on.	2026-05-17 16:59:40 -07:00
Matt Heffron	7c78b007c3	UNIX-FILE-NAME removes host (#2610 ) I just passed the NOHOST flag to the call to \SLASHIT. Addresses #2589, please test on clipboard on windows	2026-05-14 12:15:32 -07:00
Matt Heffron	498066f2b4	Merge branch 'master' into rmk188--Remove-host-from-UNIX-FILE-NAME	2026-05-14 12:14:05 -07:00
Matt Heffron	0fc3e9e8e4	DATABASEFNS failed when writing .DATABASE file for the first time if the source file name wasn't U-CASE. (#2599 ) * Make DATABASEFNS work properly if the source file name isn't U-CASE. Co-authored-by: rmkaplan <ron.kaplan@post.harvard.edu>	2026-05-13 12:53:35 -07:00
rmkaplan	2a6e2de6f3	Update to UNIX-FILE-NAME	2026-05-13 12:49:09 -07:00
Matt Heffron	0fda50e67d	Make (ARGLIST fn T) and (SMARTARGLIST fn T) a bit "smarter" (#2600 ) Make (ARGLIST fn T) and (SMARTARGLIST fn T) a bit "smarter" with the atomic name of the arg for a LAMBDA nospread with a CCODEP definition. E.g., before (ARGLIST 'FONTCOPY T) returned U; now it returns FONTSPECS as in the CCODEP. Likewise for SMARTARGLIST.	2026-05-12 23:45:23 -07:00
rmkaplan	b7714e4599	Ignore internal/fonts/** (#2608 )	2026-05-12 16:03:55 -07:00
rmkaplan	32be423f55	Update WHEELSCROLL.TEDIT (#2606 )	2026-05-12 16:03:24 -07:00
Frank Halasz	46df732486	Fix Issue#2603: Erroneous lock violation detection during "./loadup -db" (#2605 ) Fix Issue#2603: fix handling of the internal use only --ignore_lock command line argument to the loadup script. Was being processed correctly in loadup but then overridden by a reset in loadup-setup.sh. Removed the reset in loadup-setup.sh	2026-05-11 13:20:49 -07:00
Larry Masinter	01c90e4590	add BAKTRACE to HCFILES fails. Skip HC of CLTL2 (package errors) and dinfo (not really tedit). (#2598 ) * add BAKTRACE to HCFILES fails. Skip HC of CLTL2 (package errors) and dinfo (not really tedit). * IMNAME.TEDIT isn't really TEDIT it's text. rename it. * internal/mesatypes.tedit now sources/MESATYPES.TXT move from internal to sources (loaded by sources), also move MESATYPE*	2026-05-11 12:21:24 -07:00
rmkaplan	5aa79ebb06	Rmk175 offline font construction (#2555 ) * Medleyfont format updated to version 2, revised and more complete fonts deployed in fonts/medleydisplayfonts/ * Rename AFONT to ACFONT, include STRIKE formats * FILESETS: Add MCCSFONTS to loadup * MCCSFONTS: New file that isolates all of the legacy font translations previously spread in other files (MCCS) * Medleyfont display fonts created offline using new file library/IMPORTFONTS * LLCHAR: Add \MAXCHARSET=65535, \MAXCHAR etc. * git ignores internal/fonts/** * MEDLEYDIR: Define the pseudohost {MEDLEY} whose prefix set to the current value of MEDLEYDIR whenever system restarts * (MEDLEYDIR xxx) entries in MEDLEY-INIT-VARS removed in favor of {MEDLEY}xxx * Add cdm command to connect to {MEDLEY} and its subdirectories	2026-05-11 12:08:05 -07:00
Nick Briggs	fb8e46fccf	Prevents \LOOKUPPORT waiting for an ethernet timeout if PUP has already been detected as unavailable	2026-04-02 09:20:02 -07:00
Nick Briggs	321623463c	Removes OCTALSTRING from PUP - now in APRINT	2026-03-26 18:42:51 -07:00
Nick Briggs	c160b0af15	Merge branch 'master' into nhb-fix-ethereventfn Resolves conflict for internal/loadups/LOADUP-LISP internal/loadups/LOADUP-LISP.LCOM from adding call to (RESTART.ETHER) at end of loadup.	2026-03-26 18:39:51 -07:00
Nick Briggs	d79f1ae819	Merge branch 'master' into nhb-fix-ethereventfn	2026-02-03 12:01:02 -08:00
Nick Briggs	b0f92834e2	Merge branch 'master' into nhb-fix-ethereventfn	2026-01-25 17:36:26 -08:00
Nick Briggs	b45dea97c7	RESTART.ETHER at end of loadup-lisp to ensure network structures are set up.	2026-01-25 15:45:29 -08:00
Nick Briggs	1bf3f50d98	Avoids making copy of \10MBLOCALNDB as \MAIKO.10MB.NDB for \MAIKO.ETHER-INTERRUPT	2026-01-23 18:51:15 -08:00
Nick Briggs	09b6b1e854	Updates \SETETHERFLAGS to avoid setting \10MBFLG when no ethernet	2026-01-23 18:31:19 -08:00
Nick Briggs	6e00dcf458	When no ethernet \FIND.LOCALPUPHOSTNUMBER should immediately return NIL If there is NO ethernet it is better to avoid a delay waiting for a PUP lookup response that will never come, and there is no value in asking for the user to enter a PUP host number that will not be used.	2026-01-01 18:05:52 -08:00
Nick Briggs	16fa8c6a24	Updates \ETHEREVENTFN to remove early exit when the ethernet is unvailable. In the case that the ethernet is unavailable the \ETHEREVENTFN should still call \SETETHERFLAGS, \SETLOCALNSNUMBERS, and \FLUSHNDBS, or a newly started image will retain information from the system on which it was built (such as ethernet MAC address in the NS address). This will also ensure that the NS address is not set to 0, instead initializing with a fake address based on the system serial number (calls \SERIALNUMBER).	2026-01-01 17:41:09 -08:00