From a14d1ef4051cb9158ac78c04459c9a4b0f9accf5 Mon Sep 17 00:00:00 2001
From: Larry Masinter <lmm@acm.org>
Date: Wed, 9 Mar 2022 22:58:33 -0800
Subject: [PATCH] remove controversial lispusers PAGEHOLD VTCHAT from
 MEDLEYDIR-INIT (#739)

---
 greetfiles/MEDLEYDIR-INIT      |  12 +++++++-----
 greetfiles/MEDLEYDIR-INIT.LCOM | Bin 2961 -> 2968 bytes
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/greetfiles/MEDLEYDIR-INIT b/greetfiles/MEDLEYDIR-INIT
index 5b04619c..32a2e7f7 100644
--- a/greetfiles/MEDLEYDIR-INIT
+++ b/greetfiles/MEDLEYDIR-INIT
@@ -1,8 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "28-Feb-2022 21:13:20" {DSK}<home>larry>medley>greetfiles>MEDLEYDIR-INIT.;2
 4677   
+
(FILECREATED " 9-Mar-2022 11:50:44" {DSK}<home>larry>medley>greetfiles>MEDLEYDIR-INIT.;2
 4690   
 
-      :PREVIOUS-DATE "20-Feb-2022 11:47:18" {DSK}<home>larry>medley>greetfiles>MEDLEYDIR-INIT.;1)
+      :CHANGES-TO (VARS MEDLEYDIR-INITCOMS)
+
+      :PREVIOUS-DATE "28-Feb-2022 21:13:20" {DSK}<home>larry>medley>greetfiles>MEDLEYDIR-INIT.;1)
 
 
 (PRETTYCOMPRINT MEDLEYDIR-INITCOMS)
@@ -13,7 +15,7 @@
                          "/sources/MEDLEYDIR.LCOM"))
            (MEDLEY-INIT-VARS)
            (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE]
-        (FILES BACKGROUND-YIELD PAGEHOLD VTCHAT)
+        (FILES BACKGROUND-YIELD)
         (VARS 
               (* ;; "settings for new users")

 
@@ -40,7 +42,7 @@
 
 (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE))
 
-(FILESLOAD BACKGROUND-YIELD PAGEHOLD VTCHAT)
+(FILESLOAD BACKGROUND-YIELD)
 
 (RPAQQ DWIMWAIT
 180)
 
@@ -118,5 +120,5 @@
                                (CLASSIC 12)
                                (POSTSCRIPT (CLASSIC 12])
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1936 2761 (INTERLISPMODE 1946 . 2759)))))
+  (FILEMAP (NIL (1949 2774 (INTERLISPMODE 1959 . 2772)))))
 STOP
diff --git a/greetfiles/MEDLEYDIR-INIT.LCOM b/greetfiles/MEDLEYDIR-INIT.LCOM
index 2c38d61c9d568c5f661944449acdabd7fab1eefe..78d10ab24cb8c304e92202e95e46fb4515dde2fd 100644
GIT binary patch
delta 286
zcmbOzK0|y$xQK$Ku5V(Iu91O}k%FP2m8pT1iTT8AFLZGeGb<zWi6^y!k=5(z=_x6s
zB$lM6C@3L|1I+=dH#Shx<kE2S^l^0#a&-)Gb-_>svdlzDVPc($wStM6rGWyMm9vMV
zpSx?YZiv5vMwnwzu!66vi;ruhi)WCor=Mqtv%hb!rh-*KkZYKye`v6-3((xjdW;ei
zYfU!aVr*xcT*zV}?&0ba;Nlt(;-O%osh|Pkg?Re9a!o$K;xjpkU6PS&vKp)J<g@JD
f%nBM@lN(thIW>Xm-28$SxF$bly|?)y+W{5;2;WLi

delta 299
zcmbOsK2dx^xQLO3u3Ku7u91O}k%Ez-m7%efk-@}lFA*a{gt&pFm8qGPvBkubTEWQT
zdU|?F3Mq*tsVNFd$l?(7CWcCyTpDhkKCaF|u8twDE<i<CEK^dLSZAWEU}9!&uE1p#
z5ab%>=^q-b>jKmP)L?*cg`uI9iMf@bg_6SNbBw!~1QY@s-CaHWeOwg6LYzGuLne2y
zSTJ%;KENWzreJ8Gsh}}gj$L~44;F2pU?#irWOr6)J}w0%Pe0EPB~2gzDwx3<$;ky`
Vx%mYvO#a1s55v&SH`ora005=1N_7AL