From 4a09d3a02709bba08ae2d0605bfd0f747805e98d Mon Sep 17 00:00:00 2001
From: Larry Masinter <LMM@acm.org>
Date: Tue, 18 Apr 2023 15:15:00 -0700
Subject: [PATCH] Init file set HELPTIME to 1 more break windows; copyright
 NEVER

---
 greetfiles/MEDLEYDIR-INIT      |  19 ++++++++++++-------
 greetfiles/MEDLEYDIR-INIT.LCOM | Bin 2186 -> 2265 bytes
 2 files changed, 12 insertions(+), 7 deletions(-)

diff --git a/greetfiles/MEDLEYDIR-INIT b/greetfiles/MEDLEYDIR-INIT
index f620b2bb..96b1f665 100644
--- a/greetfiles/MEDLEYDIR-INIT
+++ b/greetfiles/MEDLEYDIR-INIT
@@ -1,11 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "22-Nov-2022 20:59:24" {DSK}<home>frank>il>medley>wmedley>greetfiles>MEDLEYDIR-INIT.;6
 2860   
+
(FILECREATED "13-Apr-2023 09:44:06" {DSK}<home>larry>il>medley>greetfiles>MEDLEYDIR-INIT.;6
 2925   
+
+      :EDIT-BY "lmm"
 
       :CHANGES-TO (VARS MEDLEYDIR-INITCOMS)
 
-      :PREVIOUS-DATE "22-Nov-2022 20:42:43" 
-{DSK}<home>frank>il>medley>wmedley>greetfiles>MEDLEYDIR-INIT.;5)
+      :PREVIOUS-DATE "10-Apr-2023 11:58:07" {DSK}<home>larry>il>medley>greetfiles>MEDLEYDIR-INIT.;5
+)
 
 
 (PRETTYCOMPRINT MEDLEYDIR-INITCOMS)
@@ -22,18 +24,19 @@
 
               (DWIMWAIT 180)
               (HELPDEPTH 4)
-              (HELPTIME 10)
+              (HELPTIME 1)
               (FILING.ENUMERATION.DEPTH 1)
               [LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR")
                                            (UNIX-GETENV "HOME"]
               [USERGREETFILES `((,LOGINDIR "INIT" COM)
                                 (,LOGINDIR "INIT"]
+              (COPYRIGHTFLG 'NEVER)
               (COPYRIGHTSRESERVED NIL)
               (AUTOBACKTRACEFLG 'ALWAYS)
               (MAXLEVEL 30000)
               (MAXLOOP 30000))
         (FNS INTERLISPMODE)
-        (ALISTS (FONTDEFS LARGER))))
+        (ALISTS (FONTDEFS))))
 
 (LOAD? (CONCAT (OR (UNIX-GETENV "MEDLEYDIR")
                    "")
@@ -49,7 +52,7 @@
 
 (RPAQQ HELPDEPTH
 4)
 
-(RPAQQ HELPTIME
 10)
+(RPAQQ HELPTIME
 1)
 
 (RPAQQ FILING.ENUMERATION.DEPTH
 1)
 
@@ -59,6 +62,8 @@
 (RPAQ USERGREETFILES
 `((,LOGINDIR "INIT" COM)
                        (,LOGINDIR "INIT")))
 
+(RPAQQ COPYRIGHTFLG
 NEVER)
+
 (RPAQQ COPYRIGHTSRESERVED
 NIL)
 
 (RPAQQ AUTOBACKTRACEFLG
 ALWAYS)
@@ -84,5 +89,5 @@
 
 (ADDTOVAR FONTDEFS
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1986 2811 (INTERLISPMODE 1996 . 2809)))))
+  (FILEMAP (NIL (2051 2876 (INTERLISPMODE 2061 . 2874)))))
 STOP
diff --git a/greetfiles/MEDLEYDIR-INIT.LCOM b/greetfiles/MEDLEYDIR-INIT.LCOM
index 75533533494b5ed2cb6247f86da0484928cb8b55..0a745935e933f61edd3fa9b5d9f2ae3424266d7d 100644
GIT binary patch
delta 395
zcmeAYyeT*#T*S~=*Rh~T*T}%gSi!*3%EZLVz-(f+9A{2qQBkE`W{%zD*NjT_W||60
zC@RgZj4iAT43rd-ic*vFa|<$aQd1O?GZORCQ;Sut6u9#8OENO^(iJlE6qLeKbAU=x
z6-x3I+)8tDQi~LdD~t0>OB9ez)YH>bQb<WG0UCpDlZla?m8pS}CYOerr;n?1kgH>e
zs|%VcsLPcUs$GJ;Yi%-s_SvC$LCj3S$kNDEfy>I(#WO_LDN;cxCpTAVawDU;wxIzc
z3=9peOo2W#S5n}@X4K}_jBL!4Kd~GaaPx6j&<G6m4{=rSa}9G1n!JY9o{?+vYgW0*
uTx=Swnn1uc`6096<b1Z%ldair3xPC%RRTQ{6yO*bs4#g0tN3IUjx+#gW^mR3

delta 327
zcmca9*d;h2T*Syo*Dt?J*T}%gNWsX!%GA=z*mz>LoM2i}VqUggW{zEMYD!LOrCs^t
zLPq6!O$8-%4Te@GMoJ1L$@#ejIqE42nRyCaN^YS(J_^VR_4M?V6jBmPQd6)RV5+3a
zrQzo3<LVsb>KNkcf~m;T%E&}XL8jUz*t^yyBR@CQ4x0m2Sh<WW%nT;4WHdKMwjSs)
z6C*1VV<iPH0wySJ)@6Fa#Aq;CkoEZFudGIsHQ3}BxhA`@X|OB!I0m`925rt`V`Ky>
M$Y;MjIhCUX03;e(&;S4c