diff --git a/library/tedit/TEDIT-FILE b/library/tedit/TEDIT-FILE
index 5da0b586..7ac1a3fe 100644
--- a/library/tedit/TEDIT-FILE
+++ b/library/tedit/TEDIT-FILE
@@ -1,13 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 9-Sep-2025 21:49:43" {WMEDLEY}<library>tedit>TEDIT-FILE.;653 172778 
+(FILECREATED "25-Sep-2025 21:32:46" 
+{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-FILE.;655 173148 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.GET.PROPS3 \TEDIT.GET.FORMATTED.FILE \TEDIT.PUT.TRAILER \TEDIT.PUT.PCTB
-                       )
+      :CHANGES-TO (FNS \TEDIT.GET.FORMATTED.FILE \TEDIT.PUT.SINGLE.CHARLOOKS 
+                       \TEDIT.GET.SINGLE.CHARLOOKS)
 
-      :PREVIOUS-DATE " 9-Sep-2025 00:03:26" {WMEDLEY}<library>tedit>TEDIT-FILE.;651)
+      :PREVIOUS-DATE " 9-Sep-2025 21:49:43" {WMEDLEY}<library>tedit>TEDIT-FILE.;653)
 
 
 (PRETTYCOMPRINT TEDIT-FILECOMS)
