From c0e020f033176d6e41d147268d776318cda1ee22 Mon Sep 17 00:00:00 2001
From: Larry Masinter <LMM@acm.org>
Date: Tue, 7 Dec 2021 16:35:25 -0800
Subject: [PATCH] rmk6 2nd change to EDITINTERFACE

---
 sources/EDITINTERFACE      |  14 +++++++-------
 sources/EDITINTERFACE.LCOM | Bin 16099 -> 16102 bytes
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/sources/EDITINTERFACE b/sources/EDITINTERFACE
index 251561fa..9c2c1c9f 100644
--- a/sources/EDITINTERFACE
+++ b/sources/EDITINTERFACE
@@ -1,7 +1,7 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 4-Dec-2021 09:08:18" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>EDITINTERFACE.;20
 46022  
+
(FILECREATED " 4-Dec-2021 10:40:27" 
+{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>EDITINTERFACE.;21
 46036  
 
       changes to%:  (FNS EDITDATE?)
 
@@ -758,7 +758,7 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
               (RETURN EXPR)))])
 
 (EDITDATE?

-  [LAMBDA (COMMENT RESTOK)
                                   (* ; "Edited  4-Dec-2021 09:07 by rmk")

+  [LAMBDA (COMMENT RESTOK)
                                   (* ; "Edited  4-Dec-2021 10:39 by rmk")

 
 (* ;;; "This determines whether this is a dated or initialed comment that is potentially reusable in the current context.  Unless RESTOK, this only recognizes modern-format configurations of the form %"Edited <date> by <initials>%", and returns a parsed pair (DATE INITIALS).")

 
@@ -789,8 +789,8 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
 
                  (* ;; "Could be %"<INITIALS>: abc%" to be upgraded with a date")

 
-                 (SETQ RESTPOS (STRPOS " " STRING))
-                 (SETQ I (SUBSTRING STRING 1 (SUB1 RESTPOS))))
+                 (CL:WHEN (SETQ RESTPOS (STRPOS " " STRING))
+                     (SETQ I (SUBSTRING STRING 1 (SUB1 RESTPOS)))))
              (CL:WHEN (AND I (ILESSP (NCHARS I)
                                     12))                     (* ; 
 
                                                            "Sanity check: Initials should be short.")

@@ -906,6 +906,6 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
 18758) (EDITLOADFNS? 18760 . 22560) (EDITMODE 22562 . 24572) (EDITP 24574 . 25085) (EDITV 25087 . 
 25726) (DC 25728 . 26409) (DF 26411 . 27453) (DP 27455 . 28539) (DV 28541 . 29113) (EDITPROP 29115 . 
 29334) (EF 29336 . 29665) (EP 29667 . 29850) (EV 29852 . 30031) (EDITE 30033 . 30911) (EDITL 30913 . 
-31139)) (31491 45167 (NEW/EDITDATE 31501 . 31723) (FIXEDITDATE 31725 . 39112) (EDITDATE? 39114 . 41913
-) (EDITDATE 41915 . 43170) (SETINITIALS 43172 . 45165)))))
+31139)) (31491 45181 (NEW/EDITDATE 31501 . 31723) (FIXEDITDATE 31725 . 39112) (EDITDATE? 39114 . 41927
+) (EDITDATE 41929 . 43184) (SETINITIALS 43186 . 45179)))))
 STOP
diff --git a/sources/EDITINTERFACE.LCOM b/sources/EDITINTERFACE.LCOM
index 03cccc9c8f43ea9feb326ad1f6e6240346761786..9f69beea56abbb4d1de0fcfe7e684a62d061942e 100644
GIT binary patch
delta 228
zcmaD{`>b|CGKZmom5G6sk@>{z2u8z+M`{oP)gJ7I3MOU-#%7zRGw#!8HZn5U9AU`D
z$Yf+VIl*WKlabNpUq&S?mh5bd3``D!fvjO3%#0tlFgI;vc;mqo!OWP?00dkh0xWnP
zD99Me3FjZ5yxhE4S`Mtr6Ra$Dwr93)_Dyb(l9&dc$wn3)7RCy}p-#aeL7sl@3Pwie
m$UH+61-}pvXAj39XMY!01tSAv1wRlkSi#WJVDlymLpA`ZxI2gd

delta 225
zcmaD>`?z*OGKYbsm4Stok<rBL2u6d6M{1w~h87d6J=hHtOw0_7j5bea+^5fMXlc1Q
z!jO%T$-rQ8g3$~n1H;X~j7nH6S=bmEm>dKHS;IV-89!`cZraH3(t|02nK7RM2)IB5
zSnvu^kTH@I&Ob7Fxp}dKG+31<SlM3BY~Spg+#nS(lT9r=EDRKaL!E*{f;|1)6^x8b
mka>oN3VtCT&K{0I&i*d03PuJ73VtA7u!5n5<>svxhHL=vj5>w@