Include DISPLAYFONTDIRECTORIES for now

sources/MEDLEYDIR

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "26-Apr-2026 13:55:08" {MEDLEY}<sources>MEDLEYDIR.;6
 16425  
+
(FILECREATED "26-Apr-2026 20:46:52" {WMEDLEY}<sources>MEDLEYDIR.;61
 15717  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (VARS MEDLEYDIRCOMS)
 
-      :PREVIOUS-DATE "26-Apr-2026 13:44:54" {MEDLEY}<sources>MEDLEYDIR.;5)
+      :PREVIOUS-DATE "26-Apr-2026 14:56:00" {WMEDLEY}<sources>MEDLEYDIR.;60)
 
 
 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -15,22 +15,22 @@
        [
         (* ;; "set up initialization for file paths relative to where Medley is installed. This assumes that the environment variable MEDLEYDIR is set (usually by the ./run-medley script) to the (unix path) and all of the other directories variables are set relative to that (by MEDLEY-INIT-VARS)")

 
-        
-        (* ;; "PSEUDOHOSTS comes before MEDLEYDIR in the loadup.")

-
         (FNS MEDLEY-INIT-VARS MEDLEYDIR MEDLEYSUBSTDIR SET-SYSOUT-COMMIT)
         [INITVARS (MEDLEYDIR (MEDLEYDIR))
                (\SAVE.MEDLEYDIR)
                (SYSOUTCOMMITS (OR (AND (BOUNDP 'SYSOUTCOMMITS)
                                        SYSOUTCOMMITS)
                                   (LIST (LIST 'MEDLEY NIL]
+        
+        (* ;; "PSEUDOHOSTS comes before MEDLEYDIR in the loadup.")

+
         (P (PSEUDOHOST 'MEDLEY MEDLEYDIR))
         (ADDVARS (AROUNDEXITFNS MEDLEY-INIT-VARS))
         
         (* ;; "**WARNING**  The EVALed expressions get run early in the lodup.")

 
         
-        (* ;; "The INITVARS prevents this from accumulating entries from other files that happen to have been loaded when this is worked on and saved.  The loadup scripts set MEDLEY-INIT-VARS to NOBIND to make sure that these are the initial values (as opposed to whatever there was in the startup sysout.  But the FONT cache variables have to be specified here, because FONT is in the INIT and the resetting to NOBIND would wipe out these entries even if they were already correct in the init sysout.")

+        (* ;; "The INITVARS prevents this from accumulating entries from other files that happen to have been loaded when this is worked on and saved.  The loadup scripts set MEDLEY-INIT-VARS to NOBIND to make sure that these are the initial values (as opposed to whatever there was in the startup sysout.")

 
         [INITVARS (MEDLEY-INIT-VARS '((\FONTEXISTS?-CACHE NIL RESET)
                                       (\FONTSAVAILABLEFILECACHE NIL RESET)
@@ -58,10 +58,7 @@
                                       (XCL::*WHERE-IS-CASH-FILES* (MEDLEYDIR '("loadups")
                                                                          "whereis.hash" NIL T))
                                       (LOADUPSDIRECTORIES (MEDLEYDIR '("loadups")
-                                                                 NIL NIL T))
-                                      (DISPLAYFONTDIRECTORIES (LIST 
-                                                                 "{MEDLEY}/fonts/medleydisplayfonts/"
-                                                                    ]
+                                                                 NIL NIL T]
         (DECLARE%: EVAL@COMPILE DOCOPY (ADDVARS (GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS 
                                                        \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS])
 
@@ -71,11 +68,6 @@
 "set up initialization for file paths relative to where Medley is installed. This assumes that the environment variable MEDLEYDIR is set (usually by the ./run-medley script) to the (unix path) and all of the other directories variables are set relative to that (by MEDLEY-INIT-VARS)"
 )

 
-
-
-
-(* ;; "PSEUDOHOSTS comes before MEDLEYDIR in the loadup.")

-
 (DEFINEQ
 
 (MEDLEY-INIT-VARS

@@ -244,6 +236,11 @@
                               SYSOUTCOMMITS)
                          (LIST (LIST 'MEDLEY NIL))))
 
+
+
+(* ;; "PSEUDOHOSTS comes before MEDLEYDIR in the loadup.")

+
+
 (PSEUDOHOST 'MEDLEY MEDLEYDIR)
 
 (ADDTOVAR AROUNDEXITFNS
 MEDLEY-INIT-VARS)
@@ -256,7 +253,7 @@
 
 
 (* ;; 
-"The INITVARS prevents this from accumulating entries from other files that happen to have been loaded when this is worked on and saved.  The loadup scripts set MEDLEY-INIT-VARS to NOBIND to make sure that these are the initial values (as opposed to whatever there was in the startup sysout.  But the FONT cache variables have to be specified here, because FONT is in the INIT and the resetting to NOBIND would wipe out these entries even if they were already correct in the init sysout."
+"The INITVARS prevents this from accumulating entries from other files that happen to have been loaded when this is worked on and saved.  The loadup scripts set MEDLEY-INIT-VARS to NOBIND to make sure that these are the initial values (as opposed to whatever there was in the startup sysout."
 )

 
 
@@ -282,13 +279,12 @@
          (XCL::*WHERE-IS-CASH-FILES* (MEDLEYDIR '("loadups")
                                             "whereis.hash" NIL T))
          (LOADUPSDIRECTORIES (MEDLEYDIR '("loadups")
-                                    NIL NIL T))
-         (DISPLAYFONTDIRECTORIES (LIST "{MEDLEY}/fonts/medleydisplayfonts/"))))
+                                    NIL NIL T))))
 (DECLARE%: EVAL@COMPILE DOCOPY 
 
 (ADDTOVAR GLOBALVARS
 MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4716 13947 (MEDLEY-INIT-VARS 4726 . 8357) (MEDLEYDIR 8359 . 12747) (MEDLEYSUBSTDIR 
-12749 . 13727) (SET-SYSOUT-COMMIT 13729 . 13945)))))
+  (FILEMAP (NIL (4215 13446 (MEDLEY-INIT-VARS 4225 . 7856) (MEDLEYDIR 7858 . 12246) (MEDLEYSUBSTDIR 
+12248 . 13226) (SET-SYSOUT-COMMIT 13228 . 13444)))))
 STOP