@@ -707,7 +708,8 @@
              (\TEDIT.INSERTPIECES PIECES NIL TEXTOBJ)))])
 
 (\TEDIT.GET.FORMATTED.FILE
-  [LAMBDA (TEXT TSTREAM START END PROPS)                     (* ; "Edited  9-Sep-2025 21:45 by rmk")
+  [LAMBDA (TEXT TSTREAM START END PROPS)                     (* ; "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")
                                                              (* ; "Edited  7-Feb-2025 08:19 by rmk")
@@ -748,7 +750,7 @@
                  (\TEDIT.THELP "File format version incompatible with this version of TEdit."))
              (CL:WHEN (SETQ PC (\TEDIT.LASTPIECE TEXTOBJ))
                     (FSETPC PC PPARALAST T))
-             (CL:UNLESS (EQ 'MCCS (FGETMULTI (FGETTOBJ TEXTOBJ DOCPROPS)
+             (CL:UNLESS (EQ 'MCCS (GETMULTI (FGETTOBJ TEXTOBJ DOCPROPS)
                                          'CHARENCODING))
                     (\TEDIT.MCCS.TRANSLATE TSTREAM))
              TEXTOBJ)])
@@ -1503,7 +1505,8 @@
     (for I from 1 to (\WIN FILE) collect (\TEDIT.GET.SINGLE.CHARLOOKS FILE TEXTOBJ])
 
 (\TEDIT.GET.SINGLE.CHARLOOKS
-  [LAMBDA (FILE TEXTOBJ)                                     (* ; "Edited  7-Sep-2025 11:04 by rmk")
+  [LAMBDA (FILE TEXTOBJ)                                     (* ; "Edited 25-Sep-2025 18:30 by rmk")
+                                                             (* ; "Edited  7-Sep-2025 11:04 by rmk")
                                                              (* ; "Edited  1-Aug-2025 13:43 by rmk")
                                                              (* ; "Edited 26-Jul-2025 11:14 by rmk")
                                                              (* ; "Edited 21-Jul-2025 23:41 by rmk")
@@ -2328,7 +2331,8 @@
                                            (PUTHASH LOOKS I LOOKSHASH])
 
 (\TEDIT.PUT.SINGLE.CHARLOOKS
-  [LAMBDA (FORMATSTREAM LOOKS)                               (* ; "Edited  1-Aug-2025 13:42 by rmk")
+  [LAMBDA (FORMATSTREAM LOOKS)                               (* ; "Edited 25-Sep-2025 18:31 by rmk")
+                                                             (* ; "Edited  1-Aug-2025 13:42 by rmk")
                                                              (* ; "Edited 21-Jul-2025 23:32 by rmk")
                                                              (* ; "Edited 20-Jul-2025 13:17 by rmk")
                                                              (* ; "Edited 22-Apr-2025 14:50 by rmk")
@@ -2690,28 +2694,28 @@
 
 (RPAQ? *TEDIT-FILE-READTABLE* (COPYREADTABLE \ORIGREADTABLE))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (5387 35646 (TEDIT.GET 5397 . 11807) (TEDIT.FORMATTEDFILEP 11809 . 13125) (
-TEDIT.FILEDATE 13127 . 14436) (TEDIT.INCLUDE 14438 . 22467) (TEDIT.RAW.INCLUDE 22469 . 23277) (
-TEDIT.PUT 23279 . 31635) (TEDIT.PUT.STREAM 31637 . 35644)) (35647 56813 (\TEDIT.GET.FOREIGN.FILE 35657
- . 39082) (\TEDIT.GET.UNFORMATTED.FILE 39084 . 43390) (\TEDIT.GET.FORMATTED.FILE 43392 . 46927) (
-\TEDIT.FORMATTEDSTREAMP 46929 . 50060) (\ARBIN 50062 . 50782) (\ATMIN 50784 . 51321) (\DWIN 51323 . 
-51702) (\STRINGIN 51704 . 52412) (\TEDIT.GET.TRAILER 52414 . 55282) (\TEDIT.CACHEFILE 55284 . 56811)) 
-(56979 73017 (\TEDIT.GET.PIECES3 56989 . 67952) (\TEDIT.GET.PROPS3 67954 . 71176) (
-\TEDIT.MAKE.STRINGPIECE 71178 . 73015)) (73018 86444 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73028 . 79261) 
-(\TEDIT.INTERPRET.MCCS.SHIFTS 79263 . 85508) (\TEDIT.CONVERT.XCCSTOMCCS 85510 . 86442)) (86466 92605 (
-\TEDIT.GET.UNFORMATTED.FILE.UTF8 86476 . 92603)) (92628 103861 (\TEDIT.GET.CHARLOOKS.LIST 92638 . 
-93369) (\TEDIT.GET.SINGLE.CHARLOOKS 93371 . 100334) (\TEDIT.GET.CHARLOOKS 100336 . 101892) (
-\TEDIT.GET.PARALOOKS.INDEX 101894 . 102438) (\TEDIT.GET.CHARLOOKS.INDEX 102440 . 103859)) (103862 
-111519 (\TEDIT.GET.PARALOOKS.LIST 103872 . 104494) (\TEDIT.GET.SINGLE.PARALOOKS 104496 . 111517)) (
-111520 115353 (\TEDIT.GET.OBJECT 111530 . 115351)) (115418 148681 (\TEDIT.PUT.PCTB 115428 . 125335) (
-\TEDIT.PUT.PCTB.PIECEDATA 125337 . 128535) (\TEDIT.PUT.TRAILER 128537 . 129865) (
-\TEDIT.PUT.PCTB.MERGEABLE 129867 . 133640) (\TEDIT.PUT.UTF8.SPLITPIECES 133642 . 138344) (
-\TEDIT.PUT.PCTB.NEXTNEW 138346 . 142842) (\TEDIT.INSERT.NEWPIECES 142844 . 146279) (\TEDIT.PUTRESET 
-146281 . 146523) (\ARBOUT 146525 . 147249) (\ATMOUT 147251 . 147856) (\DWOUT 147858 . 148137) (
-\STRINGOUT 148139 . 148679)) (148682 161307 (\TEDIT.PUT.CHARLOOKS.LIST 148692 . 150364) (
-\TEDIT.PUT.SINGLE.CHARLOOKS 150366 . 156537) (\TEDIT.PUT.CHARLOOKS 156539 . 157878) (
-\TEDIT.PUT.CHARLOOKS1 157880 . 158931) (\TEDIT.PUT.OBJECT 158933 . 161305)) (161308 168947 (
-\TEDIT.PUT.PARALOOKS.LIST 161318 . 162220) (\TEDIT.PUT.SINGLE.PARALOOKS 162222 . 167806) (
-\TEDIT.PUT.PARALOOKS 167808 . 168945)) (169042 172471 (TEDITFROMLISPSOURCE 169052 . 171720) (
-SHELLSCRIPTP 171722 . 171951) (TEDITFROMSHELLSCRIPT 171953 . 172469)))))
+  (FILEMAP (NIL (5431 35690 (TEDIT.GET 5441 . 11851) (TEDIT.FORMATTEDFILEP 11853 . 13169) (
+TEDIT.FILEDATE 13171 . 14480) (TEDIT.INCLUDE 14482 . 22511) (TEDIT.RAW.INCLUDE 22513 . 23321) (
+TEDIT.PUT 23323 . 31679) (TEDIT.PUT.STREAM 31681 . 35688)) (35691 56965 (\TEDIT.GET.FOREIGN.FILE 35701
+ . 39126) (\TEDIT.GET.UNFORMATTED.FILE 39128 . 43434) (\TEDIT.GET.FORMATTED.FILE 43436 . 47079) (
+\TEDIT.FORMATTEDSTREAMP 47081 . 50212) (\ARBIN 50214 . 50934) (\ATMIN 50936 . 51473) (\DWIN 51475 . 
+51854) (\STRINGIN 51856 . 52564) (\TEDIT.GET.TRAILER 52566 . 55434) (\TEDIT.CACHEFILE 55436 . 56963)) 
+(57131 73169 (\TEDIT.GET.PIECES3 57141 . 68104) (\TEDIT.GET.PROPS3 68106 . 71328) (
+\TEDIT.MAKE.STRINGPIECE 71330 . 73167)) (73170 86596 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73180 . 79413) 
+(\TEDIT.INTERPRET.MCCS.SHIFTS 79415 . 85660) (\TEDIT.CONVERT.XCCSTOMCCS 85662 . 86594)) (86618 92757 (
+\TEDIT.GET.UNFORMATTED.FILE.UTF8 86628 . 92755)) (92780 104122 (\TEDIT.GET.CHARLOOKS.LIST 92790 . 
+93521) (\TEDIT.GET.SINGLE.CHARLOOKS 93523 . 100595) (\TEDIT.GET.CHARLOOKS 100597 . 102153) (
+\TEDIT.GET.PARALOOKS.INDEX 102155 . 102699) (\TEDIT.GET.CHARLOOKS.INDEX 102701 . 104120)) (104123 
+111780 (\TEDIT.GET.PARALOOKS.LIST 104133 . 104755) (\TEDIT.GET.SINGLE.PARALOOKS 104757 . 111778)) (
+111781 115614 (\TEDIT.GET.OBJECT 111791 . 115612)) (115679 148942 (\TEDIT.PUT.PCTB 115689 . 125596) (
+\TEDIT.PUT.PCTB.PIECEDATA 125598 . 128796) (\TEDIT.PUT.TRAILER 128798 . 130126) (
+\TEDIT.PUT.PCTB.MERGEABLE 130128 . 133901) (\TEDIT.PUT.UTF8.SPLITPIECES 133903 . 138605) (
+\TEDIT.PUT.PCTB.NEXTNEW 138607 . 143103) (\TEDIT.INSERT.NEWPIECES 143105 . 146540) (\TEDIT.PUTRESET 
+146542 . 146784) (\ARBOUT 146786 . 147510) (\ATMOUT 147512 . 148117) (\DWOUT 148119 . 148398) (
+\STRINGOUT 148400 . 148940)) (148943 161677 (\TEDIT.PUT.CHARLOOKS.LIST 148953 . 150625) (
+\TEDIT.PUT.SINGLE.CHARLOOKS 150627 . 156907) (\TEDIT.PUT.CHARLOOKS 156909 . 158248) (
+\TEDIT.PUT.CHARLOOKS1 158250 . 159301) (\TEDIT.PUT.OBJECT 159303 . 161675)) (161678 169317 (
+\TEDIT.PUT.PARALOOKS.LIST 161688 . 162590) (\TEDIT.PUT.SINGLE.PARALOOKS 162592 . 168176) (
+\TEDIT.PUT.PARALOOKS 168178 . 169315)) (169412 172841 (TEDITFROMLISPSOURCE 169422 . 172090) (
+SHELLSCRIPTP 172092 . 172321) (TEDITFROMSHELLSCRIPT 172323 . 172839)))))
 STOP
diff --git a/library/tedit/TEDIT-FILE.LCOM b/library/tedit/TEDIT-FILE.LCOM
index 205a22b6..b68ce1d0 100644
Binary files a/library/tedit/TEDIT-FILE.LCOM and b/library/tedit/TEDIT-FILE.LCOM differ
diff --git a/library/tedit/TEDIT-LOOKS b/library/tedit/TEDIT-LOOKS
index 02921737..222dc512 100644
--- a/library/tedit/TEDIT-LOOKS
+++ b/library/tedit/TEDIT-LOOKS
@@ -1,13 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 9-Sep-2025 21:55:31" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;455 154986 
+(FILECREATED " 5-Oct-2025 10:57:43" {WMEDLEY}<library>TEDIT>TEDIT-LOOKS.;457 155388 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS TEDIT-LOOKSCOMS)
-                  (FNS \TEDIT.MCCS.TRANSLATE)
+      :CHANGES-TO (FNS \TEDIT.MCCS.TRANSLATE)
 
-      :PREVIOUS-DATE " 9-Sep-2025 09:42:42" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;452)
+      :PREVIOUS-DATE "25-Sep-2025 21:32:46" {WMEDLEY}<library>TEDIT>TEDIT-LOOKS.;456)
 
 
 (PRETTYCOMPRINT TEDIT-LOOKSCOMS)
