From ec03478fcfe642033163f8adac4ad913e887a3ce Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Mon, 17 Mar 2025 12:08:35 -0700
Subject: [PATCH] TEXTSTREAM instead of TEXTOBJ

---
 doctools/IMINDEX      |  25 +++++++++++++------------
 doctools/IMINDEX.LCOM | Bin 16879 -> 16862 bytes
 2 files changed, 13 insertions(+), 12 deletions(-)

diff --git a/doctools/IMINDEX b/doctools/IMINDEX
index 4d25ac3c..63017ed8 100644
--- a/doctools/IMINDEX
+++ b/doctools/IMINDEX
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "29-Jun-2024 00:14:46" {WMEDLEY}<doctools>IMINDEX.;8
 37147  
+
(FILECREATED "17-Mar-2025 12:07:55" {WMEDLEY}<doctools>IMINDEX.;9
 37246  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS IM.INDEX.EDIT)
 
-      :PREVIOUS-DATE " 7-Apr-2024 09:25:49" {WMEDLEY}<doctools>IMINDEX.;6)
+      :PREVIOUS-DATE "29-Jun-2024 00:14:46" {WMEDLEY}<doctools>IMINDEX.;8)
 
 
 (PRETTYCOMPRINT IMINDEXCOMS)
@@ -163,11 +163,12 @@
               (TERPRI PTRFILE])
 
 (IM.INDEX.EDIT

-  [LAMBDA (OBJ TEXTSTREAM)
                                   (* ; "Edited 29-Jun-2024 00:14 by rmk")


+  [LAMBDA (OBJ TEXTSTREAM)
                                   (* ; "Edited 17-Mar-2025 12:06 by rmk")


+                                                             (* ; "Edited 29-Jun-2024 00:14 by rmk")


                                                              (* ; "Edited 18-Jul-88 14:10 by burns")

     (PROG* ((W (FREEMENU IM.INDEX.OBJ.FREEMENU.SPECS))
             (REGION (WINDOWREGION W))
-            (TEDIT.WINDOW (\TEDIT.PRIMARYPANE (TEXTOBJ TEXTSTREAM)))
+            (TEDIT.WINDOW (\TEDIT.PRIMARYPANE TEXTSTREAM))
             (TEDIT.REGION (AND TEDIT.WINDOW (WINDOWREGION TEDIT.WINDOW)))
             OBJ.DATA OBJ.DATA.PROPLIST)
            (WINDOWPROP W 'IM.INDEX.OBJ OBJ)
@@ -640,13 +641,13 @@
 
 (IM.INDEX.INIT
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1676 15456 (IM.INDEX.CLOSEF 1686 . 2377) (IM.INDEX.COPYFN 2379 . 2564) (
+  (FILEMAP (NIL (1676 15555 (IM.INDEX.CLOSEF 1686 . 2377) (IM.INDEX.COPYFN 2379 . 2564) (
 IM.INDEX.CREATEOBJ 2566 . 3912) (IM.INDEX.DISPLAY.STRING 3914 . 4335) (IM.INDEX.DISPLAYFN 4337 . 8434)
- (IM.INDEX.EDIT 8436 . 12003) (IM.INDEX.LIST.FROM.STRING 12005 . 13039) (IM.INDEX.SIZEFN 13041 . 13801
-) (IM.INDEX.STRING.FROM.LIST 13803 . 14048) (IM.INDEX.PUTFN 14050 . 14396) (IM.INDEX.GETFN 14398 . 
-14695) (IM.INDEX.BUTTONEVENTFN 14697 . 15454)) (15457 17527 (IM.INDEX.INIT 15467 . 17525)) (17528 
-29444 (IM.INDEX.MENU 17538 . 19226) (IM.INDEX.MENU.WHENSELECTEDFN 19228 . 25983) (
-IM.INDEX.OBJ.FREEMENU.SELECTEDFN 25985 . 29442)) (31960 37103 (IM.CHAP.COPYFN 31970 . 32150) (
-IM.CHAP.CREATEOBJ 32152 . 33578) (IM.CHAP.DISPLAYFN 33580 . 35540) (IM.CHAP.SIZEFN 35542 . 36544) (
-IM.CHAP.PUTFN 36546 . 36730) (IM.CHAP.GETFN 36732 . 36893) (IM.CHAP.BUTTONEVENTFN 36895 . 37101)))))
+ (IM.INDEX.EDIT 8436 . 12102) (IM.INDEX.LIST.FROM.STRING 12104 . 13138) (IM.INDEX.SIZEFN 13140 . 13900
+) (IM.INDEX.STRING.FROM.LIST 13902 . 14147) (IM.INDEX.PUTFN 14149 . 14495) (IM.INDEX.GETFN 14497 . 
+14794) (IM.INDEX.BUTTONEVENTFN 14796 . 15553)) (15556 17626 (IM.INDEX.INIT 15566 . 17624)) (17627 
+29543 (IM.INDEX.MENU 17637 . 19325) (IM.INDEX.MENU.WHENSELECTEDFN 19327 . 26082) (
+IM.INDEX.OBJ.FREEMENU.SELECTEDFN 26084 . 29541)) (32059 37202 (IM.CHAP.COPYFN 32069 . 32249) (
+IM.CHAP.CREATEOBJ 32251 . 33677) (IM.CHAP.DISPLAYFN 33679 . 35639) (IM.CHAP.SIZEFN 35641 . 36643) (
+IM.CHAP.PUTFN 36645 . 36829) (IM.CHAP.GETFN 36831 . 36992) (IM.CHAP.BUTTONEVENTFN 36994 . 37200)))))
 STOP
diff --git a/doctools/IMINDEX.LCOM b/doctools/IMINDEX.LCOM
index ef70438910fe560266c3500206a15dd5ccc4438c..c84836b84b3aec9d5c49ccc5560c57ad6343f9d4 100644
GIT binary patch
delta 814
zcmZva&2G~`5Xa?mK&nuM6$nBlFv^8iBF6jW^@am-lSwebA6nZ@TM%lba^i-#=g=1*
zGEYKYf-5foM~=J#>rKFERcWQ!{q2ALJG(o7E}fs3&X?IeA_vL*(}4O^0HH%)4ux2L
z^d721*zJ>`-K1p5)sXV#w}IZ~p6B)9V*dHV#f=Hf?;q|SOyV~<(ioLEhW<@Q*2H;y
zTLF`l2lcV@vhF!-_1$@Y$N619-RrI5y&uj2gDl5%23!V^WXEV`EPzSkjb26R6pPaM
z11G#bzx!xMNE7yNQMHMZt=G)P1yKx8>r4X?bTd-|rdZD6bezqq0(Gvl9Hf9aiKdtx
zy|(LsL0)Y{76|_uU;@@28mDoV0_E_|Ts$tlTpKHWnn$UF_1t~pQUyhIWJZZ6C2;E3
zOSkL#;XitsBQT}v^JiUGkqu3w#L$q|zuX54-awnpf~Hc>RF5a#e<*BLX^l9&DzK1Q
zhqb5afo+F1^n(`W<{^NFt<R!4slX9Xp;}p-PBL@tR_56XDJ8AOmPEJB?QukfFwuw!
zrd3>G0z}GdAmGrvrujGtFRp5vcGyl<e$yU}PXW>g^M^Pp$5B}&VEW^Er+c5b6`5Vr
VszAb^KI`;$xG-UV^|kZX`wKOa&QbsX

delta 832
zcmZva-D(p-6vtT+FNzkHv=J?>humnuEc3ZLvkGOKoWw2e2b)dPQW1pqN)Qpfj*u6y
z%nSGo<|VxH(o3H}@D-fhq;67#fj#q^|M|~3XXn@4`7?LEOm~>>9e;Y)V}uDHB%~q~
z{?%LWf$G9mhpFa}@sQdjufFx3uXE4yI&ksk<K@MF6By}qx1J2+m)I{bDsf<pBkuqY
zs0hr7bGQRRFM9uBRe%ne423q-IdJ^Ncjxt8=eK#hy}vlz{^@iTWI3i&5Q;*QouG{b
zg<<0LUqtB$$EEcLK{c4KyAN-3pREG23Rs|)gz;rCqgnwLMOFZn!F5CkjIf->=^&d<
z##rP<mV+V?C(#JAqvLw-E667+Q4OTL0R(}iM}ea_OMz*4W&4jyFE6ZBah6B-QUp8q
z5>HF(YjXFI%LR-lM|M>Z1e4~o+jc3xrf0crkqDDLZM)iE(KJdBxC+b<_x?;*u+HW|
zRkUXt!Bg)alyz2F8F3M83Tnt}hovXqbXY=4o2=Z<1ej`kX4Oq&>;v;fBa72vW?OA!
zUR@z$exs>NV(aGhb&PNr7KjO^leokLsA4yOub~<&Q2WcDZEC9rvYxDE^<XNWF$5Cq
n*s)&@qH>ae&&)xqy{nsw?5TacKs7aSYyXxc_OrK`x6Zx4ybaSq