From 15e3840f58d0937c41c69af14da1f2d439f88b4a Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Sat, 7 Feb 2026 21:30:41 -0800
Subject: [PATCH] TEDIT-FILE remove useless message

---
 library/tedit/TEDIT-FILE      |  60 ++++++++++++++++------------------
 library/tedit/TEDIT-FILE.LCOM | Bin 40531 -> 40382 bytes
 2 files changed, 29 insertions(+), 31 deletions(-)

diff --git a/library/tedit/TEDIT-FILE b/library/tedit/TEDIT-FILE
index b529ddc8..2f8bea22 100644
--- a/library/tedit/TEDIT-FILE
+++ b/library/tedit/TEDIT-FILE
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "23-Oct-2025 08:49:06" {WMEDLEY}<library>tedit>TEDIT-FILE.;656
 173140 
+
(FILECREATED " 7-Feb-2026 17:02:37" {WMEDLEY}<library>tedit>TEDIT-FILE.;657
 173103 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.GET.UNFORMATTED.FILE.UTF8)
+      :CHANGES-TO (FNS TEDITFROMLISPSOURCE)
 
-      :PREVIOUS-DATE "25-Sep-2025 21:32:46" {WMEDLEY}<library>tedit>TEDIT-FILE.;655)
+      :PREVIOUS-DATE "23-Oct-2025 08:49:06" {WMEDLEY}<library>tedit>TEDIT-FILE.;656)
 
 
 (PRETTYCOMPRINT TEDIT-FILECOMS)
@@ -2625,7 +2625,8 @@
 (DEFINEQ
 
 (TEDITFROMLISPSOURCE

-  [LAMBDA (SOURCEFILE TSTREAM PROPS USERTEMP START END)
      (* ; "Edited  7-Apr-2025 23:13 by rmk")


+  [LAMBDA (SOURCEFILE TSTREAM PROPS USERTEMP START END)
      (* ; "Edited  7-Feb-2026 17:02 by rmk")


+                                                             (* ; "Edited  7-Apr-2025 23:13 by rmk")


                                                              (* ; "Edited  1-Apr-2025 12:54 by rmk")


                                                              (* ; "Edited 26-Mar-2025 10:02 by rmk")


                                                              (* ; "Edited 18-Feb-2025 23:34 by rmk")


@@ -2658,9 +2659,6 @@
                                   ,(TEDIT.ATOMBOUND.READTABLE (fetch
 (READER-ENVIRONMENT REREADTABLE)
                                                                  of
 USERTEMP))
                                   DEFAULTPUTEXTENSION ""))
-    (TEDIT.PROMPTPRINT TSTREAM (CONCAT "Fetching " (FULLNAME SOURCEFILE)
-                                      " ...")
-           T)
     (COPY.TEXT.TO.IMAGE SOURCEFILE TSTREAM)
     TSTREAM])
 