@@ -926,7 +925,9 @@
 (DEFINEQ
 
 (\TEDIT.MCCS.TRANSLATE
-  [LAMBDA (TSTREAM)                                          (* ; "Edited  9-Sep-2025 21:48 by rmk")
+  [LAMBDA (TSTREAM)                                          (* ; "Edited  5-Oct-2025 10:57 by rmk")
+                                                             (* ; "Edited 25-Sep-2025 21:30 by rmk")
+                                                             (* ; "Edited  9-Sep-2025 21:48 by rmk")
                                                              (* ; "Edited  7-Sep-2025 22:42 by rmk")
                                                              (* ; "Edited 31-Jul-2025 09:56 by rmk")
                                                              (* ; "Edited 28-Jul-2025 23:35 by rmk")
@@ -943,9 +944,9 @@
     (* ;; "   ")
 
     (LET ((TEXTOBJ (FTEXTOBJ TSTREAM)))
-         (CL:WHEN (for PC inpieces (\TEDIT.FIRSTPIECE TEXTOBJ) unless (EQ OBJECT.PTYPE (PTYPE PC))
-                     always (fetch (FONTDESCRIPTOR FONTTOMCCSFN) of (FGETCLOOKS (PCHARLOOKS PC)
-                                                                           CLFONT)))
+         (CL:WHEN (find PC inpieces (\TEDIT.FIRSTPIECE TEXTOBJ) unless (EQ OBJECT.PTYPE (PTYPE PC))
+                     suchthat (fetch (FONTDESCRIPTOR FONTTOMCCSFN) of (FGETCLOOKS (PCHARLOOKS PC)
+                                                                             CLFONT)))
              (for PC CLOOKS CLFONT TOMCCSFN CLOOKSLIST inpieces (\TEDIT.FIRSTPIECE TEXTOBJ)
                 unless (EQ OBJECT.PTYPE (PTYPE PC)) when [SETQ TOMCCSFN
                                                           (fetch (FONTDESCRIPTOR FONTTOMCCSFN)
@@ -986,20 +987,20 @@
             "Can't stay with this font (SYMBOL), find the coercion that was used for its characters.")
 
                              (FSETPC PC PCHARLOOKS (\TEDIT.MCCS.TRANSLATE.CHARLOOKS TEXTOBJ CLOOKS 
-                                                          CLFONT)))]
-                finally 
+                                                          CLFONT)))] finally 
 
-                      (* ;; "CLOOKSLIST maps any old charlooks to the new ones that we might have created for them, because of font coercion for non-MCCS fonts.  The stream must know about the changes.  ")
+                                 (* ;; "CLOOKSLIST maps any old charlooks to the new ones that we might have created for them, because of font coercion for non-MCCS fonts.  The stream must know about the changes.  ")
 
-                      (CL:WHEN CLOOKSLIST
+                                                                           (CL:WHEN CLOOKSLIST
 
-                          (* ;; "Discard orphan old looks and uniquify what's left.")
+                                                                           (* ;; 
+                                                 "Discard orphan old looks and uniquify what's left.")
 
-                          (\TEDIT.UNIQUIFY.ALL TEXTOBJ))
-                      (FPUTMULTI (FGETTOBJ TEXTOBJ DOCPROPS)
-                             'CHARENCODING
-                             'MCCS))
-             T)])
+                                                                               (\TEDIT.UNIQUIFY.ALL
+                                                                                TEXTOBJ))))
+         (PUTMULTI (FGETTOBJ TEXTOBJ DOCPROPS)
+                'CHARENCODING
+                'MCCS])
 
 (\TEDIT.CONVERT.TO.FORMATTED
   [LAMBDA (TSTREAM START END)                                (* ; "Edited 20-Apr-2025 13:25 by rmk")
@@ -1089,14 +1090,14 @@
 
             (* ;; "Macro because CLOOKSLIST is set.  The alist avoids creating and then uniquifying each time we want to make the same translation.")
 
-            (OR (FGETMULTI CLOOKSLIST CLOOKS)
-                (FPUTMULTI CLOOKSLIST CLOOKS (\TEDIT.UNIQUIFY.CHARLOOKS
-                                              [create CHARLOOKS
-                                                 using CLOOKS CLFONT _
-                                                       (CAR (\COERCECHARSET (FONTPROP CLFONT
-                                                                                   'SPEC)
-                                                                   0 NIL 'CHARCOERCIONS]
-                                              TEXTOBJ])
+            (OR (GETMULTI CLOOKSLIST CLOOKS)
+                (PUTMULTI CLOOKSLIST CLOOKS (\TEDIT.UNIQUIFY.CHARLOOKS
+                                             [create CHARLOOKS
+                                                using CLOOKS CLFONT _
+                                                      (CAR (\COERCECHARSET (FONTPROP CLFONT
+                                                                                  'SPEC)
+                                                                  0 NIL 'CHARCOERCIONS]
+                                             TEXTOBJ])
 )
 (DEFINEQ
 
@@ -2459,26 +2460,26 @@
 (ADDTOVAR LAMA )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (22140 24082 (\TEDIT.CHARLOOKS.DEFPRINT 22150 . 23286) (\TEDIT.PARALOOKS.DEFPRINT 23288
- . 24080)) (24186 24572 (\TEDIT.CREATE.FACE.MENU 24196 . 24368) (\TEDIT.CREATE.SIZE.MENU 24370 . 24570
-)) (25576 27465 (\TEDIT.CHARLOOKS.FEATURE.CHECK 25586 . 27463)) (27737 52994 (
-\TEDIT.CHARLOOKS.FROM.FONT 27747 . 30031) (\TEDIT.EQCLOOKS 30033 . 33064) (\TEDIT.SAMECLOOKS 33066 . 
-36237) (TEDIT.CARETLOOKS 36239 . 37785) (TEDIT.COPY.LOOKS 37787 . 41070) (
-\TEDIT.UNPARSE.CHARLOOKS.LIST 41072 . 44566) (\TEDIT.MODIFYLOOKS 44568 . 46728) (TEDIT.NEW.FONT 46730
- . 47177) (\TEDIT.CARETLOOKS.VERIFY 47179 . 48016) (\TEDIT.CARETPIECE 48018 . 48323) (
-\TEDIT.GET.INSERT.CHARLOOKS 48325 . 51372) (\TEDIT.GET.TERMSA.WIDTHS 51374 . 51790) (
-\TEDIT.PARSE.CHARLOOKS.LIST 51792 . 52992)) (52995 64710 (\TEDIT.MCCS.TRANSLATE 53005 . 58446) (
-\TEDIT.CONVERT.TO.FORMATTED 58448 . 64708)) (65590 72927 (\TEDIT.UNIQUIFY.CHARLOOKS 65600 . 67260) (
-\TEDIT.UNIQUIFY.PARALOOKS 67262 . 68529) (\TEDIT.UNIQUIFY.ALL 68531 . 70619) (
-\TEDIT.FLUSH.UNUSED.LOOKS 70621 . 72925)) (72960 84918 (TEDIT.LOOKS 72970 . 75359) (TEDIT.GET.LOOKS 
-75361 . 77696) (TEDIT.SUBLOOKS 77698 . 82078) (TEDIT.FINDLOOKS 82080 . 84916)) (84987 114637 (
-\TEDIT.CHANGE.CHARLOOKS 84997 . 93775) (\TEDIT.CHANGE.CHARLOOKS.NEW 93777 . 97592) (
-\TEDIT.CHARLOOKS.CHANGE.FONT 97594 . 105901) (\TEDIT.FONT.NEXTSIZE 105903 . 107524) (\TEDIT.LOOKS 
-107526 . 110855) (\TEDIT.FONTCOPY 110857 . 112358) (\TEDIT.COERCE.FONTCLASS 112360 . 113511) (
-\TEDIT.FONTCLASS.TO.FONT 113513 . 114635)) (114680 146328 (\TEDIT.EQFMTSPEC 114690 . 117905) (
-TEDIT.GET.PARALOOKS 117907 . 121954) (\TEDIT.PARSE.PARALOOKS.LIST 121956 . 129989) (TEDIT.PARALOOKS 
-129991 . 131031) (\TEDIT.CHANGE.PARALOOKS 131033 . 138001) (\TEDIT.CHANGE.PARALOOKS.NEW 138003 . 
-141986) (TEDIT.COPY.PARALOOKS 141988 . 144662) (\TEDIT.PARABOUNDS 144664 . 146326)) (146388 154104 (
-TEDIT.SUBPARALOOKS 146398 . 150500) (SAMEPARALOOKS 150502 . 154102)) (154105 154792 (
-\TEDIT.MARK.REVISION 154115 . 154790)))))
+  (FILEMAP (NIL (22099 24041 (\TEDIT.CHARLOOKS.DEFPRINT 22109 . 23245) (\TEDIT.PARALOOKS.DEFPRINT 23247
+ . 24039)) (24145 24531 (\TEDIT.CREATE.FACE.MENU 24155 . 24327) (\TEDIT.CREATE.SIZE.MENU 24329 . 24529
+)) (25535 27424 (\TEDIT.CHARLOOKS.FEATURE.CHECK 25545 . 27422)) (27696 52953 (
+\TEDIT.CHARLOOKS.FROM.FONT 27706 . 29990) (\TEDIT.EQCLOOKS 29992 . 33023) (\TEDIT.SAMECLOOKS 33025 . 
+36196) (TEDIT.CARETLOOKS 36198 . 37744) (TEDIT.COPY.LOOKS 37746 . 41029) (
+\TEDIT.UNPARSE.CHARLOOKS.LIST 41031 . 44525) (\TEDIT.MODIFYLOOKS 44527 . 46687) (TEDIT.NEW.FONT 46689
+ . 47136) (\TEDIT.CARETLOOKS.VERIFY 47138 . 47975) (\TEDIT.CARETPIECE 47977 . 48282) (
+\TEDIT.GET.INSERT.CHARLOOKS 48284 . 51331) (\TEDIT.GET.TERMSA.WIDTHS 51333 . 51749) (
+\TEDIT.PARSE.CHARLOOKS.LIST 51751 . 52951)) (52954 65120 (\TEDIT.MCCS.TRANSLATE 52964 . 58856) (
+\TEDIT.CONVERT.TO.FORMATTED 58858 . 65118)) (65992 73329 (\TEDIT.UNIQUIFY.CHARLOOKS 66002 . 67662) (
+\TEDIT.UNIQUIFY.PARALOOKS 67664 . 68931) (\TEDIT.UNIQUIFY.ALL 68933 . 71021) (
+\TEDIT.FLUSH.UNUSED.LOOKS 71023 . 73327)) (73362 85320 (TEDIT.LOOKS 73372 . 75761) (TEDIT.GET.LOOKS 
+75763 . 78098) (TEDIT.SUBLOOKS 78100 . 82480) (TEDIT.FINDLOOKS 82482 . 85318)) (85389 115039 (
+\TEDIT.CHANGE.CHARLOOKS 85399 . 94177) (\TEDIT.CHANGE.CHARLOOKS.NEW 94179 . 97994) (
+\TEDIT.CHARLOOKS.CHANGE.FONT 97996 . 106303) (\TEDIT.FONT.NEXTSIZE 106305 . 107926) (\TEDIT.LOOKS 
+107928 . 111257) (\TEDIT.FONTCOPY 111259 . 112760) (\TEDIT.COERCE.FONTCLASS 112762 . 113913) (
+\TEDIT.FONTCLASS.TO.FONT 113915 . 115037)) (115082 146730 (\TEDIT.EQFMTSPEC 115092 . 118307) (
+TEDIT.GET.PARALOOKS 118309 . 122356) (\TEDIT.PARSE.PARALOOKS.LIST 122358 . 130391) (TEDIT.PARALOOKS 
+130393 . 131433) (\TEDIT.CHANGE.PARALOOKS 131435 . 138403) (\TEDIT.CHANGE.PARALOOKS.NEW 138405 . 
+142388) (TEDIT.COPY.PARALOOKS 142390 . 145064) (\TEDIT.PARABOUNDS 145066 . 146728)) (146790 154506 (
+TEDIT.SUBPARALOOKS 146800 . 150902) (SAMEPARALOOKS 150904 . 154504)) (154507 155194 (
+\TEDIT.MARK.REVISION 154517 . 155192)))))
 STOP
diff --git a/library/tedit/TEDIT-LOOKS.LCOM b/library/tedit/TEDIT-LOOKS.LCOM
index ec3337d8..586f558e 100644
Binary files a/library/tedit/TEDIT-LOOKS.LCOM and b/library/tedit/TEDIT-LOOKS.LCOM differ
diff --git a/library/tedit/TEDIT-WINDOW b/library/tedit/TEDIT-WINDOW
index f6225e19..f1dfb7d3 100644
--- a/library/tedit/TEDIT-WINDOW
+++ b/library/tedit/TEDIT-WINDOW
@@ -1,14 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "18-Sep-2025 23:09:24" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>TEDIT>TEDIT-WINDOW.;864 229645 
+(FILECREATED " 5-Oct-2025 10:56:19" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;867 229880 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS TEDIT.PROMPTCLEAR)
+      :CHANGES-TO (FNS \TEDIT.SPLITW)
 
-      :PREVIOUS-DATE "11-Aug-2025 21:22:37" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>TEDIT>TEDIT-WINDOW.;863)
+      :PREVIOUS-DATE "18-Sep-2025 23:09:24" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;864)
 
 
 (PRETTYCOMPRINT TEDIT-WINDOWCOMS)
@@ -1672,7 +1670,8 @@
         T)])
 
 (\TEDIT.SPLITW
-  [LAMBDA (OLDPANE Y)                                        (* ; "Edited  9-May-2025 23:55 by rmk")
+  [LAMBDA (OLDPANE Y)                                        (* ; "Edited  5-Oct-2025 10:56 by rmk")
+                                                             (* ; "Edited  9-May-2025 23:55 by rmk")
                                                              (* ; "Edited  5-May-2025 23:22 by rmk")
                                                              (* ; "Edited 21-Apr-2025 20:20 by rmk")
                                                              (* ; "Edited 20-Apr-2025 15:20 by rmk")
@@ -1749,7 +1748,10 @@
          (* ;; "Not sure if same PROPS as for OLDPANE (which this would inherit from primary window)")
 
                [SETQ PROPS (APPEND '(NOTITLE T PROMPTWINDOW DON'T TITLEMENUFN NILL)
-                                  (COPY (FGETTOBJ TEXTOBJ EDITPROPS]
+                                  (COPY (FGETTOBJ TEXTOBJ EDITPROPS))
+                                  (for DP in (FGETTOBJ TEXTOBJ DOCPROPS)
+                                     collect (LIST (CAR DP)
+                                                   (COPY (CDR DP]
                (\TEDIT.LINKPANES OLDPANE (\TEDIT.MINIMAL.WINDOW.SETUP NEWPANE TSTREAM PROPS OLDPANE))
 
          (* ;; "Insert L1 and LN cells for NEWPANEafter OLDPANE's cells in each selection.  The selections were created when the original textsteam was opened.")
@@ -3622,36 +3624,36 @@
 (RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ 
                                          TEDIT.ICON.TITLE.REGION))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (17179 18075 (TEDIT.DEFER.UPDATES 17189 . 18073)) (18076 44021 (\TEDIT.WINDOW.CREATE 
-18086 . 25416) (\TEDIT.WINDOW.GETREGION 25418 . 28908) (\TEDIT.WINDOW.SETUP 28910 . 33240) (
-\TEDIT.MINIMAL.WINDOW.SETUP 33242 . 40653) (\TEDIT.CLEARPANE 40655 . 41372) (\TEDIT.FILL.PANES 41374
- . 44019)) (44022 67723 (\TEDIT.CURSORMOVEDFN 44032 . 49642) (\TEDIT.CURSOROUTFN 49644 . 50332) (
-\TEDIT.ACTIVE.WINDOWP 50334 . 51404) (\TEDIT.EXPANDFN 51406 . 51969) (\TEDIT.MAINW 51971 . 53251) (
-\TEDIT.MAINSTREAM 53253 . 53587) (\TEDIT.PRIMARYPANE 53589 . 54359) (\TEDIT.PANELIST 54361 . 54857) (
-\TEDIT.NEWREGIONFN 54859 . 57375) (\TEDIT.SET.WINDOW.EXTENT 57377 . 62359) (\TEDIT.SHRINK.ICONCREATE 
-62361 . 65094) (\TEDIT.SHRINKFN 65096 . 65505) (\TEDIT.PANEREGION 65507 . 67721)) (67755 100801 (
-\TEDIT.BUTTONEVENTFN 67765 . 80738) (\TEDIT.BUTTONEVENTFN.DOOPERATION 80740 . 88003) (
-\TEDIT.BUTTONEVENTFN.GETOPERATION 88005 . 89847) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 89849 . 93519) (
-\TEDIT.BUTTONEVENTFN.INACTIVE 93521 . 95951) (\TEDIT.BUTTONEVENTFN.INTITLE 95953 . 97788) (
-\TEDIT.COPYINSERTFN 97790 . 98922) (\TEDIT.FOREIGN.COPY 98924 . 100799)) (100802 118044 (
-\TEDIT.PANE.SPLIT 100812 . 104760) (\TEDIT.SPLITW 104762 . 112500) (\TEDIT.UNSPLITW 112502 . 116701) (
-\TEDIT.LINKPANES 116703 . 117466) (\TEDIT.UNLINKPANE 117468 . 118042)) (119478 120369 (TEDITWINDOWP 
-119488 . 120367)) (120406 123509 (TEDIT.GETINPUT 120416 . 122859) (\TEDIT.MAKEFILENAME 122861 . 123507
-)) (123558 131208 (TEDIT.PROMPTWINDOW 123568 . 123882) (TEDIT.PROMPTPRINT 123884 . 126511) (
-TEDIT.PROMPTCLEAR 126513 . 128255) (TEDIT.PROMPTFLASH 128257 . 129515) (\TEDIT.PROMPT.PAGEFULLFN 
-129517 . 131206)) (131446 142024 (\TEDIT.FILENAME 131456 . 132228) (\TEDIT.DEFAULT.TITLE 132230 . 
-134609) (\TEDIT.WINDOW.TITLE 134611 . 136780) (\TEDIT.LIKELY.FILENAME 136782 . 139506) (
-\TEDIT.UPDATE.TITLE 139508 . 142022)) (142067 154551 (TEDIT.DEACTIVATE.WINDOW 142077 . 147650) (
-\TEDIT.RESHAPEFN 147652 . 149737) (\TEDIT.REPAINTFN 149739 . 149963) (\TEDIT.CLOSESPLITS 149965 . 
-152410) (\TEDIT.CLOSEPANE 152412 . 154549)) (154552 197351 (\TEDIT.SCROLLFN 154562 . 156793) (
-\TEDIT.SCROLLCH.TOP 156795 . 158906) (\TEDIT.SCROLLCH.BOTTOM 158908 . 163238) (\TEDIT.SCROLLUP 163240
- . 168966) (\TEDIT.TOPLINE.YTOP 168968 . 170637) (\TEDIT.SCROLLDOWN 170639 . 177678) (
-\TEDIT.SCROLL.CARET 177680 . 180518) (\TEDIT.VISIBLECARETP 180520 . 182814) (\TEDIT.VISIBLECHARP 
-182816 . 183907) (\TEDIT.BITMAPLINES 183909 . 187829) (\TEDIT.SETPANE.TOPLINE 187831 . 188443) (
-\TEDIT.SHIFTLINES 188445 . 197349)) (197352 208221 (\TEDIT.ONSCREEN? 197362 . 201913) (
-\TEDIT.ONSCREEN.REGION 201915 . 205566) (\TEDIT.AFTERMOVEFN 205568 . 206465) (OFFSCREENP 206467 . 
-208219)) (208263 211077 (\TEDIT.PROCIDLEFN 208273 . 209933) (\TEDIT.PROCENTRYFN 209935 . 210380) (
-\TEDIT.PROCEXITFN 210382 . 211075)) (211156 224381 (\TEDIT.DOWNCARET 211166 . 211959) (
-\TEDIT.FLASHCARET 211961 . 214072) (\TEDIT.UPCARET 214074 . 215178) (TEDIT.NORMALIZECARET 215180 . 
-218398) (\TEDIT.SETCARET 218400 . 223751) (\TEDIT.CARET 223753 . 224379)))))
+  (FILEMAP (NIL (17093 17989 (TEDIT.DEFER.UPDATES 17103 . 17987)) (17990 43935 (\TEDIT.WINDOW.CREATE 
+18000 . 25330) (\TEDIT.WINDOW.GETREGION 25332 . 28822) (\TEDIT.WINDOW.SETUP 28824 . 33154) (
+\TEDIT.MINIMAL.WINDOW.SETUP 33156 . 40567) (\TEDIT.CLEARPANE 40569 . 41286) (\TEDIT.FILL.PANES 41288
+ . 43933)) (43936 67637 (\TEDIT.CURSORMOVEDFN 43946 . 49556) (\TEDIT.CURSOROUTFN 49558 . 50246) (
+\TEDIT.ACTIVE.WINDOWP 50248 . 51318) (\TEDIT.EXPANDFN 51320 . 51883) (\TEDIT.MAINW 51885 . 53165) (
+\TEDIT.MAINSTREAM 53167 . 53501) (\TEDIT.PRIMARYPANE 53503 . 54273) (\TEDIT.PANELIST 54275 . 54771) (
+\TEDIT.NEWREGIONFN 54773 . 57289) (\TEDIT.SET.WINDOW.EXTENT 57291 . 62273) (\TEDIT.SHRINK.ICONCREATE 
+62275 . 65008) (\TEDIT.SHRINKFN 65010 . 65419) (\TEDIT.PANEREGION 65421 . 67635)) (67669 100715 (
+\TEDIT.BUTTONEVENTFN 67679 . 80652) (\TEDIT.BUTTONEVENTFN.DOOPERATION 80654 . 87917) (
+\TEDIT.BUTTONEVENTFN.GETOPERATION 87919 . 89761) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 89763 . 93433) (
+\TEDIT.BUTTONEVENTFN.INACTIVE 93435 . 95865) (\TEDIT.BUTTONEVENTFN.INTITLE 95867 . 97702) (
+\TEDIT.COPYINSERTFN 97704 . 98836) (\TEDIT.FOREIGN.COPY 98838 . 100713)) (100716 118279 (
+\TEDIT.PANE.SPLIT 100726 . 104674) (\TEDIT.SPLITW 104676 . 112735) (\TEDIT.UNSPLITW 112737 . 116936) (
+\TEDIT.LINKPANES 116938 . 117701) (\TEDIT.UNLINKPANE 117703 . 118277)) (119713 120604 (TEDITWINDOWP 
+119723 . 120602)) (120641 123744 (TEDIT.GETINPUT 120651 . 123094) (\TEDIT.MAKEFILENAME 123096 . 123742
+)) (123793 131443 (TEDIT.PROMPTWINDOW 123803 . 124117) (TEDIT.PROMPTPRINT 124119 . 126746) (
+TEDIT.PROMPTCLEAR 126748 . 128490) (TEDIT.PROMPTFLASH 128492 . 129750) (\TEDIT.PROMPT.PAGEFULLFN 
+129752 . 131441)) (131681 142259 (\TEDIT.FILENAME 131691 . 132463) (\TEDIT.DEFAULT.TITLE 132465 . 
+134844) (\TEDIT.WINDOW.TITLE 134846 . 137015) (\TEDIT.LIKELY.FILENAME 137017 . 139741) (
+\TEDIT.UPDATE.TITLE 139743 . 142257)) (142302 154786 (TEDIT.DEACTIVATE.WINDOW 142312 . 147885) (
+\TEDIT.RESHAPEFN 147887 . 149972) (\TEDIT.REPAINTFN 149974 . 150198) (\TEDIT.CLOSESPLITS 150200 . 
+152645) (\TEDIT.CLOSEPANE 152647 . 154784)) (154787 197586 (\TEDIT.SCROLLFN 154797 . 157028) (
+\TEDIT.SCROLLCH.TOP 157030 . 159141) (\TEDIT.SCROLLCH.BOTTOM 159143 . 163473) (\TEDIT.SCROLLUP 163475
+ . 169201) (\TEDIT.TOPLINE.YTOP 169203 . 170872) (\TEDIT.SCROLLDOWN 170874 . 177913) (
+\TEDIT.SCROLL.CARET 177915 . 180753) (\TEDIT.VISIBLECARETP 180755 . 183049) (\TEDIT.VISIBLECHARP 
+183051 . 184142) (\TEDIT.BITMAPLINES 184144 . 188064) (\TEDIT.SETPANE.TOPLINE 188066 . 188678) (
+\TEDIT.SHIFTLINES 188680 . 197584)) (197587 208456 (\TEDIT.ONSCREEN? 197597 . 202148) (
+\TEDIT.ONSCREEN.REGION 202150 . 205801) (\TEDIT.AFTERMOVEFN 205803 . 206700) (OFFSCREENP 206702 . 
+208454)) (208498 211312 (\TEDIT.PROCIDLEFN 208508 . 210168) (\TEDIT.PROCENTRYFN 210170 . 210615) (
+\TEDIT.PROCEXITFN 210617 . 211310)) (211391 224616 (\TEDIT.DOWNCARET 211401 . 212194) (
+\TEDIT.FLASHCARET 212196 . 214307) (\TEDIT.UPCARET 214309 . 215413) (TEDIT.NORMALIZECARET 215415 . 
+218633) (\TEDIT.SETCARET 218635 . 223986) (\TEDIT.CARET 223988 . 224614)))))
 STOP
diff --git a/library/tedit/TEDIT-WINDOW.LCOM b/library/tedit/TEDIT-WINDOW.LCOM
index 014c3490..e1030af5 100644
Binary files a/library/tedit/TEDIT-WINDOW.LCOM and b/library/tedit/TEDIT-WINDOW.LCOM differ
