From 5e629cebc96bdae5c88be8fb6ea6fe3cf3c6c60b Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Wed, 22 Jun 2022 16:25:50 -0700
Subject: [PATCH] EDITINTERFACE:  Case-independent match of leading initials on
 a change-comment

Also, matching initials are recognized with or without a colon
---
 sources/EDITINTERFACE      |  34 +++++++++++++++++++++-------------
 sources/EDITINTERFACE.LCOM | Bin 16487 -> 16607 bytes
 2 files changed, 21 insertions(+), 13 deletions(-)

diff --git a/sources/EDITINTERFACE b/sources/EDITINTERFACE
index 534b4746..415c940e 100644
--- a/sources/EDITINTERFACE
+++ b/sources/EDITINTERFACE
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "13-May-2022 08:16:23" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>EDITINTERFACE.;44
 47034  
+
(FILECREATED "22-Jun-2022 13:32:08" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>sources>EDITINTERFACE.;45
 47672  
 
-      :CHANGES-TO (FNS FIXEDITDATE EDITDATE?)
+      :CHANGES-TO (FNS FIXEDITDATE)
 
-      :PREVIOUS-DATE "12-May-2022 23:21:03" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>EDITINTERFACE.;43)
+      :PREVIOUS-DATE "13-May-2022 08:16:23" 
+{DSK}<users>kaplan>local>medley3.5>working-medley>sources>EDITINTERFACE.;44)
 
 
 (* ; "
@@ -629,6 +629,8 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
 (FIXEDITDATE

   [LAMBDA (EXPR)
 
+    (* ;; "Edited 22-Jun-2022 13:31 by rmk")

+
     (* ;; "Edited 13-May-2022 08:11 by rmk")

 
     (* ;; "Edited   8-May-2022 22:49 by rmk")

@@ -702,10 +704,10 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
 
          (* ;; "E is now the cell that the date will attach to or whose CAR will be updated.")

 
-              [LET (PARSE COMMENTLEVEL (INITLS (CL:IF (EQ (CHARCODE %:)
-                                                          (NTHCHARCODE INITIALS -1))
-                                                   (SUBSTRING INITIALS 1 -2)
-                                                   INITIALS)))
+              [LET (PARSE COMMENTLEVEL ENDINITIALS (INITLS (CL:IF (EQ (CHARCODE %:)
+                                                                      (NTHCHARCODE INITIALS -1))
+                                                               (SUBSTRING INITIALS 1 -2)
+                                                               INITIALS)))
                    (IF
 *REPLACE-OLD-EDIT-DATES*
                        THEN
 
                             (* ;; "Strip out all previous modern-format edit dates. Since EDITDATE? only recognizes that format, hand editing is needed if prehistoric dates are really not desired. We don't strip out anything with a further comment.")

@@ -753,12 +755,18 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
                                         (MEMB [CAR (LISTP (SETQ PARSE (CDAR E]
                                               '(; ;; ;;;))
                                         [STRINGP (SETQ PARSE (CAR (LISTP (CDR PARSE]
-                                        (STRPOS (CONCAT INITLS ": ")
-                                               PARSE 1 NIL NIL T))
+                                        (SETQ ENDINITIALS (STRPOS INITLS PARSE 1 NIL NIL T 
+                                                                 UPPERCASEARRAY)))
                               THEN
 
                                    (* ;; 
 
  "Just an ordinary comment in first position, with initials: in front.  Upgrade it to an edit date.")

 
+                                   (SETQ PARSE (CONCAT INITLS (CL:IF (EQ (CHARCODE %:)
+                                                                         (NTHCHARCODE PARSE 
+                                                                                ENDINITIALS))
+                                                                  ""
+                                                                  ": ")
+                                                      (SUBSTRING PARSE ENDINITIALS)))
                                    (/RPLACA E (EDITDATE
 (CAR E)
                                                      NIL PARSE))
                             ELSE
 
@@ -941,6 +949,6 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
 18767) (EDITLOADFNS? 18769 . 22569) (EDITMODE 22571 . 24581) (EDITP 24583 . 25094) (EDITV 25096 . 
 25735) (DC 25737 . 26418) (DF 26420 . 27462) (DP 27464 . 28548) (DV 28550 . 29122) (EDITPROP 29124 . 
 29343) (EF 29345 . 29674) (EP 29676 . 29859) (EV 29861 . 30040) (EDITE 30042 . 30920) (EDITL 30922 . 
-31148)) (31500 46179 (NEW/EDITDATE 31510 . 31732) (FIXEDITDATE 31734 . 39703) (EDITDATE? 39705 . 42733
-) (EDITDATE 42735 . 44182) (SETINITIALS 44184 . 46177)))))
+31148)) (31500 46817 (NEW/EDITDATE 31510 . 31732) (FIXEDITDATE 31734 . 40341) (EDITDATE? 40343 . 43371
+) (EDITDATE 43373 . 44820) (SETINITIALS 44822 . 46815)))))
 STOP
diff --git a/sources/EDITINTERFACE.LCOM b/sources/EDITINTERFACE.LCOM
index e8babab45aabfcb14775a39625b61287b9308d13..0f8f4e27433041cd9a5e0de9b20547798dc36a01 100644
GIT binary patch
delta 1090
zcmb7D&u<e)6wa&_BGNXE-6{%6YCTp_6(4N8zwGr2nQYeU?8fUIv%9HPMXh7iQHbpP
zXlO*Es7h0Dsl<V>AZS%CAcBy3h!Z0rf#f^<2^`?YfgUVzuRA*_O%FM=b9nQ;_rCYu
zH=~(1KcZJV=z956o{!ILti<^w&jTkY0<R?H-TImFjmrz`m$UWiTBEv>ZLEG%ZDf}h
zYK?_WAt7b2tghFWRu=s=1jAAcSWZ4}!t)9zE26mj^0V!Kg%gPc3$^NZ3$>Hz6352+
zC-SDHYmTmZdJfo=gt5@Sm2(R}oc}NC;>-RziuOq$rc-I&zm1}943v_ie_`TTH=ZM7
zh!i1StZp71KPf9*O5uh7HHF;4*~0{5o?~SGaFaWQ7+LUl_&ba&`lG^TTm%hDz$HP;
zTk14{85&4|r<xXVCD84hX`7y@TCTq@WHJ)GcOeg43N&0S>b94+rUO3>mRg+3scy+~
zy&xb%9y<ZZ_|LLuVliOmKJM*7<!CGPQxjdA4AK4SBy$9|!hj}gsLc8`F&-KJpogsa
zz>HCz=-(HM7If|!h(U`%ymQ0Y-z!I#yZwRJP&&VsqxI!KY2i*e8s>V-pC4F87@e|1
zzuD+?z`AKOU+=#&?9M~O_RmW&`uz;8HmGgyFBxcw!nuQa|B7^B`$IesdQ9~8{EP=9
z40>jS!vlEaDD-G@unYzYp-$^LQ8gDrtHBIf-+EGDLTHW-ZT&t|s9&lr%?H_!`U3k^
z>&{G}NSQ?VEn0V#+P|ap6i<!q8oE@Vm~xxlRaA-4ruUlNZ!u9soyu?<58cAUc<9|P
zc(^ju#*xZk8xJs*fo4}jm9h6F7x7q)K~`svv1r3K9$_jY%`V?FA!T?t=aei}Q$b1#
zpyy04w@u#S1&{;@Y|T&|7bNl<Y33-wamO{u)IS*z$z##5t*IV?NpNSUT+cD>X%JH~
z*q#wI({N4)QAz_zm9Pt<AP11JN+9wnDC)&2|845^C!)l`Y^kI>n(FGR<EUSP|04Y$
WA`8GOz>;s229|6*ceo}0(f1cC!yP98

delta 950
zcma)4&rcIk5bk>wPza<&QX5iWY&_6IOLzBeTN+Zj_6NIkx7)PEHEFaqwgEybMhr<Y
zS}{gXCgNfuMh}{Z*A~jbMAMsB;$NT_<HbW0?&9t?0TMm%vUzXjoA2A1FPZP_=+{H^
zTv5Lv+eYQW*xX9#&Pr&haJyW%6%v<k7RsSYsaP&m84nw(RMj;EcH#mjMZ2X!)lGY8
z8fYe{eZ;@<V<dP2_INx_C>HLPivOdtwA0l)9v8$|Bpu_jv8cL_#!l0|hXC<=8KS;J
zqgNpo6|zxHKJ9{FDjmBb$a5LD4*c7b3VInQ^xlhR68EQ0;S({t3>GFZ?cIGqbt6nu
z>J$1ErfC(Js)K<Dq+k*vagm$RqJWXJkmUqX{mM)R2?$9cD{x{4;y|$wktHdX%*MqT
zJ@<jgNtdHsCM9OFI^c)6oYsQ?s3SdgmkTg8&}Bl3qiKHBKu^PF<E@2pCs?%t3Kx+A
z>KbtmI{Qr8xuIVj{)GC8NVU=STOMIFujB0(e0^JSR1SOftQ>5=Rvb%}KZbB!aab>&
zQ7-L>ycKmx<~I^Lr?WOCe64=KOYM)mWXM|Qd9-Lmxu%szvk8om@rPD@W!Av?4zFI+
zh-W*@ot*lNov!sI&3p6mz#vASd8@Twwww1fXQszti!#b1Gio>YwPAB+w5+!_q|Gl0
zY(_a_mS$u2xR6*{C@%JQ>%`_3UqlNDV+uo5-$Z$fA=y!73+_0{+iER&=%s9vhYq%6
zTYjh|Tk->~B);A_ETjCe!GGU4T$P857>Vs|EOv~@cAU324i(cl%X(oVof5eS2P{J!
zuO5&|7LpO3OJ{%t$jO4A97$;6n>;E3Vf~QFrc<&eAwF$6k`XQogkf}4NY12yX!{oR
X|5T>}ANmLd&LB8}P`=%R!0(>FBysdr