@@ -2693,28 +2691,28 @@
 
 (RPAQ? *TEDIT-FILE-READTABLE*
 (COPYREADTABLE \ORIGREADTABLE))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (5317 35576 (TEDIT.GET 5327 . 11737) (TEDIT.FORMATTEDFILEP 11739 . 13055) (
-TEDIT.FILEDATE 13057 . 14366) (TEDIT.INCLUDE 14368 . 22397) (TEDIT.RAW.INCLUDE 22399 . 23207) (
-TEDIT.PUT 23209 . 31565) (TEDIT.PUT.STREAM 31567 . 35574)) (35577 56851 (\TEDIT.GET.FOREIGN.FILE 35587
- . 39012) (\TEDIT.GET.UNFORMATTED.FILE 39014 . 43320) (\TEDIT.GET.FORMATTED.FILE 43322 . 46965) (
-\TEDIT.FORMATTEDSTREAMP 46967 . 50098) (\ARBIN 50100 . 50820) (\ATMIN 50822 . 51359) (\DWIN 51361 . 
-51740) (\STRINGIN 51742 . 52450) (\TEDIT.GET.TRAILER 52452 . 55320) (\TEDIT.CACHEFILE 55322 . 56849)) 
-(57017 73055 (\TEDIT.GET.PIECES3 57027 . 67990) (\TEDIT.GET.PROPS3 67992 . 71214) (
-\TEDIT.MAKE.STRINGPIECE 71216 . 73053)) (73056 86482 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73066 . 79299) 
-(\TEDIT.INTERPRET.MCCS.SHIFTS 79301 . 85546) (\TEDIT.CONVERT.XCCSTOMCCS 85548 . 86480)) (86504 92749 (
-\TEDIT.GET.UNFORMATTED.FILE.UTF8 86514 . 92747)) (92772 104114 (\TEDIT.GET.CHARLOOKS.LIST 92782 . 
-93513) (\TEDIT.GET.SINGLE.CHARLOOKS 93515 . 100587) (\TEDIT.GET.CHARLOOKS 100589 . 102145) (
-\TEDIT.GET.PARALOOKS.INDEX 102147 . 102691) (\TEDIT.GET.CHARLOOKS.INDEX 102693 . 104112)) (104115 
-111772 (\TEDIT.GET.PARALOOKS.LIST 104125 . 104747) (\TEDIT.GET.SINGLE.PARALOOKS 104749 . 111770)) (
-111773 115606 (\TEDIT.GET.OBJECT 111783 . 115604)) (115671 148934 (\TEDIT.PUT.PCTB 115681 . 125588) (
-\TEDIT.PUT.PCTB.PIECEDATA 125590 . 128788) (\TEDIT.PUT.TRAILER 128790 . 130118) (
-\TEDIT.PUT.PCTB.MERGEABLE 130120 . 133893) (\TEDIT.PUT.UTF8.SPLITPIECES 133895 . 138597) (
-\TEDIT.PUT.PCTB.NEXTNEW 138599 . 143095) (\TEDIT.INSERT.NEWPIECES 143097 . 146532) (\TEDIT.PUTRESET 
-146534 . 146776) (\ARBOUT 146778 . 147502) (\ATMOUT 147504 . 148109) (\DWOUT 148111 . 148390) (
-\STRINGOUT 148392 . 148932)) (148935 161669 (\TEDIT.PUT.CHARLOOKS.LIST 148945 . 150617) (
-\TEDIT.PUT.SINGLE.CHARLOOKS 150619 . 156899) (\TEDIT.PUT.CHARLOOKS 156901 . 158240) (
-\TEDIT.PUT.CHARLOOKS1 158242 . 159293) (\TEDIT.PUT.OBJECT 159295 . 161667)) (161670 169309 (
-\TEDIT.PUT.PARALOOKS.LIST 161680 . 162582) (\TEDIT.PUT.SINGLE.PARALOOKS 162584 . 168168) (
-\TEDIT.PUT.PARALOOKS 168170 . 169307)) (169404 172833 (TEDITFROMLISPSOURCE 169414 . 172082) (
-SHELLSCRIPTP 172084 . 172313) (TEDITFROMSHELLSCRIPT 172315 . 172831)))))
+  (FILEMAP (NIL (5304 35563 (TEDIT.GET 5314 . 11724) (TEDIT.FORMATTEDFILEP 11726 . 13042) (
+TEDIT.FILEDATE 13044 . 14353) (TEDIT.INCLUDE 14355 . 22384) (TEDIT.RAW.INCLUDE 22386 . 23194) (
+TEDIT.PUT 23196 . 31552) (TEDIT.PUT.STREAM 31554 . 35561)) (35564 56838 (\TEDIT.GET.FOREIGN.FILE 35574
+ . 38999) (\TEDIT.GET.UNFORMATTED.FILE 39001 . 43307) (\TEDIT.GET.FORMATTED.FILE 43309 . 46952) (
+\TEDIT.FORMATTEDSTREAMP 46954 . 50085) (\ARBIN 50087 . 50807) (\ATMIN 50809 . 51346) (\DWIN 51348 . 
+51727) (\STRINGIN 51729 . 52437) (\TEDIT.GET.TRAILER 52439 . 55307) (\TEDIT.CACHEFILE 55309 . 56836)) 
+(57004 73042 (\TEDIT.GET.PIECES3 57014 . 67977) (\TEDIT.GET.PROPS3 67979 . 71201) (
+\TEDIT.MAKE.STRINGPIECE 71203 . 73040)) (73043 86469 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73053 . 79286) 
+(\TEDIT.INTERPRET.MCCS.SHIFTS 79288 . 85533) (\TEDIT.CONVERT.XCCSTOMCCS 85535 . 86467)) (86491 92736 (
+\TEDIT.GET.UNFORMATTED.FILE.UTF8 86501 . 92734)) (92759 104101 (\TEDIT.GET.CHARLOOKS.LIST 92769 . 
+93500) (\TEDIT.GET.SINGLE.CHARLOOKS 93502 . 100574) (\TEDIT.GET.CHARLOOKS 100576 . 102132) (
+\TEDIT.GET.PARALOOKS.INDEX 102134 . 102678) (\TEDIT.GET.CHARLOOKS.INDEX 102680 . 104099)) (104102 
+111759 (\TEDIT.GET.PARALOOKS.LIST 104112 . 104734) (\TEDIT.GET.SINGLE.PARALOOKS 104736 . 111757)) (
+111760 115593 (\TEDIT.GET.OBJECT 111770 . 115591)) (115658 148921 (\TEDIT.PUT.PCTB 115668 . 125575) (
+\TEDIT.PUT.PCTB.PIECEDATA 125577 . 128775) (\TEDIT.PUT.TRAILER 128777 . 130105) (
+\TEDIT.PUT.PCTB.MERGEABLE 130107 . 133880) (\TEDIT.PUT.UTF8.SPLITPIECES 133882 . 138584) (
+\TEDIT.PUT.PCTB.NEXTNEW 138586 . 143082) (\TEDIT.INSERT.NEWPIECES 143084 . 146519) (\TEDIT.PUTRESET 
+146521 . 146763) (\ARBOUT 146765 . 147489) (\ATMOUT 147491 . 148096) (\DWOUT 148098 . 148377) (
+\STRINGOUT 148379 . 148919)) (148922 161656 (\TEDIT.PUT.CHARLOOKS.LIST 148932 . 150604) (
+\TEDIT.PUT.SINGLE.CHARLOOKS 150606 . 156886) (\TEDIT.PUT.CHARLOOKS 156888 . 158227) (
+\TEDIT.PUT.CHARLOOKS1 158229 . 159280) (\TEDIT.PUT.OBJECT 159282 . 161654)) (161657 169296 (
+\TEDIT.PUT.PARALOOKS.LIST 161667 . 162569) (\TEDIT.PUT.SINGLE.PARALOOKS 162571 . 168155) (
+\TEDIT.PUT.PARALOOKS 168157 . 169294)) (169391 172796 (TEDITFROMLISPSOURCE 169401 . 172045) (
+SHELLSCRIPTP 172047 . 172276) (TEDITFROMSHELLSCRIPT 172278 . 172794)))))
 STOP
