github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-30 13:42:16 +00:00
Code Issues Projects Releases Wiki Activity

MEDLEYDIR: Remove fonts/displayfonts/ (legacy AC/Strik) from DISPLAYFONTDIRECTORIES

Browse Source
This commit is contained in:
rmkaplan
2026-04-05 22:50:14 -07:00
parent 541a8d0e8b
commit 33b99d7852
2 changed files with 8 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
sources/MEDLEYDIR
View File

@@ -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 :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) (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -52,8 +52,7 @@
(USERGREETFILES [LIST (CONS LOGINHOST/DIR '("INIT" COM)) (USERGREETFILES [LIST (CONS LOGINHOST/DIR '("INIT" COM))
(CONS LOGINHOST/DIR '("INIT"] (CONS LOGINHOST/DIR '("INIT"]
RESET) RESET)
(DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/medleydisplayfonts" (DISPLAYFONTDIRECTORIES (MEDLEYDIR "fonts/medleydisplayfonts"
"fonts/displayfonts")
NIL NIL T)) NIL NIL T))
(POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts" (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts"
) )
@@ -268,8 +267,7 @@
(USERGREETFILES [LIST (CONS LOGINHOST/DIR '("INIT" COM)) (USERGREETFILES [LIST (CONS LOGINHOST/DIR '("INIT" COM))
(CONS LOGINHOST/DIR '("INIT"] (CONS LOGINHOST/DIR '("INIT"]
RESET) RESET)
(DISPLAYFONTDIRECTORIES (MEDLEYDIR '("fonts/medleydisplayfonts" "fonts/displayfonts") (DISPLAYFONTDIRECTORIES (MEDLEYDIR "fonts/medleydisplayfonts" NIL NIL T))
NIL NIL T))
(POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts") (POSTSCRIPTFONTDIRECTORIES (MEDLEYDIR '("fonts/postscriptfonts")
NIL NIL T)) NIL NIL T))
(INTERPRESSFONTDIRECTORIES (MEDLEYDIR '("fonts/ipfonts") (INTERPRESSFONTDIRECTORIES (MEDLEYDIR '("fonts/ipfonts")
@@ -285,6 +283,6 @@
(ADDTOVAR GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS) (ADDTOVAR GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
) )
(DECLARE%: DONTCOPY (DECLARE%: DONTCOPY
(FILEMAP (NIL (5324 13336 (MEDLEY-INIT-VARS 5334 . 8812) (MEDLEYDIR 8814 . 12136) (MEDLEYSUBSTDIR (FILEMAP (NIL (5231 13243 (MEDLEY-INIT-VARS 5241 . 8719) (MEDLEYDIR 8721 . 12043) (MEDLEYSUBSTDIR
12138 . 13116) (SET-SYSOUT-COMMIT 13118 . 13334))))) 12045 . 13023) (SET-SYSOUT-COMMIT 13025 . 13241)))))
STOP STOP

BIN
sources/MEDLEYDIR.LCOM
View File

Binary file not shown.