From fe033efe227af135a4cd9dee9291fa05d6f76ca5 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Sun, 20 Apr 2025 22:49:05 -0700
Subject: [PATCH] EXAMINEDEFS uses the Tedit atom-bound table for word
 selection

---
 lispusers/EXAMINEDEFS      |  15 ++++++++-------
 lispusers/EXAMINEDEFS.LCOM | Bin 5558 -> 5612 bytes
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/lispusers/EXAMINEDEFS b/lispusers/EXAMINEDEFS
index 29d693b8..4b1a111f 100644
--- a/lispusers/EXAMINEDEFS
+++ b/lispusers/EXAMINEDEFS
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "31-Mar-2025 13:53:38" {WMEDLEY}<lispusers>EXAMINEDEFS.;56
 16674  
+
(FILECREATED " 6-Apr-2025 23:54:50" {WMEDLEY}<lispusers>EXAMINEDEFS.;57
 16827  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS EXAMINEDEFS)
+      :CHANGES-TO (FNS TEDITDEF)
 
-      :PREVIOUS-DATE "18-Feb-2025 23:01:57" {WMEDLEY}<lispusers>EXAMINEDEFS.;55)
+      :PREVIOUS-DATE "31-Mar-2025 13:53:38" {WMEDLEY}<lispusers>EXAMINEDEFS.;56)
 
 
 (PRETTYCOMPRINT EXAMINEDEFSCOMS)
@@ -198,11 +198,12 @@
                       NIL TITLE2])
 
 (TEDITDEF

-  [LAMBDA (NAME DEF TYPE READERENVIRONMENT WIDTH)
            (* ; "Edited 13-Oct-2023 00:23 by rmk")


+  [LAMBDA (NAME DEF TYPE READERENVIRONMENT WIDTH)
            (* ; "Edited  6-Apr-2025 23:53 by rmk")


+                                                             (* ; "Edited 13-Oct-2023 00:23 by rmk")


                                                              (* ; "Edited 23-Jun-2022 17:27 by rmk")


                                                              (* ; "Edited 28-Jan-2022 23:36 by rmk")


                                                              (* ; "Edited 12-Jan-2022 17:27 by rmk")

-    (LET ((TSTREAM (OPENTEXTSTREAM)))
+    (LET [(TSTREAM (OPENTEXTSTREAM NIL NIL `(BOUNDTABLE ,(TEDIT.ATOMBOUND.READTABLE]
          (DSPFONT DEFAULTFONT TSTREAM)
          (CL:WHEN WIDTH
              (LINELENGTH (IQUOTIENT WIDTH (CHARWIDTH (CHARCODE SPACE)
@@ -280,6 +281,6 @@
 (FILESLOAD (SYSLOAD)
        COMPARETEXT VERSIONDEFS)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (665 16443 (EXAMINEDEFS 675 . 10997) (EXAMINEFILES 10999 . 12481) (TEDITDEF 12483 . 
-14649) (EXVV 14651 . 16441)))))
+  (FILEMAP (NIL (662 16596 (EXAMINEDEFS 672 . 10994) (EXAMINEFILES 10996 . 12478) (TEDITDEF 12480 . 
+14802) (EXVV 14804 . 16594)))))
 STOP
diff --git a/lispusers/EXAMINEDEFS.LCOM b/lispusers/EXAMINEDEFS.LCOM
index 350ffb06c8c7a260b94390bcd0b63c7c5e02ba19..5e21927cdfbfe7a73b09031a17d9b5207957f43c 100644
GIT binary patch
delta 903
zcmZuv&5F}d6rL!ejN?WWhS~TL6s8O<xqrz`T&2zJOdw5anmR7kX>kVsN_F8bub_1A
zJ4nGtaqrHB;465NHe-ZIA-(y|Ip5E{_xsWBqtB=J;C92svdbN=z(t^BpxBq!vh+IG
zwcADJ2aX7Yw()W~KYRanaq(t8!~D}?`QcH3!bEWqnISIT!5&VN1nt>guV-WS;v)@Q
zMJlD;**zS_i5cW3Br4cf`Epj@tcN!}FjsSL_1waKquN0*&dt*}n@+kB5v(3qkJmq}
zy}kQ?tZO?r&S$T7=($zB&JPZ5uYcY7X_Y?1IFHlXwe-CDLqNK!1uKbka1!PdNXbxy
zeMliLAucF)P9%`b1@)!JW|*Y~q@!yR4&m!|LHJHxU=XEu+2i^RC>t9>v}_2b8zI3q
zu8G-csJQ-5gX>L!gL_U}oV$Fh!<B=w3Qs+ht6DKIO>rn8^F(`!(S~eOGSygSM9|91
zDudN1<!-}daXadZT7^TaZAZD;DUBpfO=8mH;)J%bD(0tgL?7HoG#S@j%ttmhX<?of
zlY*|u2(%6L;rGHK8}+kk8ubW|$V6i3E^$uhkpy%hrztqOqtz%J<Qcd_v=v;^()ouo
zI#<HU%M*CAmP^7>KMLWxNViMnp#f2gHhPdAgWa(qw1iDR;R@J?^iPp0ockM`E4Qw5
MVX5{0-LKdG0+Srre*gdg

delta 848
zcmZuv%Wl&^6vZGaRFw_l1FkHP8dZsA?wuJwSh?}IwPZWNc4#*&TAD@0s|qZTSmYO|
zDz^MYB))@BfIS=jfNLiXu7tes%(;(q&Yk=F;QPUslgA{7`PpKK0yRhqHHG9~zg9~#
zfL)hFFDOD0glJqiU(8><e|vTLW_|(lPgjc%PeZV$QJxkywn+t-@4!uFSqA;`(P-qt
z#o0%$`Cnfmcd)ykq?sL;Hma=?-+XnR?SM4KQ#UUikUfS0gwxW#NGG#u7;`eX(jO-C
z^R)}4P{>ew*Pov_diBHE+uQl++`V)E!RpV$U(V7qFfG%fW~rbIwig1WMGvL`it%w&
zR-n*89UX#_{uUBG)VAa%po9d@D~@b3DQcjA+9n9()2)D~+kgaGnr)6&9Y~!F!k!Eg
z)DdB@R*isu*9yH`9B9@7PSLtgj>_BcAZb`O<~fIbH7CgvW;^UqYQJA4c_15?QgxCg
zH|Y75jX*AC+dY&8ZVElW<v{SnHeuP!i6G-;$!u{{9|J3CW_^;ze31&`YT8ay!DMQS
z+Md=`%{!6vexT%eXCXh`tN>(oKIPH4oPZ3tu!SY_|AYD2_`+n*K?hC4s>q`JFpfY=
r=#C0u4Kf99f&q8n0+|3@{z&=Y?(?5@HaL1~9F=V2h+<Vd`gZRx5G>6W