diff --git a/library/tedit/TEDIT-FILE.LCOM b/library/tedit/TEDIT-FILE.LCOM
index 6809340d344c34f60e7356fb15cfe4bbe58993d3..92c52ac81534c9fb3057e2b2fd9ff4d4259e586f 100644
GIT binary patch
delta 530
zcmZutO>5LZ7~b7pWRX&_Ab5HR7B^sq?4<c<PE9v&b_3a&F`2Xq6}0VAiq)332T%G7
zl&v}Hzv#h(;!p4*_<Nje1r?pc9Ny=BKHlg1m)_UUz4^{6LMNN;Io#y|hGFdT*b6V8
zM=Z3_w-EdWxfk;&_9F{>XS4m27pF(Zvjfatot~Yq#m&=?tGhUQ2`j6M0)O%tV-^mc
zU6|#61vg?hu<ZUI%L^KnlxRv}{V!4@x`P{`N$3q-uX)`?^XbEF+eWNP+RkNNIjJGT
z;+`Y-FWPf_xKX^mFhIXi-TPO|y}R!yr7Wonok^jQVF=@xYgWm+91$yWK?RAio*0b(
zjfoblY;<-zOU;w{om&r&q52*3ejK)cshYR*2X8i$#VlFr45A1lsU9;;k2KSg<<n$L
zh=x$LZfB~LszTuX@=3IuZpm7t%oLI8WUC;obF@jXs{!A@Xp)pWd1?ZNkcvdBQ)xq(
tnil;4PRpgzA+ep8QcTSTd>0GdYe~;v5GRz6C(XCZd%YmKT7FMAe*zTWhd2NL

delta 626
zcmZuv&2G~`5VmtbY2bhar?x^<OP~bdmDm6Fsat#9SU9$^*D2hZq*fbI+O*^VLI|D!
zCGw+GoItz;5(l1x2VmFbKoNVG{dQ))Z)Rur+n3JwubtJwece#A*;3Ut-2%<^P0!ct
z^-CAo1L!F?f{t%_KK2xtUe>eoSBv>+eFXKJ#pUaVelt<GC#YhP3-dEjqAE$?Z!$ti
zf!@(%$tnL))jeg<>ql`ygMt!9!+(<g^wki#-?afd1~#?kLWX9lZlSj90Q|h5<2b8I
zHRK9hz*5V4aeXlz`-bkDHt%8m{*i25{gO97H4j#sPciUnF+*im6#+$Q5~s8rfb>!7
zNVmx6jjqJkv~w)Blh)>^a41eaVSco(XNLke?^aI;ITvtuL)aGH7HHnuUD9&MU8#?C
z6M`&%ff#+x5X(?JBKs6Db{e^R?=i-hhtq&Cz#0ZI&XkNOxE|yc6P&!r@)8`}{9J8)
zur!FWlwHpb3<H88DGuV04Z(pdr>S6+jE{E2$84LxQAi7wrsKHC(h*Mp%Z0tHN<&8W
z5(=gTA&p3tFd+<v*UAiOygy{1yElS*GhXj(W6cHy+IRLW{sZde>|}m+%zci1^>$6~
F{04LWl+6GD