From 3e8aea81f6e43d7e55f1fe38d6152ebc8bbacbc4 Mon Sep 17 00:00:00 2001
From: Larry Masinter <LMM@acm.org>
Date: Wed, 23 Apr 2025 05:18:25 -0700
Subject: [PATCH] LOADUPFULLFONTS: don't choke on extra index.html files in
 postscript font directory

---
 internal/loadups/LOADUP-FULL      |  15 +++++++++------
 internal/loadups/LOADUP-FULL.LCOM | Bin 3505 -> 3558 bytes
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/internal/loadups/LOADUP-FULL b/internal/loadups/LOADUP-FULL
index 55171e07d..155ab7077 100644
--- a/internal/loadups/LOADUP-FULL
+++ b/internal/loadups/LOADUP-FULL
@@ -1,10 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "31-Jul-2023 18:28:53" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;4
 4521   
+
(FILECREATED "23-Apr-2025 05:14:27" {DSK}<home>larry>il>medley>internal>loadups>LOADUP-FULL.;2
 4662   
 
-      :CHANGES-TO (FNS LOADUP-FULL)
+      :EDIT-BY "lmm"
 
-      :PREVIOUS-DATE "18-Jan-2023 16:23:36" {DSK}<home>frank>il>medley>gmedley>sources>LOADUP-FULL.;3
+      :CHANGES-TO (FNS LOADFULLFONTS)
+
+      :PREVIOUS-DATE "31-Jul-2023 18:28:53" {DSK}<home>larry>il>medley>internal>loadups>LOADUP-FULL.;1
 )
 
 
@@ -15,7 +17,8 @@
 (DEFINEQ
 
 (LOADFULLFONTS

-  [LAMBDA NIL
                                              (* ; "Edited 13-Feb-2021 22:51 by larry")

+  [LAMBDA NIL
                                                (* ; "Edited 23-Apr-2025 05:13 by lmm")


+                                                           (* ; "Edited 13-Feb-2021 22:51 by larry")

 
     (* ;; " Don't do Interpress. Do character set 0 and the symbol character sets 41Q, 42Q, 356Q, 357Q and extended and accented Latin 43Q and 361Q")

 
@@ -35,7 +38,7 @@
                      (PRINTOUT T T))
                (PRINTOUT T "  Loading postscript fonts" T)
                (for
 F in
 (FILDIR (CONCAT (CAR POSTSCRIPTFONTDIRECTORIES)
-                                        ">c0>*.*")) do
 (PSCFONT.READFONT F))
+                                        ">c0>*.PSCFONT")) do
 (PSCFONT.READFONT F))
                (PRINTOUT T "FULL fonts loaded" T])
 
 (LOADUP-FULL

@@ -86,5 +89,5 @@
 
 (FIXMETA
)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (467 4483 (LOADFULLFONTS 477 . 1918) (LOADUP-FULL 1920 . 4233) (FIXMETA 4235 . 4481)))))
+  (FILEMAP (NIL (493 4624 (LOADFULLFONTS 503 . 2059) (LOADUP-FULL 2061 . 4374) (FIXMETA 4376 . 4622)))))
 STOP
diff --git a/internal/loadups/LOADUP-FULL.LCOM b/internal/loadups/LOADUP-FULL.LCOM
index 518982003d573a98392da20b61201494ded38524..1332ec1f6c818f8c841c011262e4f595966e2375 100644
GIT binary patch
delta 441
zcmdle{Y-j7xUiA2u46%wu91O}se*y2m7$51(ZnqI`kcg~qDs5W9J}1ql$=x`E3YKA
zC@(R`E+;=RrL>^f&d1-;B{V?SE!4+H&)P^+LCMGv$skKB6QDuHN(xCusmb}d1(`Xi
zDGFT48Hsu6sl}>R3LxDet#1B)A;Ainc?wD(o&wyAdZ26c^z@VzQW8smI<XmUrliTG
z;pXY%>Kx?i7~<*zRD|gjb0vjpmtgN&n~eP2R6F85<q7tcf{B@#kph>MtBYrdu2ZCf
zQciBJl7f}9hohgnYp`yJzk-IFUofg?G!?7@f?UHq{X>IwU4ZVIEXOEe%|(_YKyEPH
U{Dskmg*_nH85C5T4cQvl0e9tsIsgCw

delta 388
zcmaDRy-|8XxUjLIu2*S}u91O}v4Ww6m64^D!Ne^2`n00NyllJ79J}1ql$_K`yL2dB
zoL^d$oLX$><L~Ga8ldYI>f@tlZKA25gl3L`g_WU&l0r#xer`dIdWu43o&uMWV?aQ#
z0<uCqJv}9bl*E$M6f^_GEUbVg7#S;Ra%s4E`nWm=xjKfpx=g;nC{bVS66{@TlaZgB
zYDbzY6--Qx3>CPnoIM=<++BlpL;Mvq-28$Sko=;lU=<ML8s_OA8m#LAv{6CH&_dTM
iF%KF(W<V#|TN#@vDR7bN3ggYnOg1cxTAS0@8rT6d7jaeq