From 33b99d785276345b816336d3d7df900164080eed Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Sun, 5 Apr 2026 22:50:14 -0700
Subject: [PATCH] MEDLEYDIR:  Remove fonts/displayfonts/ (legacy AC/Strik) from
 DISPLAYFONTDIRECTORIES

---
 sources/MEDLEYDIR      |  18 ++++++++----------
 sources/MEDLEYDIR.LCOM | Bin 7292 -> 7233 bytes
 2 files changed, 8 insertions(+), 10 deletions(-)

diff --git a/sources/MEDLEYDIR b/sources/MEDLEYDIR
index 886f4497..54f22817 100644
--- a/sources/MEDLEYDIR
+++ b/sources/MEDLEYDIR
@@ -1,12 +1,12 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "31-Jan-2026 23:43:06" {WMEDLEY}<sources>MEDLEYDIR.;44
 16074  
+
(FILECREATED "22-Mar-2026 09:52:47" {WMEDLEY}<sources>MEDLEYDIR.;46
 15917  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS MEDLEYDIR)
+      :CHANGES-TO (VARS MEDLEYDIRCOMS)
 
-      :PREVIOUS-DATE "26-Nov-2025 21:51:39" {WMEDLEY}<sources>MEDLEYDIR.;43)
+      :PREVIOUS-DATE "31-Jan-2026 23:43:06" {WMEDLEY}<sources>MEDLEYDIR.;44)
 
 
 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -52,8 +52,7 @@
                                       (USERGREETFILES [LIST (CONS LOGINHOST/DIR '("INIT" COM))
                                                             (CONS LOGINHOST/DIR '("INIT"]
                                              RESET)
-                                      (DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/medleydisplayfonts"
-                                                                           "fonts/displayfonts")
+                                      (DISPLAYFONTDIRECTORIES (MEDLEYDIR "fonts/medleydisplayfonts" 
                                                                      NIL NIL T))
                                       (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts"
                                                                               )
@@ -268,8 +267,7 @@
          (USERGREETFILES [LIST (CONS LOGINHOST/DIR '("INIT" COM))
                                (CONS LOGINHOST/DIR '("INIT"]
                 RESET)
-         (DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/medleydisplayfonts" "fonts/displayfonts")
-                                        NIL NIL T))
+         (DISPLAYFONTDIRECTORIES (MEDLEYDIR "fonts/medleydisplayfonts" NIL NIL T))
          (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts")
                                            NIL NIL T))
          (INTERPRESSFONTDIRECTORIES (MEDLEYDIR '("fonts/ipfonts")
@@ -285,6 +283,6 @@
 (ADDTOVAR GLOBALVARS
 MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (5324 13336 (MEDLEY-INIT-VARS 5334 . 8812) (MEDLEYDIR 8814 . 12136) (MEDLEYSUBSTDIR 
-12138 . 13116) (SET-SYSOUT-COMMIT 13118 . 13334)))))
+  (FILEMAP (NIL (5231 13243 (MEDLEY-INIT-VARS 5241 . 8719) (MEDLEYDIR 8721 . 12043) (MEDLEYSUBSTDIR 
+12045 . 13023) (SET-SYSOUT-COMMIT 13025 . 13241)))))
 STOP
diff --git a/sources/MEDLEYDIR.LCOM b/sources/MEDLEYDIR.LCOM
index d348dc275b9a382050cec673b8633ccd00c2d637..905e4421862dc1cfdfc72aed6c1df38ed7c83ffe 100644
GIT binary patch
delta 411
zcmexkanQnE!^PFj)6Z4c&C|zK*VE6<U%@KC(b?P4-Bm%!(=Ws|$j37{KuN(W$kov$
z#L>wIO?aZcgou%mu5V(Iu91O}nSz0(m8p@HiTT8AgL*Sf1ui8+b0kRvD<fkoLrW!v
zq@vX1{M>@foYWMB)QW<lVpS`Jy!?`k%)E4k%sd4pw@@D+1!S#ydU{F<DTyUO_1Mfb
zGFQ^%(g69v8R*auR~H2(BVjDgnyk;L;A*B|XliL_u3+Wr;u)gr6sb^@o2_8w?BVF=
z?i#Ec;;*2=73LTetl;bF;^P|W;u+-Z?;ETM43{9+Fi-!`U|koW4U;7q%{L!otPz@=
zC?zwwR>XL+j5Pn`Yf`?#N@@9dCB^!g1z=i96Br7c<wdPniBULNUi8^y8JPqCV6ty%

delta 458
zcmb`C%Syvg5QYi3kSuK#2~vh5Lb5oRThsP{l(ac%kH)0tB6Mf96+&;J6;bddYPP;b
zpTMPWp&P+xs0&jsD7qD9Gc*5u|3CNT*K$>~sLfo8ZRSwST-$>}%d8)m4GM_4A@v;=
zv=9`0YFeRLbAF9y)y=%7;Qh`BtFmf<su5iyvN7w+O<e*Wsg)l~g(zxP2u>%xv+*#A
z2fZ%zu9C@ghrl7V9NM;+5Ag_)9XSqs9M7I|+kY{tj3i!M#;#}CLTaVATqy#@kV`rc
zYOxU4+AtaRfz+F(+n@msJrH@@4Zf`;AT6IBGcO9Tl|cZh26o4n%V&z9Dx|0ot&(C6
zIBovG-K?dL!fLuFY;B<P@#tc@+l{BmpmY7+AW2G3^7<-&6nPm+Oz-kxj{g+K$(IJw
Sh44IoSr1qK12$g>HunayEP@mO