diff --git a/library/tedit/TEDIT b/library/tedit/TEDIT
index 39cb40cc..2522759e 100644
--- a/library/tedit/TEDIT
+++ b/library/tedit/TEDIT
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "13-Nov-2025 21:00:34" {WMEDLEY}<library>TEDIT>TEDIT.;844 144838 
+(FILECREATED "24-Dec-2025 22:45:39" {WMEDLEY}<library>TEDIT>TEDIT.;847 145111 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS TEDIT.INSERT \TEDIT.INSERT)
+      :CHANGES-TO (VARS TEDITCOMS)
 
-      :PREVIOUS-DATE "28-Oct-2025 00:29:56" {WMEDLEY}<library>TEDIT>TEDIT.;843)
+      :PREVIOUS-DATE "24-Dec-2025 11:23:12" {WMEDLEY}<library>TEDIT>TEDIT.;846)
 
 
 (PRETTYCOMPRINT TEDITCOMS)
@@ -76,8 +76,9 @@
               (VARS (TEDITSYSTEMDATE (TEDITSYSTEMDATE]
         (COMS                                                (* ; 
                            "IMAGETYPE Interface, so the system can decide if a file is a TEdit file.")
-              (ADDVARS (PRINTFILETYPES (TEDIT (TEST TEDIT.FORMATTEDFILEP)
-                                              (EXTENSION (TEDIT TED])
+              (FNS TEDIT.IMAGESOURCEP)
+              (ALISTS (PRINTFILETYPES TEDIT))
+              (P (DEFAULT.IMAGETYPE.CONVERSIONS '(TEDIT TEDIT.TO.IMAGEFILE])
 
 (FILESLOAD (SYSLOAD)
        POSTSCRIPTSTREAM PDFSTREAM WHEELSCROLL)
@@ -2317,30 +2318,40 @@
 
 (* ; "IMAGETYPE Interface, so the system can decide if a file is a TEdit file.")
 
+(DEFINEQ
 
-(ADDTOVAR PRINTFILETYPES (TEDIT (TEST TEDIT.FORMATTEDFILEP)
+(TEDIT.IMAGESOURCEP
+  [LAMBDA (X)                                                (* ; "Edited 23-Dec-2025 11:26 by rmk")
+    (OR (TEXTSTREAM X T)
+        (TEDIT.FORMATTEDFILEP X])
+)
+
+(ADDTOVAR PRINTFILETYPES (TEDIT (TEST TEDIT.IMAGESOURCEP)
                                 (EXTENSION (TEDIT TED))))
+
+(DEFAULT.IMAGETYPE.CONVERSIONS '(TEDIT TEDIT.TO.IMAGEFILE))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4838 7232 (MAKE-TEDIT-EXPORTS.ALL 4848 . 5394) (UPDATE-TEDIT 5396 . 6325) (EDIT-TEDIT 
-6327 . 7230)) (8662 36440 (TEDIT 8672 . 11286) (TEXTSTREAM 11288 . 13177) (TEXTSTREAMP 13179 . 13563) 
-(COERCETEXTSTREAM 13565 . 17776) (TEDIT.CONCAT 17778 . 21080) (TEDITSTRING 21082 . 21996) (TEDIT-SEE 
-21998 . 22682) (TEDIT.COPY 22684 . 24829) (TEDIT.DELETE 24831 . 26192) (TEDIT.INSERT 26194 . 29163) (
-TEDIT.TERPRI 29165 . 30279) (TEDIT.KILL 30281 . 31263) (TEDIT.QUIT 31265 . 32631) (TEDIT.MOVE 32633 . 
-33521) (TEDIT.STRINGWIDTH 33523 . 34194) (TEDIT.CHARWIDTH 34196 . 36438)) (36441 38382 (TEXTOBJ 36451
- . 36916) (COERCETEXTOBJ 36918 . 38380)) (39782 41432 (TDRIBBLE 39792 . 41430)) (41473 53369 (
-TEDIT.INSERT.OBJECT 41483 . 45190) (TEDIT.EDIT.OBJECT 45192 . 48132) (TEDIT.OBJECT.CHANGED 48134 . 
-51324) (TEDIT.MAP.OBJECTS 51326 . 52897) (\TEDIT.FIRST.OBJPIECE 52899 . 53132) (\TEDIT.NEXT.OBJPIECE 
-53134 . 53367)) (53392 60835 (\TEDIT.CONCAT.PAGEFRAMES 53402 . 58469) (\TEDIT.GET.PAGE.HEADINGS 58471
- . 59500) (\TEDIT.CONCAT.INSTALL.HEADINGS 59502 . 60833)) (60836 64443 (\TEDIT.MOVE.MSG 60846 . 62927)
- (\TEDIT.READONLY 62929 . 64441)) (64444 70335 (TEDIT.NCHARS 64454 . 64827) (TEDIT.RPLCHARCODE 64829
- . 67819) (TEDIT.NTHCHARCODE 67821 . 69864) (TEDIT.NTHCHAR 69866 . 70333)) (70381 127158 (\TEDIT1 
-70391 . 72468) (\TEDIT.INSERT 72470 . 78583) (\TEDIT.MOVE 78585 . 86491) (\TEDIT.COPY 86493 . 91024) (
-\TEDIT.REPLACE.SELPIECES 91026 . 95562) (\TEDIT.INSERT.SELPIECES 95564 . 98561) (\TEDIT.RESTARTFN 
-98563 . 101068) (\TEDIT.CHARDELETE 101070 . 103999) (\TEDIT.COPYPIECE 104001 . 109163) (
-\TEDIT.APPLY.OBJFN 109165 . 112251) (\TEDIT.DELETE 112253 . 116621) (\TEDIT.DIFFUSE.PARALOOKS 116623
- . 118894) (\TEDIT.WORDDELETE 118896 . 120511) (\TEDIT.WORDDELETE.FORWARD 120513 . 122302) (
-\TEDIT.FINISHEDIT? 122304 . 127156)) (127159 127818 (\TEDIT.THELP 127169 . 127816)) (127852 136983 (
-\TEDIT.PARAPIECES 127862 . 129836) (\TEDIT.PARACHNOS 129838 . 130730) (\TEDIT.PARA.FIRST 130732 . 
-133833) (\TEDIT.PARA.LAST 133835 . 136981)) (136984 144079 (\TEDIT.WORD.FIRST 136994 . 140998) (
-\TEDIT.WORD.LAST 141000 . 144077)) (144280 144557 (TEDITSYSTEMDATE 144290 . 144555)))))
+  (FILEMAP (NIL (4840 7234 (MAKE-TEDIT-EXPORTS.ALL 4850 . 5396) (UPDATE-TEDIT 5398 . 6327) (EDIT-TEDIT 
+6329 . 7232)) (8664 36442 (TEDIT 8674 . 11288) (TEXTSTREAM 11290 . 13179) (TEXTSTREAMP 13181 . 13565) 
+(COERCETEXTSTREAM 13567 . 17778) (TEDIT.CONCAT 17780 . 21082) (TEDITSTRING 21084 . 21998) (TEDIT-SEE 
+22000 . 22684) (TEDIT.COPY 22686 . 24831) (TEDIT.DELETE 24833 . 26194) (TEDIT.INSERT 26196 . 29165) (
+TEDIT.TERPRI 29167 . 30281) (TEDIT.KILL 30283 . 31265) (TEDIT.QUIT 31267 . 32633) (TEDIT.MOVE 32635 . 
+33523) (TEDIT.STRINGWIDTH 33525 . 34196) (TEDIT.CHARWIDTH 34198 . 36440)) (36443 38384 (TEXTOBJ 36453
+ . 36918) (COERCETEXTOBJ 36920 . 38382)) (39784 41434 (TDRIBBLE 39794 . 41432)) (41475 53371 (
+TEDIT.INSERT.OBJECT 41485 . 45192) (TEDIT.EDIT.OBJECT 45194 . 48134) (TEDIT.OBJECT.CHANGED 48136 . 
+51326) (TEDIT.MAP.OBJECTS 51328 . 52899) (\TEDIT.FIRST.OBJPIECE 52901 . 53134) (\TEDIT.NEXT.OBJPIECE 
+53136 . 53369)) (53394 60837 (\TEDIT.CONCAT.PAGEFRAMES 53404 . 58471) (\TEDIT.GET.PAGE.HEADINGS 58473
+ . 59502) (\TEDIT.CONCAT.INSTALL.HEADINGS 59504 . 60835)) (60838 64445 (\TEDIT.MOVE.MSG 60848 . 62929)
+ (\TEDIT.READONLY 62931 . 64443)) (64446 70337 (TEDIT.NCHARS 64456 . 64829) (TEDIT.RPLCHARCODE 64831
+ . 67821) (TEDIT.NTHCHARCODE 67823 . 69866) (TEDIT.NTHCHAR 69868 . 70335)) (70383 127160 (\TEDIT1 
+70393 . 72470) (\TEDIT.INSERT 72472 . 78585) (\TEDIT.MOVE 78587 . 86493) (\TEDIT.COPY 86495 . 91026) (
+\TEDIT.REPLACE.SELPIECES 91028 . 95564) (\TEDIT.INSERT.SELPIECES 95566 . 98563) (\TEDIT.RESTARTFN 
+98565 . 101070) (\TEDIT.CHARDELETE 101072 . 104001) (\TEDIT.COPYPIECE 104003 . 109165) (
+\TEDIT.APPLY.OBJFN 109167 . 112253) (\TEDIT.DELETE 112255 . 116623) (\TEDIT.DIFFUSE.PARALOOKS 116625
+ . 118896) (\TEDIT.WORDDELETE 118898 . 120513) (\TEDIT.WORDDELETE.FORWARD 120515 . 122304) (
+\TEDIT.FINISHEDIT? 122306 . 127158)) (127161 127820 (\TEDIT.THELP 127171 . 127818)) (127854 136985 (
+\TEDIT.PARAPIECES 127864 . 129838) (\TEDIT.PARACHNOS 129840 . 130732) (\TEDIT.PARA.FIRST 130734 . 
+133835) (\TEDIT.PARA.LAST 133837 . 136983)) (136986 144081 (\TEDIT.WORD.FIRST 136996 . 141000) (
+\TEDIT.WORD.LAST 141002 . 144079)) (144282 144559 (TEDITSYSTEMDATE 144292 . 144557)) (144695 144902 (
+TEDIT.IMAGESOURCEP 144705 . 144900)))))
 STOP
diff --git a/library/tedit/TEDIT-HCPY b/library/tedit/TEDIT-HCPY
index 0348a30a..0f58054c 100644
--- a/library/tedit/TEDIT-HCPY
+++ b/library/tedit/TEDIT-HCPY
@@ -1,12 +1,14 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "19-Sep-2025 17:08:05" {WMEDLEY}<library>TEDIT>TEDIT-HCPY.;186 30742  
+(FILECREATED "24-Dec-2025 11:16:22" {WMEDLEY}<library>TEDIT>TEDIT-HCPY.;194 32124  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS TEDIT.HARDCOPYFN)
+      :CHANGES-TO (FNS TEDIT.HARDCOPY \TEDIT.PRINT.MENU TEDIT.FORMAT.HARDCOPY TEDIT.IMAGEFILE.MESSAGE
+                       )
+                  (VARS TEDIT-HCPYCOMS)
 
-      :PREVIOUS-DATE "19-Sep-2025 08:35:34" {WMEDLEY}<library>TEDIT>TEDIT-HCPY.;185)
+      :PREVIOUS-DATE "11-Dec-2025 23:23:30" {WMEDLEY}<library>TEDIT>TEDIT-HCPY.;189)
 
 
 (PRETTYCOMPRINT TEDIT-HCPYCOMS)
@@ -15,9 +17,10 @@
        ((COMS 
               (* ;; "Generic interface functions and common code")
 
-              (FNS TEDIT.HARDCOPY \TEDIT.PRINT.MENU TEDIT.HCPYFILE \TEDIT.HARDCOPY.DISPLAYLINE 
-                   \TEDIT.HARDCOPY.FORMATLINE.HEADINGS \TEDIT.HARDCOPY.MODIFYLOOKS \TEDIT.HCPYFMTSPEC
-                   \TEDIT.INTEGER.IMAGEBOX \TEDIT.DISPLAY.DIACRITIC))
+              (FNS TEDIT.HARDCOPY TEDIT.FORMAT.HARDCOPY TEDIT.IMAGEFILE.MESSAGE \TEDIT.PRINT.MENU 
+                   \TEDIT.HARDCOPY.DISPLAYLINE \TEDIT.HARDCOPY.FORMATLINE.HEADINGS 
+                   \TEDIT.HARDCOPY.MODIFYLOOKS \TEDIT.HCPYFMTSPEC \TEDIT.INTEGER.IMAGEBOX 
+                   \TEDIT.DISPLAY.DIACRITIC))
         (COMS 
               (* ;; "Functions for scaling regions as needed during hardcopy.")
 
@@ -27,9 +30,9 @@
               (INITVARS (TEDIT.DEFAULTPAGEREGION (\TEDIT.SCALEREGION MICASPERINCH
                                                         (CREATEREGION 1.1 0.75 6.4 9.25]
         (COMS 
-              (* ;; "Support for the window-menu's HARDCOPY button, LISTFILES, etc.  THIS IS SCREWY")
+              (* ;; "Support for the window-menu's HARDCOPY button, LISTFILES, etc.  Eliminated postscript, but this still may be screwy")
 
-              (FNS TEDIT.HARDCOPYFN \TEDIT.HARDCOPYFILEFN \TEDIT.POSTSCRIPT.HARDCOPY))
+              (FNS \TEDIT.HARDCOPYFILEFN))
         [COMS 
               (* ;; "vars for Japanese Line Break")
 
@@ -56,73 +59,114 @@
 
 (TEDIT.HARDCOPY
   [LAMBDA (STREAM FILE DONTSEND BREAKPAGETITLE SERVER PRINTOPTIONS)
+                                                             (* ; "Edited 17-Dec-2025 01:06 by rmk")
                                                              (* ; "Edited  6-Mar-2024 23:33 by rmk")
                                                              (* ; "Edited  5-Jan-88 16:09 by jds")
 
     (* ;; "Send the text to a printer, unless DONTSEND.   If DONTSEND and we can't find a server, we'll get the DEFAULTPRINTERTYPE.")
 
-    (CL:UNLESS SERVER (SETQ SERVER DEFAULTPRINTINGHOST))
+    (CL:UNLESS SERVER
+        (SETQ SERVER (CAR (DEFAULTPRINTERS))))
     (COND
        [(OR SERVER DONTSEND)
         (for IMAGETYPE in (PRINTERPROP (PRINTERTYPE SERVER)
                                  'CANPRINT)
-           do (RETURN (TEDIT.FORMAT.HARDCOPY STREAM FILE DONTSEND BREAKPAGETITLE SERVER PRINTOPTIONS
+           do (RETURN (TEDIT.FORMAT.HARDCOPY STREAM FILE DONTSEND BREAKPAGETITLE SERVER PRINTOPTIONS
                              IMAGETYPE)) finally (ERROR (CONCAT "Can't print TEDIT documents on a "
                                                                (PRINTERTYPE SERVER)
                                                                " printer."]
        (T (TEDIT.PROMPTPRINT (TEXTOBJ STREAM)
                  "Can't HARDCOPY:  No print server specified." T])
 
+(TEDIT.FORMAT.HARDCOPY
+  [LAMBDA (TSTREAM IMAGESTREAM DONTSEND BREAKPAGETITLE SERVER PRINTOPTIONS IMAGETYPE FIRSTPG# STARTPG
+                 ENDPG QUIET)                                (* ; "Edited 14-Dec-2025 17:40 by rmk")
+                                                             (* ; "Edited  8-Dec-2025 18:08 by rmk")
+                                                             (* ; "Edited  7-Dec-2025 15:06 by rmk")
+                                                             (* ; "Edited 19-Sep-2025 22:04 by rmk")
+                                                             (* ; "Edited 18-Sep-2025 10:11 by rmk")
+                                                             (* ; "Edited 12-Sep-2025 23:54 by rmk")
+                                                             (* ; "Edited  5-Jun-2025 08:24 by rmk")
+                                                             (* ; "Edited 22-Apr-2025 08:12 by rmk")
+                                                             (* ; "Edited 30-Aug-2024 15:45 by rmk")
+                                                             (* ; "Edited  5-Apr-2024 08:01 by rmk")
+                                                             (* ; "Edited 19-Jan-2024 23:39 by rmk")
+                                                             (* ; "Edited 15-Nov-2023 23:56 by rmk")
+                                                             (* ; "Edited  4-Jul-2023 11:16 by rmk")
+                                                             (* ; "Edited  2-Oct-2022 00:00 by rmk")
+                                                             (* ; 
+                                                        "Edited 25-May-93 13:06 by sybalsky:mv:envos")
+
+    (* ;; "Format a document for hardcopy.   Returns NIL if the before-print-fn said not to print.")
+
+    (* ;; "TEXTSTREAM is either already a textstream or somehow denotes a tedit-formatted file, otherwise an error. We don't here try to decide that a non-formatted file is a plain text file, as opposed binary or anything else.")
+
+    (RESETLST
+        (LET [(IMAGEFILE (TEDIT.TO.IMAGEFILE TSTREAM IMAGESTREAM (OR IMAGETYPE DEFAULTPRINTERTYPE)
+                                `(,@PRINTOPTIONS FIRSTPG# ,FIRSTPG# STARTPG ,STARTPG ENDPG
+                                        ,ENDPG DOCUMENT.NAME ,BREAKPAGETITLE]
+             (CL:UNLESS (OR DONTSEND (EQ IMAGEFILE IMAGESTREAM))
+
+                 (* ;; "If the caller gave us an already open image  stream, not just a filename (or NIL), we assume that the caller will close it and send to the printer, if necessary.")
+
+                 (SEND.FILE.TO.PRINTER IMAGEFILE SERVER `(DOCUMENT.NAME ,BREAKPAGETITLE 
+                                                                ,@PRINTOPTIONS DOCUMENT.NAME 
+                                                                "TEdit Hardcopy Output")))
+             (CL:UNLESS QUIET (TEDIT.IMAGEFILE.MESSAGE TSTREAM))
+             IMAGEFILE))])
+
+(TEDIT.IMAGEFILE.MESSAGE
+  [LAMBDA (TSTREAM)                                          (* ; "Edited 14-Dec-2025 17:40 by rmk")
+
+    (* ;; "Description of last imagefile goes in promptwindow")
+
+    (LET* ((LASTIMAGEFILE (GETTEXTPROP TSTREAM 'LASTIMAGEFILE))
+           (NPAGES (pop LASTIMAGEFILE))
+           (IMAGESTREAM (pop LASTIMAGEFILE))
+           (PRINTERNAME (pop LASTIMAGEFILE)))
+          (TEDIT.PROMPTPRINT TSTREAM [CONCAT NPAGES " page" (CL:IF (EQ 1 NPAGES)
+                                                                ""
+                                                                "s")
+                                            (if PRINTERNAME
+                                                then (CONCAT " printed on " PRINTERNAME)
+                                              elseif (STREAMP IMAGESTREAM)
+                                                then " printed"
+                                              else (CONCAT " on " (PSEUDOFILENAME IMAGESTREAM]
+                 T])
+
 (\TEDIT.PRINT.MENU
-  [LAMBDA (TSTREAM)                                          (* ; "Edited 19-Sep-2025 07:43 by rmk")
+  [LAMBDA (TSTREAM)                                          (* ; "Edited 17-Dec-2025 00:09 by rmk")
+                                                             (* ; "Edited 14-Dec-2025 17:38 by rmk")
+                                                             (* ; "Edited 13-Dec-2025 08:35 by rmk")
+                                                             (* ; "Edited 19-Sep-2025 07:43 by rmk")
                                                              (* ; "Edited 28-Jun-2024 22:09 by rmk")
-                                                             (* ; "Edited 25-Jun-2023 13:16 by rmk")
-                                                             (* ; "Edited  6-Jun-2023 17:48 by rmk")
-    (LET ((W (GETTOBJ (TEXTOBJ TSTREAM)
-                    PRIMARYPANE))
-          FILE&TYPE)
+                                                             (* ; "Edited 25-Jun-2023 13:16 by rmk")
+    (SETQ TSTREAM (TEXTSTREAM (GETTOBJ (TEXTOBJ TSTREAM)
+                                     PRIMARYPANE)))
+    (TEDIT.PROMPTCLEAR TSTREAM)                              (* ; "Edited  6-Jun-2023 17:48 by rmk")
+    (LET (FILE&TYPE)
          (SELECTQ [MENU (create MENU
                                ITEMS _ '(("Print to a file" 'FILE 
                                               "Puts image on a file; prompts for filename and format"
                                                 )
                                          ("Send to a printer" 'PRINTER 
                                                 "Sends image to a printer of your choosing"]
-             (FILE (CL:WHEN (SETQ FILE&TYPE (GetImageFile W))
-                       (TEDIT.TO.IMAGEFILE W (CAR FILE&TYPE)
-                              (CDR FILE&TYPE))))
-             (PRINTER [SEND.FILE.TO.PRINTER (TEXTSTREAM W)
-                             (GetPrinterName)
-                             `(HEADING ,(GETTEXTPROP W 'FILENAME])
-             NIL])
-
-(TEDIT.HCPYFILE
-  [LAMBDA (TSTREAM FILE BREAKPAGETITLE)                      (* ; "Edited 18-Sep-2025 11:21 by rmk")
-                                                             (* ; "Edited 29-Jun-2024 16:33 by rmk")
-                                                             (* ; "Edited  4-Oct-2022 09:23 by rmk")
-                                                             (* ; "Edited  1-Oct-2022 22:12 by rmk")
-
-    (* ;; "Not sure that this is ever called.  Not documented.")
-                                                            (* ; "Edited 12-Jun-90 18:36 by mitani")
-
-    (* ;; "Create a hardcopy-format FILE from the text on TSTREAM, with the file type depending on what the default printer is.")
-
-    (LET ((IMAGETYPE DEFAULTPRINTERTYPE)
-          TXTFILE)
-         (CL:UNLESS FILE
-             [SETQ FILE (\TEDIT.MAKEFILENAME (TEDIT.GETINPUT TSTREAM (CONCAT IMAGETYPE 
-                                                                            " file name:  ")
-                                                    (CL:WHEN (SETQ TXTFILE (GETTEXTPROP TSTREAM
-                                                                                  'FILENAME))
-                                                             (* ; 
-                                                             "There was a file, so supply default")
-                                                        (PACKFILENAME 'VERSION NIL 'EXTENSION
-                                                               (CAR (EXTENSIONS.FOR.IMAGEFILETYPE
-                                                                     IMAGETYPE))
-                                                               'BODY TXTFILE))])
-         (if FILE
-             then [TEDIT.TO.IMAGEFILE TSTREAM FILE IMAGETYPE `(BREAKPAGEFILENAME `BREAKPAGETITLE]
-           else (TEDIT.PROMPTPRINT TSTREAM "No hardcopy file--aborted" T T)
-                NIL])
+             (FILE [LET [(FILENAME (GETTEXTPROP TSTREAM 'FILENAME]
+                        (CL:WHEN FILENAME
+                            (SETQ FILENAME (PACKFILENAME
+                                            'VERSION NIL 'EXTENSION
+                                            [L-CASE (CAR (EXTENSIONS.FOR.IMAGEFILETYPE
+                                                          (CAR (PRINTERPROP (PRINTERTYPE 
+                                                                                   :DEFAULTPRINTER)
+                                                                      'CANPRINT]
+                                            'BODY FILENAME)))
+                        (CL:WHEN (SETQ FILE&TYPE (GetImageFile FILENAME))
+                            (TEDIT.TO.IMAGEFILE TSTREAM (CAR FILE&TYPE)
+                                   (CDR FILE&TYPE)))])
+             (PRINTER [SEND.FILE.TO.PRINTER TSTREAM (GetPrinterName)
+                             `(HEADING ,(GETTEXTPROP TSTREAM 'FILENAME])
+             NIL)
+         (TEDIT.IMAGEFILE.MESSAGE TSTREAM])
 
 (\TEDIT.HARDCOPY.DISPLAYLINE
   [LAMBDA (TSTREAM LINE REGION PRSTREAM FORMATTINGSTATE)     (* ; "Edited 21-Apr-2025 19:02 by rmk")
@@ -420,29 +464,12 @@
 
 
 
-(* ;; "Support for the window-menu's HARDCOPY button, LISTFILES, etc.  THIS IS SCREWY")
+(* ;; 
+"Support for the window-menu's HARDCOPY button, LISTFILES, etc.  Eliminated postscript, but this still may be screwy"
+)
 
 (DEFINEQ
 
-(TEDIT.HARDCOPYFN
-  [LAMBDA (WINDOW IMAGEFILE IMAGETYPE)                       (* ; "Edited 19-Sep-2025 13:49 by rmk")
-                                                             (* ; "Edited 12-Sep-2025 21:50 by rmk")
-                                                             (* ; "Edited 13-Dec-2024 22:33 by rmk")
-                                                             (* ; "Edited 29-Jun-2024 14:42 by rmk")
-                                                             (* ; "Edited 20-Mar-2024 10:49 by rmk")
-                                                             (* ; "Edited 25-Sep-2023 16:29 by rmk")
-                                                             (* ; "Edited  4-Jul-2023 11:16 by rmk")
-                                                            (* ; "Edited 21-Sep-2021 15:33 by rmk:")
-
-    (* ;; 
-   "This is the TEdit HARDCOPYFN, hooking into the system's standard Hardcopy window-menu operation.")
-
-    (TEDIT.TO.IMAGEFILE (CL:IF (FGETTOBJ (TEXTOBJ WINDOW)
-                                      MENUFLG)
-                            (\TEDIT.MAINW WINDOW)
-                            WINDOW)
-           IMAGEFILE IMAGETYPE])
-
 (\TEDIT.HARDCOPYFILEFN
   [LAMBDA (W EXT)                                            (* ; "Edited 25-Sep-2023 16:19 by rmk")
     (LET [(STRM (OR (GETTOBJ (TEXTOBJ W)
@@ -455,22 +482,6 @@
              (PACKFILENAME 'VERSION NIL 'EXTENSION (OR EXT 'IMAGEFILE)
                     'BODY
                     (FULLNAME STRM)))])
-
-(\TEDIT.POSTSCRIPT.HARDCOPY
-  [LAMBDA (FILE PFILE)                                       (* ; "Edited  4-Oct-2022 10:40 by rmk")
-                                                             (* ; "Edited  1-Oct-2022 22:08 by rmk")
-                                                            (* ; "Edited 12-Jun-90 18:35 by mitani")
-
-    (* ;; "Send the document FILE to the printer (or to a print file, as determined by PFILE).")
-
-    (CL:WITH-OPEN-STREAM (TEXT-STREAM (OPENTEXTSTREAM FILE))
-           (RESETLST
-               [RESETSAVE (\TEDIT.MARKACTIVE (TEXTOBJ TEXT-STREAM))
-                      '(AND (\TEDIT.MARKINACTIVE OLDVALUE]
-               [RESETSAVE NIL `(AND (CLOSEF? ',PFILE]
-               (replace (TEXTOBJ EDITOPACTIVE) of (TEXTOBJ TEXT-STREAM) with 'Hardcopy)
-               (TEDIT.FORMAT.HARDCOPY TEXT-STREAM PFILE T NIL NIL NIL 'POSTSCRIPT)
-               PFILE)])
 )
 
 
@@ -508,11 +519,10 @@
          (CLOSEF DOC])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2653 25392 (TEDIT.HARDCOPY 2663 . 3796) (\TEDIT.PRINT.MENU 3798 . 5139) (TEDIT.HCPYFILE
- 5141 . 7122) (\TEDIT.HARDCOPY.DISPLAYLINE 7124 . 16347) (\TEDIT.HARDCOPY.FORMATLINE.HEADINGS 16349 . 
-18078) (\TEDIT.HARDCOPY.MODIFYLOOKS 18080 . 20261) (\TEDIT.HCPYFMTSPEC 20263 . 23721) (
-\TEDIT.INTEGER.IMAGEBOX 23723 . 24394) (\TEDIT.DISPLAY.DIACRITIC 24396 . 25390)) (25467 26297 (
-\TEDIT.SCALEREGION 25477 . 26295)) (26550 29299 (TEDIT.HARDCOPYFN 26560 . 27801) (
-\TEDIT.HARDCOPYFILEFN 27803 . 28364) (\TEDIT.POSTSCRIPT.HARDCOPY 28366 . 29297)) (29918 30719 (
-TEDIT-BOOK 29928 . 30717)))))
+  (FILEMAP (NIL (2824 28911 (TEDIT.HARDCOPY 2834 . 4092) (TEDIT.FORMAT.HARDCOPY 4094 . 7179) (
+TEDIT.IMAGEFILE.MESSAGE 7181 . 8236) (\TEDIT.PRINT.MENU 8238 . 10641) (\TEDIT.HARDCOPY.DISPLAYLINE 
+10643 . 19866) (\TEDIT.HARDCOPY.FORMATLINE.HEADINGS 19868 . 21597) (\TEDIT.HARDCOPY.MODIFYLOOKS 21599
+ . 23780) (\TEDIT.HCPYFMTSPEC 23782 . 27240) (\TEDIT.INTEGER.IMAGEBOX 27242 . 27913) (
+\TEDIT.DISPLAY.DIACRITIC 27915 . 28909)) (28986 29816 (\TEDIT.SCALEREGION 28996 . 29814)) (30108 30681
+ (\TEDIT.HARDCOPYFILEFN 30118 . 30679)) (31300 32101 (TEDIT-BOOK 31310 . 32099)))))
 STOP
diff --git a/library/tedit/TEDIT-HCPY.LCOM b/library/tedit/TEDIT-HCPY.LCOM
index 55a52469..6c061d58 100644
Binary files a/library/tedit/TEDIT-HCPY.LCOM and b/library/tedit/TEDIT-HCPY.LCOM differ
diff --git a/library/tedit/TEDIT-LOOKS b/library/tedit/TEDIT-LOOKS
index 426d99ab..9c66d9ca 100644
--- a/library/tedit/TEDIT-LOOKS
+++ b/library/tedit/TEDIT-LOOKS
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 6-Oct-2025 20:50:59" {WMEDLEY}<library>TEDIT>TEDIT-LOOKS.;459 155349 
+(FILECREATED " 7-Dec-2025 16:32:32" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;460 155196 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.MCCS.TRANSLATE)
+      :CHANGES-TO (VARS TEDIT-LOOKSCOMS)
 
-      :PREVIOUS-DATE " 5-Oct-2025 10:57:43" {WMEDLEY}<library>TEDIT>TEDIT-LOOKS.;457)
+      :PREVIOUS-DATE " 6-Oct-2025 20:50:59" {WMEDLEY}<library>tedit>TEDIT-LOOKS.;459)
 
 
 (PRETTYCOMPRINT TEDIT-LOOKSCOMS)
@@ -60,7 +60,6 @@
               (* ;; "Public entries")
 
               (FNS TEDIT.LOOKS TEDIT.GET.LOOKS TEDIT.SUBLOOKS TEDIT.FINDLOOKS)
-              [INITVARS (TEDIT.FONTCLASSES '(DISPLAY PDF POSTSCRIPT INTERPRESS]
               (FNS \TEDIT.CHANGE.CHARLOOKS \TEDIT.CHANGE.CHARLOOKS.NEW \TEDIT.CHARLOOKS.CHANGE.FONT 
                    \TEDIT.FONT.NEXTSIZE \TEDIT.LOOKS \TEDIT.FONTCOPY \TEDIT.COERCE.FONTCLASS 
                    \TEDIT.FONTCLASS.TO.FONT))
@@ -1375,8 +1374,6 @@
                    (TEDIT.NORMALIZECARET TEXTOBJ)
                    (RETURN (\TEDIT.COPYSEL (FGETTOBJ TEXTOBJ SEL])])
 )
-
-(RPAQ? TEDIT.FONTCLASSES '(DISPLAY PDF POSTSCRIPT INTERPRESS))
 (DEFINEQ
 
 (\TEDIT.CHANGE.CHARLOOKS
@@ -2461,26 +2458,26 @@
 (ADDTOVAR LAMA )
 )
 (DECLARE%: DONTCOPY
-  (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 65081 (\TEDIT.MCCS.TRANSLATE 52964 . 58817) (
-\TEDIT.CONVERT.TO.FORMATTED 58819 . 65079)) (65953 73290 (\TEDIT.UNIQUIFY.CHARLOOKS 65963 . 67623) (
-\TEDIT.UNIQUIFY.PARALOOKS 67625 . 68892) (\TEDIT.UNIQUIFY.ALL 68894 . 70982) (
-\TEDIT.FLUSH.UNUSED.LOOKS 70984 . 73288)) (73323 85281 (TEDIT.LOOKS 73333 . 75722) (TEDIT.GET.LOOKS 
-75724 . 78059) (TEDIT.SUBLOOKS 78061 . 82441) (TEDIT.FINDLOOKS 82443 . 85279)) (85350 115000 (
-\TEDIT.CHANGE.CHARLOOKS 85360 . 94138) (\TEDIT.CHANGE.CHARLOOKS.NEW 94140 . 97955) (
-\TEDIT.CHARLOOKS.CHANGE.FONT 97957 . 106264) (\TEDIT.FONT.NEXTSIZE 106266 . 107887) (\TEDIT.LOOKS 
-107889 . 111218) (\TEDIT.FONTCOPY 111220 . 112721) (\TEDIT.COERCE.FONTCLASS 112723 . 113874) (
-\TEDIT.FONTCLASS.TO.FONT 113876 . 114998)) (115043 146691 (\TEDIT.EQFMTSPEC 115053 . 118268) (
-TEDIT.GET.PARALOOKS 118270 . 122317) (\TEDIT.PARSE.PARALOOKS.LIST 122319 . 130352) (TEDIT.PARALOOKS 
-130354 . 131394) (\TEDIT.CHANGE.PARALOOKS 131396 . 138364) (\TEDIT.CHANGE.PARALOOKS.NEW 138366 . 
-142349) (TEDIT.COPY.PARALOOKS 142351 . 145025) (\TEDIT.PARABOUNDS 145027 . 146689)) (146751 154467 (
-TEDIT.SUBPARALOOKS 146761 . 150863) (SAMEPARALOOKS 150865 . 154465)) (154468 155155 (
-\TEDIT.MARK.REVISION 154478 . 155153)))))
+  (FILEMAP (NIL (22014 23956 (\TEDIT.CHARLOOKS.DEFPRINT 22024 . 23160) (\TEDIT.PARALOOKS.DEFPRINT 23162
+ . 23954)) (24060 24446 (\TEDIT.CREATE.FACE.MENU 24070 . 24242) (\TEDIT.CREATE.SIZE.MENU 24244 . 24444
+)) (25450 27339 (\TEDIT.CHARLOOKS.FEATURE.CHECK 25460 . 27337)) (27611 52868 (
+\TEDIT.CHARLOOKS.FROM.FONT 27621 . 29905) (\TEDIT.EQCLOOKS 29907 . 32938) (\TEDIT.SAMECLOOKS 32940 . 
+36111) (TEDIT.CARETLOOKS 36113 . 37659) (TEDIT.COPY.LOOKS 37661 . 40944) (
+\TEDIT.UNPARSE.CHARLOOKS.LIST 40946 . 44440) (\TEDIT.MODIFYLOOKS 44442 . 46602) (TEDIT.NEW.FONT 46604
+ . 47051) (\TEDIT.CARETLOOKS.VERIFY 47053 . 47890) (\TEDIT.CARETPIECE 47892 . 48197) (
+\TEDIT.GET.INSERT.CHARLOOKS 48199 . 51246) (\TEDIT.GET.TERMSA.WIDTHS 51248 . 51664) (
+\TEDIT.PARSE.CHARLOOKS.LIST 51666 . 52866)) (52869 64996 (\TEDIT.MCCS.TRANSLATE 52879 . 58732) (
+\TEDIT.CONVERT.TO.FORMATTED 58734 . 64994)) (65868 73205 (\TEDIT.UNIQUIFY.CHARLOOKS 65878 . 67538) (
+\TEDIT.UNIQUIFY.PARALOOKS 67540 . 68807) (\TEDIT.UNIQUIFY.ALL 68809 . 70897) (
+\TEDIT.FLUSH.UNUSED.LOOKS 70899 . 73203)) (73238 85196 (TEDIT.LOOKS 73248 . 75637) (TEDIT.GET.LOOKS 
+75639 . 77974) (TEDIT.SUBLOOKS 77976 . 82356) (TEDIT.FINDLOOKS 82358 . 85194)) (85197 114847 (
+\TEDIT.CHANGE.CHARLOOKS 85207 . 93985) (\TEDIT.CHANGE.CHARLOOKS.NEW 93987 . 97802) (
+\TEDIT.CHARLOOKS.CHANGE.FONT 97804 . 106111) (\TEDIT.FONT.NEXTSIZE 106113 . 107734) (\TEDIT.LOOKS 
+107736 . 111065) (\TEDIT.FONTCOPY 111067 . 112568) (\TEDIT.COERCE.FONTCLASS 112570 . 113721) (
+\TEDIT.FONTCLASS.TO.FONT 113723 . 114845)) (114890 146538 (\TEDIT.EQFMTSPEC 114900 . 118115) (
+TEDIT.GET.PARALOOKS 118117 . 122164) (\TEDIT.PARSE.PARALOOKS.LIST 122166 . 130199) (TEDIT.PARALOOKS 
+130201 . 131241) (\TEDIT.CHANGE.PARALOOKS 131243 . 138211) (\TEDIT.CHANGE.PARALOOKS.NEW 138213 . 
+142196) (TEDIT.COPY.PARALOOKS 142198 . 144872) (\TEDIT.PARABOUNDS 144874 . 146536)) (146598 154314 (
+TEDIT.SUBPARALOOKS 146608 . 150710) (SAMEPARALOOKS 150712 . 154312)) (154315 155002 (
+\TEDIT.MARK.REVISION 154325 . 155000)))))
 STOP
diff --git a/library/tedit/TEDIT-LOOKS.LCOM b/library/tedit/TEDIT-LOOKS.LCOM
index 802c0d03..066f0a15 100644
Binary files a/library/tedit/TEDIT-LOOKS.LCOM and b/library/tedit/TEDIT-LOOKS.LCOM differ
diff --git a/library/tedit/TEDIT-MENU b/library/tedit/TEDIT-MENU
index cc340649..6794e9d7 100644
--- a/library/tedit/TEDIT-MENU
+++ b/library/tedit/TEDIT-MENU
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "22-Oct-2025 12:55:36" {WMEDLEY}<library>TEDIT>TEDIT-MENU.;498 183397 
+(FILECREATED "12-Dec-2025 00:01:26" {WMEDLEY}<library>tedit>TEDIT-MENU.;501 183343 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS MARGINBAR.NEUTRALIZE \TEDIT.PARALOOKS.TO.MARBAR)
+      :CHANGES-TO (VARS TEDIT-MENUCOMS)
 
-      :PREVIOUS-DATE "19-Oct-2025 15:14:00" {WMEDLEY}<library>TEDIT>TEDIT-MENU.;496)
+      :PREVIOUS-DATE " 7-Dec-2025 16:34:30" {WMEDLEY}<library>tedit>TEDIT-MENU.;499)
 
 
 (PRETTYCOMPRINT TEDIT-MENUCOMS)
@@ -67,7 +67,7 @@
         (* ;; "")
 
                                                              (* ; "CHARMENU")
-        [INITVARS (TEDIT.FONTDEVICES '(DISPLAY PDF POSTSCRIPT))
+        [INITVARS (TEDIT.FONTDEVICES '(DISPLAY PDF))
                (TEDIT.FONTFAMILIES '(Classic Modern Terminal Helvetica TimesRoman Gacha]
         (FNS \TEDIT.CHARMENU.CREATE \TEDIT.CHARMENU.START \TEDIT.CHARMENU.SPEC \TEDIT.CHARMENU.PARSE
              \TEDIT.CHARMENU.FILLIN \TEDIT.SHOW.CHARLOOKS \TEDIT.APPLY.CHARLOOKS 
@@ -1952,7 +1952,7 @@
 (* ; "CHARMENU")
 
 
-(RPAQ? TEDIT.FONTDEVICES '(DISPLAY PDF POSTSCRIPT))
+(RPAQ? TEDIT.FONTDEVICES '(DISPLAY PDF))
 
 (RPAQ? TEDIT.FONTFAMILIES '(Classic Modern Terminal Helvetica TimesRoman Gacha))
 (DEFINEQ
@@ -2907,32 +2907,32 @@
 (ADDTOVAR LAMA )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4972 16610 (TEDIT.ADD.MENUITEM 4982 . 7099) (TEDIT.DEFAULT.MENUFN 7101 . 13822) (
-TEDIT.REMOVE.MENUITEM 13824 . 14821) (\TEDIT.CREATEMENU 14823 . 15388) (\TEDIT.MENU.WHENHELDFN 15390
- . 16295) (\TEDIT.MENU.WHENSELECTEDFN 16297 . 16608)) (17424 65459 (DRAWMARGINSCALE 17434 . 20893) (
-MARGINBAR 20895 . 28020) (MARGINBAR.CREATE 28022 . 32220) (MB.MARGINBAR.BUTTONEVENTINFN 32222 . 40024)
- (MB.MARGINBAR.SELFN.TABS 40026 . 45266) (MB.MARGINBAR.SELFN.TABS.KIND 45268 . 46203) (
-MARGINBAR.GETSTATEFN 46205 . 50192) (MARGINBAR.SETSTATEFN 50194 . 50404) (MARGINBAR.NEUTRALIZE 50406
- . 51081) (MARGINBAR.LOOKS 51083 . 54189) (MB.MARGINBAR.SIZEFN 54191 . 54977) (MB.MARGINBAR.DISPLAYFN 
-54979 . 58040) (MDESCALE 58042 . 58582) (MSCALE 58584 . 58914) (MB.MARGINBAR.SHOWTAB 58916 . 61239) (
-MB.MARGINBAR.TABTRACK 61241 . 62626) (MARGINBAR.INIT 62628 . 64021) (\TEDIT.PARALOOKS.TO.MARBAR 64023
- . 65457)) (66284 73566 (TEDIT.MENUSTREAM 66294 . 67294) (TEDITMENUP 67296 . 68265) (\TEDIT.MENU.START
- 68267 . 72614) (\TEDIT.MENU.OPEN? 72616 . 72990) (\TEDIT.MENU.BUTTONEVENTFN 72992 . 73564)) (73885 
-81936 (\TEDIT.MENU.CREATE 73895 . 75835) (\TEDIT.MENU.PARSE 75837 . 79526) (\TEDIT.MENU.NEUTRALIZE 
-79528 . 81599) (\TEDITMENU.RECORD.UNFORMATTED 81601 . 81934)) (82002 101783 (
-\TEDIT.EXPANDEDMENU.CREATE 82012 . 87479) (\TEDIT.EXPANDEDMENU.START 87481 . 89105) (
-\TEDIT.EXPANDEDMENU.FN 89107 . 92362) (\TEDIT.EXPANDEDMENU.ACTIONFN 92364 . 101781)) (101845 121270 (
-\TEDIT.PARAMENU.CREATE 101855 . 110586) (\TEDIT.PARAMENU.START 110588 . 111842) (
-\TEDIT.APPLY.PARALOOKS 111844 . 112896) (\TEDIT.SHOW.PARALOOKS 112898 . 115615) (
-\TEDIT.PARAMENU.FILLIN 115617 . 120366) (\TEDIT.PARAMENU.RESHAPEFN 120368 . 121268)) (121475 148317 (
-\TEDIT.CHARMENU.CREATE 121485 . 124089) (\TEDIT.CHARMENU.START 124091 . 125381) (\TEDIT.CHARMENU.SPEC 
-125383 . 130066) (\TEDIT.CHARMENU.PARSE 130068 . 133236) (\TEDIT.CHARMENU.FILLIN 133238 . 137868) (
-\TEDIT.SHOW.CHARLOOKS 137870 . 141415) (\TEDIT.APPLY.CHARLOOKS 141417 . 142578) (
-\TEDIT.OFFSETTYPE.STATEFN 142580 . 144543) (\TEDIT.OTHER.STATECHANGEFN 144545 . 146190) (
-\TEDIT.OTHER.SELECTFN 146192 . 148315)) (148379 177437 (\TEDIT.PAGEMENU.CREATE 148389 . 156901) (
-\TEDIT.PAGEMENU.START 156903 . 157254) (\TEDIT.SHOW.PAGELOOKS 157256 . 159142) (\TEDIT.PAGEMENU.FILLIN
- 159144 . 160694) (\TEDIT.PAGEREGION.UNPARSE 160696 . 170095) (\TEDIT.APPLY.PAGELOOKS 170097 . 172024)
- (\TEDIT.CHANGE.PAGELOOKS 172026 . 176593) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176595 . 177435)) (
-177438 183241 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177448 . 180260) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 
-180262 . 181687) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181689 . 183239)))))
+  (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 73523 (TEDIT.MENUSTREAM 66251 . 67251) (TEDITMENUP 67253 . 68222) (\TEDIT.MENU.START
+ 68224 . 72571) (\TEDIT.MENU.OPEN? 72573 . 72947) (\TEDIT.MENU.BUTTONEVENTFN 72949 . 73521)) (73842 
+81893 (\TEDIT.MENU.CREATE 73852 . 75792) (\TEDIT.MENU.PARSE 75794 . 79483) (\TEDIT.MENU.NEUTRALIZE 
+79485 . 81556) (\TEDITMENU.RECORD.UNFORMATTED 81558 . 81891)) (81959 101740 (
+\TEDIT.EXPANDEDMENU.CREATE 81969 . 87436) (\TEDIT.EXPANDEDMENU.START 87438 . 89062) (
+\TEDIT.EXPANDEDMENU.FN 89064 . 92319) (\TEDIT.EXPANDEDMENU.ACTIONFN 92321 . 101738)) (101802 121227 (
+\TEDIT.PARAMENU.CREATE 101812 . 110543) (\TEDIT.PARAMENU.START 110545 . 111799) (
+\TEDIT.APPLY.PARALOOKS 111801 . 112853) (\TEDIT.SHOW.PARALOOKS 112855 . 115572) (
+\TEDIT.PARAMENU.FILLIN 115574 . 120323) (\TEDIT.PARAMENU.RESHAPEFN 120325 . 121225)) (121421 148263 (
+\TEDIT.CHARMENU.CREATE 121431 . 124035) (\TEDIT.CHARMENU.START 124037 . 125327) (\TEDIT.CHARMENU.SPEC 
+125329 . 130012) (\TEDIT.CHARMENU.PARSE 130014 . 133182) (\TEDIT.CHARMENU.FILLIN 133184 . 137814) (
+\TEDIT.SHOW.CHARLOOKS 137816 . 141361) (\TEDIT.APPLY.CHARLOOKS 141363 . 142524) (
+\TEDIT.OFFSETTYPE.STATEFN 142526 . 144489) (\TEDIT.OTHER.STATECHANGEFN 144491 . 146136) (
+\TEDIT.OTHER.SELECTFN 146138 . 148261)) (148325 177383 (\TEDIT.PAGEMENU.CREATE 148335 . 156847) (
+\TEDIT.PAGEMENU.START 156849 . 157200) (\TEDIT.SHOW.PAGELOOKS 157202 . 159088) (\TEDIT.PAGEMENU.FILLIN
+ 159090 . 160640) (\TEDIT.PAGEREGION.UNPARSE 160642 . 170041) (\TEDIT.APPLY.PAGELOOKS 170043 . 171970)
+ (\TEDIT.CHANGE.PAGELOOKS 171972 . 176539) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176541 . 177381)) (
+177384 183187 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177394 . 180206) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 
+180208 . 181633) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181635 . 183185)))))
 STOP
diff --git a/library/tedit/TEDIT-MENU.LCOM b/library/tedit/TEDIT-MENU.LCOM
index 7be47f74..8c35a52d 100644
Binary files a/library/tedit/TEDIT-MENU.LCOM and b/library/tedit/TEDIT-MENU.LCOM differ
diff --git a/library/tedit/TEDIT-PAGE b/library/tedit/TEDIT-PAGE
index af52c28e..7efa83c9 100644
--- a/library/tedit/TEDIT-PAGE
+++ b/library/tedit/TEDIT-PAGE
@@ -1,14 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "27-Sep-2025 16:25:26" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>TEDIT>TEDIT-PAGE.;234 133685 
+(FILECREATED "25-Dec-2025 15:07:57" {WMEDLEY}<library>tedit>TEDIT-PAGE.;239 130445 
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS TEDIT.TO.IMAGEFILE)
 
-      :PREVIOUS-DATE "19-Sep-2025 22:09:03" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>TEDIT>TEDIT-PAGE.;232)
+      :PREVIOUS-DATE "24-Dec-2025 11:16:05" {WMEDLEY}<library>tedit>TEDIT-PAGE.;238)
 
 
 (PRETTYCOMPRINT TEDIT-PAGECOMS)
@@ -52,7 +50,7 @@
                                                          72 72 NIL 1)
                                                   (TEDIT.SINGLE.PAGEFORMAT T 540 756 NIL 'RIGHT 72 72
                                                          72 72 NIL 1]
-        (FNS TEDIT.FORMAT.HARDCOPY TEDIT.TO.IMAGEFILE)
+        (FNS TEDIT.TO.IMAGEFILE)
         (COMS 
               (* ;; "Perform page layout, based on a regular expression of typed regions.")
 
@@ -633,45 +631,11 @@
               (TEDIT.SINGLE.PAGEFORMAT T 540 756 NIL 'RIGHT 72 72 72 72 NIL 1)))
 (DEFINEQ
 
-(TEDIT.FORMAT.HARDCOPY
-  [LAMBDA (TEXTSTREAM IMAGESTREAM DONTSEND BREAKPAGETITLE SERVER PRINTOPTIONS IMAGETYPE FIRSTPG# 
-                 STARTPG ENDPG QUIET)                        (* ; "Edited 19-Sep-2025 22:04 by rmk")
-                                                             (* ; "Edited 18-Sep-2025 10:11 by rmk")
-                                                             (* ; "Edited 12-Sep-2025 23:54 by rmk")
-                                                             (* ; "Edited  5-Jun-2025 08:24 by rmk")
-                                                             (* ; "Edited 22-Apr-2025 08:12 by rmk")
-                                                             (* ; "Edited 30-Aug-2024 15:45 by rmk")
-                                                             (* ; "Edited  5-Apr-2024 08:01 by rmk")
-                                                             (* ; "Edited 19-Jan-2024 23:39 by rmk")
-                                                             (* ; "Edited 15-Nov-2023 23:56 by rmk")
-                                                             (* ; "Edited  4-Jul-2023 11:16 by rmk")
-                                                             (* ; "Edited  2-Oct-2022 00:00 by rmk")
-                                                             (* ; 
-                                                        "Edited 25-May-93 13:06 by sybalsky:mv:envos")
-
-    (* ;; "Format a document for hardcopy.  Returns the number of pages printed (not the final page number!).  Returns NIL if the before-print-fn said not to print.")
-
-    (* ;; "TEXTSTREAM is either already a textstream or somehow denotes a tedit-formatted file, otherwise an error. We don't here try to decide that a non-formatted file is a plain text file, as opposed binary or anything else.")
-
-    (RESETLST
-        (SETQ TEXTSTREAM (if (TEXTSTREAM TEXTSTREAM T)
-                           elseif (TEDIT.FORMATTEDFILEP TEXTSTREAM)
-                             then [RESETSAVE (SETQ TEXTSTREAM (OPENTEXTSTREAM TEXTSTREAM))
-                                         `(PROGN (CLOSEF? OLDVALUE]
-                                  TEXTSTREAM
-                           else (ERROR TEXTSTREAM "is not a Tedit stream")))
-        (CL:UNLESS BREAKPAGETITLE
-            (SETQ BREAKPAGETITLE (if (LISTGET PRINTOPTIONS 'DOCUMENT.NAME)
-                                   elseif (GETTEXTPROP TEXTSTREAM 'FILENAME)
-                                   elseif [AND (GETTEXTPROP TEXTSTREAM 'FILESTREAM)
-                                               (FULLNAME (GETTEXTPROP TEXTSTREAM 'FILESTREAM]
-                                   else "TEdit Hardcopy Output")))
-        [TEDIT.TO.IMAGEFILE TEXTSTREAM IMAGESTREAM (OR IMAGETYPE DEFAULTPRINTERTYPE)
-               `(,@PRINTOPTIONS FIRSTPG# ,FIRSTPG# STARTPG ,STARTPG ENDPG ,ENDPG QUIET ,QUIET 
-                       BREAKPAGEFILENAME ,BREAKPAGETITLE])])
-
 (TEDIT.TO.IMAGEFILE
-  [LAMBDA (TSTREAM IMAGEFILE IMAGETYPE OPTIONS)              (* ; "Edited 27-Sep-2025 14:05 by rmk")
+  [LAMBDA (TSTREAM IMAGEFILE IMAGETYPE OPTIONS)              (* ; "Edited 25-Dec-2025 15:07 by rmk")
+                                                             (* ; "Edited 20-Dec-2025 23:03 by rmk")
+                                                             (* ; "Edited 14-Dec-2025 17:38 by rmk")
+                                                             (* ; "Edited 27-Sep-2025 14:05 by rmk")
                                                              (* ; "Edited 19-Sep-2025 22:08 by rmk")
 
     (* ;; "Format a document for hardcopy.  Returns the number of pages printed (not the final page number!).  Returns NIL if the before-print-fn said not to print.")
@@ -685,6 +649,8 @@
                                       `(PROGN (CLOSEF? OLDVALUE]
                                TSTREAM
                         else (ERROR TSTREAM "is not a Tedit stream")))
+        (CL:WHEN (GETTEXTPROP TSTREAM 'MENUFLG)
+            (SETQ TSTREAM (TEXTSTREAM (\TEDIT.MAINW TSTREAM))))
         (CL:UNLESS IMAGEFILE
             (CL:WHEN (GETTEXTPROP TSTREAM 'FILENAME)
                 [SETQ IMAGEFILE (PACKFILENAME 'VERSION NIL 'EXTENSION (CAR (
@@ -692,6 +658,7 @@
                                                                             IMAGETYPE))
                                        'BODY
                                        (GETTEXTPROP TSTREAM 'FILENAME]))
+        (PUTTEXTPROP TSTREAM 'LASTIMAGEFILE NIL)
         (PROG* ((FIRSTPG# (LISTGET OPTIONS 'FIRSTPG#))
                 (TEXTOBJ (FTEXTOBJ TSTREAM))
                 [FORMATTINGSTATE (create PAGEFORMATTINGSTATE
@@ -707,7 +674,7 @@
                                                               (CDR FIRSTPG#))
                                         PAGE#TEXT _ (AND (LISTP FIRSTPG#)
                                                          (CAR FIRSTPG#]
-                IMAGESTREAM PAGEREGION SCRATCHFILE NPAGES)
+                IMAGESTREAM PAGEREGION SCRATCHFILE)
                (CL:WHEN (EQ 'DON'T (APPLY* (OR (GETTEXTPROP TEXTOBJ 'BEFOREHARDCOPYFN)
                                                (FUNCTION NILL))
                                           TSTREAM))          (* ; 
@@ -719,11 +686,15 @@
                (SETPFS FORMATTINGSTATE PRESSREGION TEDIT.DEFAULTPAGEREGION)
                                                              (* ; 
                                                              "Print in the usual region on the page")
-               (SETQ IMAGESTREAM (OR (IMAGESTREAMP IMAGEFILE)
+
+         (* ;; "TEDIT puts its own headings on the page")
+
+               [SETQ IMAGESTREAM (OR (IMAGESTREAMP IMAGEFILE)
                                      (OPENIMAGESTREAM [OR IMAGEFILE (SETQ IMAGEFILE
                                                                      (OPENSTREAM "{NODIRCORE}"
                                                                             'OUTPUT]
-                                            IMAGETYPE OPTIONS)))
+                                            IMAGETYPE
+                                            `(HEADING NIL ,@OPTIONS]
 
          (* ;; "The right margin must be big enough to prevent line wrap on landscaped 14 inch paper, with Postscript's scaling of .01-point increments. (~ 101,000).  This will cause a performance hit.  Sigh.  JDS 9/5/89")
 
@@ -751,19 +722,12 @@
                (APPLY* (OR (GETTEXTPROP TEXTOBJ 'AFTERHARDCOPYFN)
                            (FUNCTION NILL))
                       TSTREAM)
-               (SETQ NPAGES (GETPFS FORMATTINGSTATE PAGECOUNT))
-               (CL:UNLESS (LISTGET OPTIONS 'QUIET)
-                   (TEDIT.PROMPTPRINT TSTREAM [CONCAT NPAGES " page" (CL:IF (EQ 1 NPAGES)
-                                                                         ""
-                                                                         "s")
-                                                     (if (PRINTERNAME IMAGESTREAM)
-                                                         then (CONCAT " printed on " (PRINTERNAME
-                                                                                      IMAGESTREAM))
-                                                       elseif (STREAMP (FULLNAME IMAGESTREAM))
-                                                         then " printed"
-                                                       else (CONCAT " on " (PSEUDOFILENAME
-                                                                            (FULLNAME IMAGESTREAM]
-                          T))
+
+         (* ;; "So caller can formulate a prompt message TEDIT.IMAGEFILE.MESSAGE")
+
+               (PUTTEXTPROP TSTREAM 'LASTIMAGEFILE (LIST (GETPFS FORMATTINGSTATE PAGECOUNT)
+                                                         (FULLNAME IMAGESTREAM)
+                                                         (PRINTERNAME IMAGESTREAM)))
                (RETURN (CLOSEF IMAGESTREAM))))])
 )
 
@@ -2093,19 +2057,18 @@
                         (RETURN (DREMOVE NIL $$VAL])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (12237 15849 (\TEDIT.PARSE.PAGEFRAMES 12247 . 14026) (\TEDIT.PUT.PAGEFRAMES 14028 . 
-14852) (\TEDIT.UNPARSE.PAGEFRAMES 14854 . 15847)) (15912 37929 (TEDIT.SINGLE.PAGEFORMAT 15922 . 26915)
- (TEDIT.COMPOUND.PAGEFORMAT 26917 . 27896) (TEDIT.PAGEFORMAT 27898 . 35187) (TEDIT.GET.PAGEFORMAT 
-35189 . 37927)) (38216 47749 (TEDIT.FORMAT.HARDCOPY 38226 . 41261) (TEDIT.TO.IMAGEFILE 41263 . 47747))
- (47836 101088 (\TEDIT.FORMATBOX 47846 . 61270) (\TEDIT.FORMATHEADING 61272 . 65918) (
-\TEDIT.FORMATPAGE 65920 . 75109) (\TEDIT.FORMATTEXTBOX 75111 . 91624) (\TEDIT.FORMATFOLIO 91626 . 
-96943) (\TEDIT.FORMAT.FOUNDBOX? 96945 . 98984) (\TEDIT.SKIP.SPECIALCOND 98986 . 101086)) (101168 
-106223 (\TEDIT.HARDCOPY.PAGEHEADINGS 101178 . 106221)) (106332 114383 (\TEDIT.HARDCOPY-COLUMN-END 
-106342 . 114381)) (114428 119369 (SCALEPAGEUNITS 114438 . 115579) (SCALEPAGEXUNITS 115581 . 116351) (
-SCALEPAGEYUNITS 116353 . 117124) (\TEDIT.PAPERHEIGHT 117126 . 118061) (\TEDIT.PAPERWIDTH 118063 . 
-119367)) (119785 123353 (ROMANNUMERALS 119795 . 123351)) (123392 130658 (TEDIT.PAGENO.CREATE 123402 . 
-123778) (\TEDIT.PAGENO.OBJINIT 123780 . 125063) (\TEDIT.PAGENO.BUTTONEVENTINFN 125065 . 126131) (
-\TEDIT.PAGENO.IMAGEBOXFN 126133 . 128283) (\TEDIT.PAGENO.DISPLAYFN 128285 . 129935) (
-\TEDIT.PAGENO.GETFN 129937 . 130329) (\TEDIT.PAGENO.PUTFN 130331 . 130656)) (130723 133662 (
-\TEDIT.FORMAT.FOOTNOTE 130733 . 133660)))))
+  (FILEMAP (NIL (12133 15745 (\TEDIT.PARSE.PAGEFRAMES 12143 . 13922) (\TEDIT.PUT.PAGEFRAMES 13924 . 
+14748) (\TEDIT.UNPARSE.PAGEFRAMES 14750 . 15743)) (15808 37825 (TEDIT.SINGLE.PAGEFORMAT 15818 . 26811)
+ (TEDIT.COMPOUND.PAGEFORMAT 26813 . 27792) (TEDIT.PAGEFORMAT 27794 . 35083) (TEDIT.GET.PAGEFORMAT 
+35085 . 37823)) (38112 44509 (TEDIT.TO.IMAGEFILE 38122 . 44507)) (44596 97848 (\TEDIT.FORMATBOX 44606
+ . 58030) (\TEDIT.FORMATHEADING 58032 . 62678) (\TEDIT.FORMATPAGE 62680 . 71869) (\TEDIT.FORMATTEXTBOX
+ 71871 . 88384) (\TEDIT.FORMATFOLIO 88386 . 93703) (\TEDIT.FORMAT.FOUNDBOX? 93705 . 95744) (
+\TEDIT.SKIP.SPECIALCOND 95746 . 97846)) (97928 102983 (\TEDIT.HARDCOPY.PAGEHEADINGS 97938 . 102981)) (
+103092 111143 (\TEDIT.HARDCOPY-COLUMN-END 103102 . 111141)) (111188 116129 (SCALEPAGEUNITS 111198 . 
+112339) (SCALEPAGEXUNITS 112341 . 113111) (SCALEPAGEYUNITS 113113 . 113884) (\TEDIT.PAPERHEIGHT 113886
+ . 114821) (\TEDIT.PAPERWIDTH 114823 . 116127)) (116545 120113 (ROMANNUMERALS 116555 . 120111)) (
+120152 127418 (TEDIT.PAGENO.CREATE 120162 . 120538) (\TEDIT.PAGENO.OBJINIT 120540 . 121823) (
+\TEDIT.PAGENO.BUTTONEVENTINFN 121825 . 122891) (\TEDIT.PAGENO.IMAGEBOXFN 122893 . 125043) (
+\TEDIT.PAGENO.DISPLAYFN 125045 . 126695) (\TEDIT.PAGENO.GETFN 126697 . 127089) (\TEDIT.PAGENO.PUTFN 
+127091 . 127416)) (127483 130422 (\TEDIT.FORMAT.FOOTNOTE 127493 . 130420)))))
 STOP
diff --git a/library/tedit/TEDIT-PAGE.LCOM b/library/tedit/TEDIT-PAGE.LCOM
index 48af16b5..dcf4d313 100644
Binary files a/library/tedit/TEDIT-PAGE.LCOM and b/library/tedit/TEDIT-PAGE.LCOM differ
diff --git a/library/tedit/TEDIT-SCREEN b/library/tedit/TEDIT-SCREEN
index fba40237..cdc04516 100644
--- a/library/tedit/TEDIT-SCREEN
+++ b/library/tedit/TEDIT-SCREEN
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "21-Nov-2025 16:36:15" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;913 186644 
+(FILECREATED " 7-Dec-2025 16:28:01" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;914 186683 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.FORMATLINE)
+      :CHANGES-TO (FNS \TEDIT.FORMATLINE.SETUP.PARA)
 
-      :PREVIOUS-DATE "26-Oct-2025 17:10:29" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;912)
+      :PREVIOUS-DATE "21-Nov-2025 16:36:15" {WMEDLEY}<library>TEDIT>TEDIT-SCREEN.;913)
 
 
 (PRETTYCOMPRINT TEDIT-SCREENCOMS)
@@ -1224,7 +1224,8 @@
           (RETURN LINE])
 
 (\TEDIT.FORMATLINE.SETUP.PARA
-  [LAMBDA (TEXTOBJ PC LINE IMAGESTREAM LINETYPE)             (* ; "Edited 19-Feb-2025 13:37 by rmk")
+  [LAMBDA (TEXTOBJ PC LINE IMAGESTREAM LINETYPE)             (* ; "Edited  7-Dec-2025 16:26 by rmk")
+                                                             (* ; "Edited 19-Feb-2025 13:37 by rmk")
                                                              (* ; "Edited  8-Feb-2025 23:36 by rmk")
                                                              (* ; "Edited  7-Feb-2025 08:09 by rmk")
                                                              (* ; "Edited 22-Nov-2024 11:14 by rmk")
@@ -1259,9 +1260,8 @@
                               (* ;; "Coerce the image stream and PARALOOKS for HARDCOPYDISPLAY.")
 
                   [SETQ IMAGESTREAM (OR (FGETTOBJ TEXTOBJ DISPLAYHCPYDS)
-                                        (FSETTOBJ TEXTOBJ DISPLAYHCPYDS (OPENIMAGESTREAM 
-                                                                               '{NODIRCORE}
-                                                                               'POSTSCRIPT]
+                                        (FSETTOBJ TEXTOBJ DISPLAYHCPYDS (OPENIMAGESTREAM NIL 
+                                                                               DEFAULTPRINTERTYPE]
                   (SETQ SCALE (DSPSCALE NIL IMAGESTREAM))
                   [SETQ PLOOKS (create PARALOOKS using PLOOKS FMTHARDCOPYSCALE _ SCALE RIGHTMAR _
                                                        (SCALEUP SCALE (FGETPLOOKS PLOOKS RIGHTMAR))
@@ -2863,21 +2863,21 @@
                  (\TEDIT.LINE.TALLP LINE PHEIGHT))))])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (26214 28430 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 26224 . 28428)) (35884 119488 (
-\TEDIT.FORMATLINE 35894 . 71000) (\TEDIT.FORMATLINE.SETUP.PARA 71002 . 76168) (
-\TEDIT.FORMATLINE.HORIZONTAL 76170 . 80987) (\TEDIT.FORMATLINE.VERTICAL 80989 . 83440) (
-\TEDIT.FORMATLINE.JUSTIFY 83442 . 89463) (\TEDIT.FORMATLINE.TABS 89465 . 97493) (\TEDIT.SCALE.TABS 
-97495 . 98286) (\TEDIT.FORMATLINE.PURGE.SPACES 98288 . 99715) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN 
-99717 . 100794) (\TEDIT.FORMATLINE.EMPTY 100796 . 105616) (\TEDIT.FORMATLINE.UPDATELOOKS 105618 . 
-111799) (\TEDIT.FORMATLINE.LASTLEGAL 111801 . 115251) (\TEDIT.LINES.ABOVE 115253 . 118864) (
-\TEDIT.CHNO.TO.YTOP 118866 . 119486)) (119765 140345 (\TEDIT.DISPLAYLINE 119775 . 132285) (
-\TEDIT.DISPLAYLINE.TABS 132287 . 135091) (\TEDIT.LINECACHE 135093 . 135821) (\TEDIT.CREATE.LINECACHE 
-135823 . 136659) (\TEDIT.BLTCHAR 136661 . 139288) (\TEDIT.DIACRITIC.SHIFT 139290 . 140343)) (140960 
-186621 (\TEDIT.BACKFORMAT 140970 . 143524) (\TEDIT.PREVIOUS.LINEBREAK 143526 . 146329) (
-\TEDIT.UPDATE.LINES 146331 . 152637) (\TEDIT.PANE.CREATELINES 152639 . 154929) (
-\TEDIT.SUFFIXLINE.CREATE 154931 . 156546) (\TEDIT.LINES.BELOW 156548 . 161158) (\TEDIT.MEASURED.LINES 
-161160 . 163169) (\TEDIT.VALID.LASTCHNOS 163171 . 166947) (\TEDIT.VALID.NEXTCHNOS 166949 . 170423) (
-\TEDIT.LASTVALIDLINE 170425 . 175096) (\TEDIT.NEXTVALIDLINE 175098 . 178068) (
-\TEDIT.CLEARPANE.BELOW.LINE 178070 . 180176) (\TEDIT.INSERTLINE 180178 . 181564) (\TEDIT.LINE.BOTTOM 
-181566 . 184796) (\TEDIT.SHOW.AT.BOTTOMP 184798 . 185908) (\TEDIT.SHOW.AT.TOPP 185910 . 186619)))))
+  (FILEMAP (NIL (26225 28441 (\TEDIT.LINEDESCRIPTOR.DEFPRINT 26235 . 28439)) (35895 119527 (
+\TEDIT.FORMATLINE 35905 . 71011) (\TEDIT.FORMATLINE.SETUP.PARA 71013 . 76207) (
+\TEDIT.FORMATLINE.HORIZONTAL 76209 . 81026) (\TEDIT.FORMATLINE.VERTICAL 81028 . 83479) (
+\TEDIT.FORMATLINE.JUSTIFY 83481 . 89502) (\TEDIT.FORMATLINE.TABS 89504 . 97532) (\TEDIT.SCALE.TABS 
+97534 . 98325) (\TEDIT.FORMATLINE.PURGE.SPACES 98327 . 99754) (\TEDIT.FORMATLINE.FLUSH.SOFTHYPHEN 
+99756 . 100833) (\TEDIT.FORMATLINE.EMPTY 100835 . 105655) (\TEDIT.FORMATLINE.UPDATELOOKS 105657 . 
+111838) (\TEDIT.FORMATLINE.LASTLEGAL 111840 . 115290) (\TEDIT.LINES.ABOVE 115292 . 118903) (
+\TEDIT.CHNO.TO.YTOP 118905 . 119525)) (119804 140384 (\TEDIT.DISPLAYLINE 119814 . 132324) (
+\TEDIT.DISPLAYLINE.TABS 132326 . 135130) (\TEDIT.LINECACHE 135132 . 135860) (\TEDIT.CREATE.LINECACHE 
+135862 . 136698) (\TEDIT.BLTCHAR 136700 . 139327) (\TEDIT.DIACRITIC.SHIFT 139329 . 140382)) (140999 
+186660 (\TEDIT.BACKFORMAT 141009 . 143563) (\TEDIT.PREVIOUS.LINEBREAK 143565 . 146368) (
+\TEDIT.UPDATE.LINES 146370 . 152676) (\TEDIT.PANE.CREATELINES 152678 . 154968) (
+\TEDIT.SUFFIXLINE.CREATE 154970 . 156585) (\TEDIT.LINES.BELOW 156587 . 161197) (\TEDIT.MEASURED.LINES 
+161199 . 163208) (\TEDIT.VALID.LASTCHNOS 163210 . 166986) (\TEDIT.VALID.NEXTCHNOS 166988 . 170462) (
+\TEDIT.LASTVALIDLINE 170464 . 175135) (\TEDIT.NEXTVALIDLINE 175137 . 178107) (
+\TEDIT.CLEARPANE.BELOW.LINE 178109 . 180215) (\TEDIT.INSERTLINE 180217 . 181603) (\TEDIT.LINE.BOTTOM 
+181605 . 184835) (\TEDIT.SHOW.AT.BOTTOMP 184837 . 185947) (\TEDIT.SHOW.AT.TOPP 185949 . 186658)))))
 STOP
diff --git a/library/tedit/TEDIT-SCREEN.LCOM b/library/tedit/TEDIT-SCREEN.LCOM
index ba69abb3..fc170b81 100644
Binary files a/library/tedit/TEDIT-SCREEN.LCOM and b/library/tedit/TEDIT-SCREEN.LCOM differ
diff --git a/library/tedit/TEDIT-WINDOW b/library/tedit/TEDIT-WINDOW
index 00ea577e..58ee6114 100644
--- a/library/tedit/TEDIT-WINDOW
+++ b/library/tedit/TEDIT-WINDOW
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "15-Nov-2025 01:27:38" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;881 231034 
+(FILECREATED "24-Dec-2025 11:22:33" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;883 231422 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.WINDOW.CREATE)
+      :CHANGES-TO (FNS \TEDIT.MINIMAL.WINDOW.SETUP TEDIT.PROMPTCLEAR TEDIT.PROMPTPRINT)
 
-      :PREVIOUS-DATE "25-Oct-2025 10:33:08" {WMEDLEY}<library>TEDIT>TEDIT-WINDOW.;878)
+      :PREVIOUS-DATE "15-Nov-2025 01:27:38" {WMEDLEY}<library>tedit>TEDIT-WINDOW.;881)
 
 
 (PRETTYCOMPRINT TEDIT-WINDOWCOMS)
@@ -608,7 +608,9 @@
           (\TEDIT.SET.WINDOW.EXTENT TEXTOBJ PANE])
 
 (\TEDIT.MINIMAL.WINDOW.SETUP
-  [LAMBDA (PANEWINDOW TSTREAM PROPS)                         (* ; "Edited 19-Oct-2025 14:55 by rmk")
+  [LAMBDA (PANEWINDOW TSTREAM PROPS)                         (* ; "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")
                                                              (* ; "Edited 30-Nov-2024 13:32 by rmk")
                                                              (* ; "Edited  4-Nov-2024 19:46 by rmk")
@@ -687,8 +689,7 @@
          (WINDOWPROP PANEWINDOW 'CURSOROUTFN (FUNCTION \TEDIT.CURSOROUTFN))
          (WINDOWPROP PANEWINDOW 'BUTTONEVENTFN (FUNCTION \TEDIT.BUTTONEVENTFN))
          (WINDOWPROP PANEWINDOW 'RIGHTBUTTONFN (FUNCTION \TEDIT.BUTTONEVENTFN))
-         (WINDOWPROP PANEWINDOW 'HARDCOPYFN (FUNCTION TEDIT.HARDCOPYFN))
-         (WINDOWPROP PANEWINDOW 'HARDCOPYFILEFN (FUNCTION \TEDIT.HARDCOPYFILEFN))
+         (WINDOWPROP PANEWINDOW 'IMAGETYPE 'TEDIT)           (* ; "For hardcopy")
          (WINDOWPROP PANEWINDOW 'COPYINSERTFN (FUNCTION \TEDIT.COPYINSERTFN))
          (WINDOWPROP PANEWINDOW 'REPAINTFN (FUNCTION \TEDIT.REPAINTFN))
          (WINDOWPROP PANEWINDOW 'AFTERMOVEFN (FUNCTION \TEDIT.AFTERMOVEFN))
@@ -2059,7 +2060,8 @@
            PROMPTWINDOW])
 
 (TEDIT.PROMPTPRINT
-  [LAMBDA (TEXTSTREAM MSG CLEAR? FLASH?)                     (* ; "Edited 29-Dec-2024 14:45 by rmk")
+  [LAMBDA (TSTREAM MSG CLEAR? FLASH?)                        (* ; "Edited 14-Dec-2025 17:41 by rmk")
+                                                             (* ; "Edited 29-Dec-2024 14:45 by rmk")
                                                              (* ; "Edited 26-Nov-2023 10:10 by rmk")
                                                              (* ; "Edited 10-Sep-2023 00:27 by rmk")
                                                              (* ; "Edited 30-Jul-2023 08:52 by rmk")
@@ -2070,7 +2072,7 @@
 
     (* ;; "Print a message in the editor's prompt window (if none, use the global promptwindow).  Optionally clear the window first.")
 
-    (LET ((TEXTOBJ (TEXTOBJ TEXTSTREAM T))
+    (LET ((TEXTOBJ (TEXTOBJ TSTREAM T))
           PWINDOW MAINWINDOW)
          (if TEXTOBJ
              then (CL:WHEN (SETQ MAINWINDOW (\TEDIT.MAINW TEXTOBJ))
@@ -2078,7 +2080,7 @@
                        (CAR (NLSETQ (SELECTQ PWINDOW
                                         (DON'T (CL:WHEN (GETTEXTPROP TEXTOBJ 'PWINDOW.ON.DEMAND)
                                                       (GETPROMPTWINDOW MAINWINDOW)))
-                                        (NIL (CL:WHEN TEXTSTREAM
+                                        (NIL (CL:WHEN TSTREAM
                                                  [GETPROMPTWINDOW MAINWINDOW NIL NIL
                                                         (NOT (GETTEXTPROP TEXTOBJ 'PWINDOW.ON.DEMAND]))
                                         PWINDOW])            (* ; 
@@ -2097,15 +2099,15 @@
            else (PROMPTPRINT MSG])
 
 (TEDIT.PROMPTCLEAR
-  [LAMBDA (TSTREAM FONT)                                     (* ; "Edited 18-Sep-2025 23:08 by rmk")
+  [LAMBDA (TSTREAM FONT)                                     (* ; "Edited 14-Dec-2025 17:34 by rmk")
+                                                             (* ; "Edited 18-Sep-2025 23:08 by rmk")
                                                              (* ; "Edited 14-Mar-98 12:52 by rmk:")
                                                              (* ; "Edited 14-Oct-87 15:35 by bvm:")
 
     (* ;; "Clears the promptwindow attached to TSTREAM and shrinks it back to a single line in font FONT (or TEDIT.PROMPT.FONT) if it has grown.  [TSTREAM could actually be a stream on the promptwindow itself.--is that true, does this code need to deal with that?]")
 
     (LET* [(MW (\TEDIT.MAINW TSTREAM))
-           (PW (AND MW (WINDOWPROP (\TEDIT.MAINW TSTREAM)
-                              'TEDIT.PROMPTWINDOW]
+           (PW (AND MW (GETPROMPTWINDOW MW NIL NIL (NOT (GETTEXTPROP TSTREAM 'PWINDOW.ON.DEMAND]
           (CL:WHEN PW
               (WINDOWPROP PW 'TEDIT.NLINES 1)
               (CL:WHEN [AND (SETQ MW (WINDOWPROP PW 'MAINWINDOW))
@@ -3662,36 +3664,36 @@
 (RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ 
                                          TEDIT.ICON.TITLE.REGION))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (17100 17996 (TEDIT.DEFER.UPDATES 17110 . 17994)) (17997 45089 (\TEDIT.WINDOW.CREATE 
-18007 . 24870) (\TEDIT.WINDOW.GETREGION 24872 . 29576) (\TEDIT.WINDOW.SETUP 29578 . 33908) (
-\TEDIT.MINIMAL.WINDOW.SETUP 33910 . 41721) (\TEDIT.CLEARPANE 41723 . 42440) (\TEDIT.FILL.PANES 42442
- . 45087)) (45090 68791 (\TEDIT.CURSORMOVEDFN 45100 . 50710) (\TEDIT.CURSOROUTFN 50712 . 51400) (
-\TEDIT.ACTIVE.WINDOWP 51402 . 52472) (\TEDIT.EXPANDFN 52474 . 53037) (\TEDIT.MAINW 53039 . 54319) (
-\TEDIT.MAINSTREAM 54321 . 54655) (\TEDIT.PRIMARYPANE 54657 . 55427) (\TEDIT.PANELIST 55429 . 55925) (
-\TEDIT.NEWREGIONFN 55927 . 58443) (\TEDIT.SET.WINDOW.EXTENT 58445 . 63427) (\TEDIT.SHRINK.ICONCREATE 
-63429 . 66162) (\TEDIT.SHRINKFN 66164 . 66573) (\TEDIT.PANEREGION 66575 . 68789)) (68823 101869 (
-\TEDIT.BUTTONEVENTFN 68833 . 81806) (\TEDIT.BUTTONEVENTFN.DOOPERATION 81808 . 89071) (
-\TEDIT.BUTTONEVENTFN.GETOPERATION 89073 . 90915) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 90917 . 94587) (
-\TEDIT.BUTTONEVENTFN.INACTIVE 94589 . 97019) (\TEDIT.BUTTONEVENTFN.INTITLE 97021 . 98856) (
-\TEDIT.COPYINSERTFN 98858 . 99990) (\TEDIT.FOREIGN.COPY 99992 . 101867)) (101870 119433 (
-\TEDIT.PANE.SPLIT 101880 . 105828) (\TEDIT.SPLITW 105830 . 113889) (\TEDIT.UNSPLITW 113891 . 118090) (
-\TEDIT.LINKPANES 118092 . 118855) (\TEDIT.UNLINKPANE 118857 . 119431)) (120867 121758 (TEDITWINDOWP 
-120877 . 121756)) (121795 124898 (TEDIT.GETINPUT 121805 . 124248) (\TEDIT.MAKEFILENAME 124250 . 124896
-)) (124947 132597 (TEDIT.PROMPTWINDOW 124957 . 125271) (TEDIT.PROMPTPRINT 125273 . 127900) (
-TEDIT.PROMPTCLEAR 127902 . 129644) (TEDIT.PROMPTFLASH 129646 . 130904) (\TEDIT.PROMPT.PAGEFULLFN 
-130906 . 132595)) (132835 143413 (\TEDIT.FILENAME 132845 . 133617) (\TEDIT.DEFAULT.TITLE 133619 . 
-135998) (\TEDIT.WINDOW.TITLE 136000 . 138169) (\TEDIT.LIKELY.FILENAME 138171 . 140895) (
-\TEDIT.UPDATE.TITLE 140897 . 143411)) (143456 155940 (TEDIT.DEACTIVATE.WINDOW 143466 . 149039) (
-\TEDIT.RESHAPEFN 149041 . 151126) (\TEDIT.REPAINTFN 151128 . 151352) (\TEDIT.CLOSESPLITS 151354 . 
-153799) (\TEDIT.CLOSEPANE 153801 . 155938)) (155941 198740 (\TEDIT.SCROLLFN 155951 . 158182) (
-\TEDIT.SCROLLCH.TOP 158184 . 160295) (\TEDIT.SCROLLCH.BOTTOM 160297 . 164627) (\TEDIT.SCROLLUP 164629
- . 170355) (\TEDIT.TOPLINE.YTOP 170357 . 172026) (\TEDIT.SCROLLDOWN 172028 . 179067) (
-\TEDIT.SCROLL.CARET 179069 . 181907) (\TEDIT.VISIBLECARETP 181909 . 184203) (\TEDIT.VISIBLECHARP 
-184205 . 185296) (\TEDIT.BITMAPLINES 185298 . 189218) (\TEDIT.SETPANE.TOPLINE 189220 . 189832) (
-\TEDIT.SHIFTLINES 189834 . 198738)) (198741 209610 (\TEDIT.ONSCREEN? 198751 . 203302) (
-\TEDIT.ONSCREEN.REGION 203304 . 206955) (\TEDIT.AFTERMOVEFN 206957 . 207854) (OFFSCREENP 207856 . 
-209608)) (209652 212466 (\TEDIT.PROCIDLEFN 209662 . 211322) (\TEDIT.PROCENTRYFN 211324 . 211769) (
-\TEDIT.PROCEXITFN 211771 . 212464)) (212545 225770 (\TEDIT.DOWNCARET 212555 . 213348) (
-\TEDIT.FLASHCARET 213350 . 215461) (\TEDIT.UPCARET 215463 . 216567) (TEDIT.NORMALIZECARET 216569 . 
-219787) (\TEDIT.SETCARET 219789 . 225140) (\TEDIT.CARET 225142 . 225768)))))
+  (FILEMAP (NIL (17143 18039 (TEDIT.DEFER.UPDATES 17153 . 18037)) (18040 45281 (\TEDIT.WINDOW.CREATE 
+18050 . 24913) (\TEDIT.WINDOW.GETREGION 24915 . 29619) (\TEDIT.WINDOW.SETUP 29621 . 33951) (
+\TEDIT.MINIMAL.WINDOW.SETUP 33953 . 41913) (\TEDIT.CLEARPANE 41915 . 42632) (\TEDIT.FILL.PANES 42634
+ . 45279)) (45282 68983 (\TEDIT.CURSORMOVEDFN 45292 . 50902) (\TEDIT.CURSOROUTFN 50904 . 51592) (
+\TEDIT.ACTIVE.WINDOWP 51594 . 52664) (\TEDIT.EXPANDFN 52666 . 53229) (\TEDIT.MAINW 53231 . 54511) (
+\TEDIT.MAINSTREAM 54513 . 54847) (\TEDIT.PRIMARYPANE 54849 . 55619) (\TEDIT.PANELIST 55621 . 56117) (
+\TEDIT.NEWREGIONFN 56119 . 58635) (\TEDIT.SET.WINDOW.EXTENT 58637 . 63619) (\TEDIT.SHRINK.ICONCREATE 
+63621 . 66354) (\TEDIT.SHRINKFN 66356 . 66765) (\TEDIT.PANEREGION 66767 . 68981)) (69015 102061 (
+\TEDIT.BUTTONEVENTFN 69025 . 81998) (\TEDIT.BUTTONEVENTFN.DOOPERATION 82000 . 89263) (
+\TEDIT.BUTTONEVENTFN.GETOPERATION 89265 . 91107) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 91109 . 94779) (
+\TEDIT.BUTTONEVENTFN.INACTIVE 94781 . 97211) (\TEDIT.BUTTONEVENTFN.INTITLE 97213 . 99048) (
+\TEDIT.COPYINSERTFN 99050 . 100182) (\TEDIT.FOREIGN.COPY 100184 . 102059)) (102062 119625 (
+\TEDIT.PANE.SPLIT 102072 . 106020) (\TEDIT.SPLITW 106022 . 114081) (\TEDIT.UNSPLITW 114083 . 118282) (
+\TEDIT.LINKPANES 118284 . 119047) (\TEDIT.UNLINKPANE 119049 . 119623)) (121059 121950 (TEDITWINDOWP 
+121069 . 121948)) (121987 125090 (TEDIT.GETINPUT 121997 . 124440) (\TEDIT.MAKEFILENAME 124442 . 125088
+)) (125139 132985 (TEDIT.PROMPTWINDOW 125149 . 125463) (TEDIT.PROMPTPRINT 125465 . 128195) (
+TEDIT.PROMPTCLEAR 128197 . 130032) (TEDIT.PROMPTFLASH 130034 . 131292) (\TEDIT.PROMPT.PAGEFULLFN 
+131294 . 132983)) (133223 143801 (\TEDIT.FILENAME 133233 . 134005) (\TEDIT.DEFAULT.TITLE 134007 . 
+136386) (\TEDIT.WINDOW.TITLE 136388 . 138557) (\TEDIT.LIKELY.FILENAME 138559 . 141283) (
+\TEDIT.UPDATE.TITLE 141285 . 143799)) (143844 156328 (TEDIT.DEACTIVATE.WINDOW 143854 . 149427) (
+\TEDIT.RESHAPEFN 149429 . 151514) (\TEDIT.REPAINTFN 151516 . 151740) (\TEDIT.CLOSESPLITS 151742 . 
+154187) (\TEDIT.CLOSEPANE 154189 . 156326)) (156329 199128 (\TEDIT.SCROLLFN 156339 . 158570) (
+\TEDIT.SCROLLCH.TOP 158572 . 160683) (\TEDIT.SCROLLCH.BOTTOM 160685 . 165015) (\TEDIT.SCROLLUP 165017
+ . 170743) (\TEDIT.TOPLINE.YTOP 170745 . 172414) (\TEDIT.SCROLLDOWN 172416 . 179455) (
+\TEDIT.SCROLL.CARET 179457 . 182295) (\TEDIT.VISIBLECARETP 182297 . 184591) (\TEDIT.VISIBLECHARP 
+184593 . 185684) (\TEDIT.BITMAPLINES 185686 . 189606) (\TEDIT.SETPANE.TOPLINE 189608 . 190220) (
+\TEDIT.SHIFTLINES 190222 . 199126)) (199129 209998 (\TEDIT.ONSCREEN? 199139 . 203690) (
+\TEDIT.ONSCREEN.REGION 203692 . 207343) (\TEDIT.AFTERMOVEFN 207345 . 208242) (OFFSCREENP 208244 . 
+209996)) (210040 212854 (\TEDIT.PROCIDLEFN 210050 . 211710) (\TEDIT.PROCENTRYFN 211712 . 212157) (
+\TEDIT.PROCEXITFN 212159 . 212852)) (212933 226158 (\TEDIT.DOWNCARET 212943 . 213736) (
+\TEDIT.FLASHCARET 213738 . 215849) (\TEDIT.UPCARET 215851 . 216955) (TEDIT.NORMALIZECARET 216957 . 
+220175) (\TEDIT.SETCARET 220177 . 225528) (\TEDIT.CARET 225530 . 226156)))))
 STOP
diff --git a/library/tedit/TEDIT-WINDOW.LCOM b/library/tedit/TEDIT-WINDOW.LCOM
index 4b6b6bdf..02c73d4d 100644
Binary files a/library/tedit/TEDIT-WINDOW.LCOM and b/library/tedit/TEDIT-WINDOW.LCOM differ
diff --git a/library/tedit/TEDIT.LCOM b/library/tedit/TEDIT.LCOM
index bcfdf700..cfdf23b6 100644
Binary files a/library/tedit/TEDIT.LCOM and b/library/tedit/TEDIT.LCOM differ
