From 87e8f2dc21bd6562edc5b78efc3437b6f18cea53 Mon Sep 17 00:00:00 2001
From: Matt Heffron <heffron@alumni.caltech.edu>
Date: Fri, 5 Dec 2025 11:13:28 -0800
Subject: [PATCH 1/2] Display in column major order. Added alternative
 CharacterSets designations. Updated documentation.

---
 lispusers/FONTSAMPLER       |  77 ++++++++++++++++++++++++++----------
 lispusers/FONTSAMPLER.LCOM  | Bin 5462 -> 7069 bytes
 lispusers/fontsampler.tedit | Bin 5306 -> 7038 bytes
 3 files changed, 56 insertions(+), 21 deletions(-)

diff --git a/lispusers/FONTSAMPLER b/lispusers/FONTSAMPLER
index ca7925e9b..4841901dd 100644
--- a/lispusers/FONTSAMPLER
+++ b/lispusers/FONTSAMPLER
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 5-Feb-2025 17:03:38" {DSK}<home>matt>Interlisp>medley>lispusers>FONTSAMPLER.;11
 9743   
+
(FILECREATED " 5-Dec-2025 11:09:30" {DSK}<home>matt>Interlisp>medley>lispusers>FONTSAMPLER.;6
 12333  
 
       :EDIT-BY "mth"
 
       :CHANGES-TO (FNS FontSample FontTable)
 
-      :PREVIOUS-DATE " 3-Feb-2025 20:08:40" {DSK}<home>matt>Interlisp>medley>lispusers>FONTSAMPLER.;10
+      :PREVIOUS-DATE " 4-Dec-2025 23:56:07" {DSK}<home>matt>Interlisp>medley>lispusers>FONTSAMPLER.;5
 )
 
 
@@ -21,9 +21,10 @@
 
 (FontSample

   [LAMBDA (Fonts CharacterSets Printer StreamType Hexadecimal)

+                                                             (* ; "Edited  5-Dec-2025 11:06 by mth")


                                                              (* ; "Edited  5-Feb-2025 17:02 by mth")

-                                                             (* edited%: "29-Apr-87 22:03")

-    (LET* [[TitleFont (FONTCREATE NIL 12 'MRR 0 (OR StreamType (PRINTERTYPE Printer]
+                                                             (* ; "Edited 29-Apr-87 22:03")

+    (LET* [[TitleFont (FONTCREATE NIL 12 'MRR 0 (SETQ StreamType (OR StreamType (PRINTERTYPE Printer]
            (FontList (if
 (LISTP Fonts)
                        else
 (CONS Fonts)))
            [Stream (OPENIMAGESTREAM Printer StreamType (LIST 'FONTS (CONS TitleFont FontList]
@@ -31,20 +32,51 @@
            (LastFont (CAR (LAST FontList)))
            [CharacterSets (if
 (LISTP CharacterSets)
                               then
 CharacterSets
+                            elseif
 (MEMB CharacterSets '(T :INCORE :ALL :INTERESTING))
+                              then
 CharacterSets
                             else
 (LIST (OR CharacterSets 0]
-           (LastCharacterSet (CAR (LAST CharacterSets]
+           (AllCharacterSets (CONSTANT (for
 CS from
 0 to
 255 collect
 CS]
           (DSPRIGHTMARGIN (fetch
 (REGION WIDTH) of
 (DSPCLIPPINGREGION NIL Stream))
                  Stream)
-          (for
 Font in
 FontList do
 (for
 CharacterSet in
 CharacterSets
-                                      do
 (FontTable
 Font CharacterSet Stream (OR (NEQ Font LastFont)
-                                                                                 (NEQ CharacterSet 
-                                                                                     LastCharacterSet
-                                                                                      ))
-                                                TitleFont InchesToPrinterUnits Hexadecimal))
+          (for
 Font in
 FontList do
 
+                                   (* ;; "Check for the special charset list builders")

+
+                                   (LET (FontCharacterSets (SlugCharsetInfo (\GETCHARSETINFO Font 
+                                                                                   SLUGCHARSET)))
+                                        (SETQ FontCharacterSets
+                                         (SELECTQ CharacterSets
+                                             (:ALL 
+                                                   (* ;; "Forcibly install ALL CharacterSets.")

+
+                                                   (for
 CS in
 AllCharacterSets
+                                                      when
 (\INSURECHARSETINFO Font CS) collect

+                                                                                        CS))
+                                             (:INTERESTING (for
 CS in
 *INTERESTING-CHARSETS*
+                                                              when
 (\INSURECHARSETINFO Font CS)
+                                                              collect
 CS))
+                                             ((T :INCORE) 
+                                                  (for
 CS in
 AllCharacterSets
+                                                     when
 (\GETCHARSETINFO Font CS) collect
 CS))
+                                             CharacterSets))
+
+                                        (* ;; 
+
                                    "Exclude any CharacterSet known to reference the SlugCharsetInfo")

+
+                                        (SETQ FontCharacterSets (for
 CS in
 FontCharacterSets
+                                                                   unless
 (EQ SlugCharsetInfo
+                                                                              (\GETCHARSETINFO Font 
+                                                                                     CS))
+                                                                   collect
 CS))
+                                        (for
 CharacterSet in
 FontCharacterSets
+                                           bind
 (LastCharacterSet _ (CAR (LAST FontCharacterSets)))
+                                           do
 (FontTable
 Font CharacterSet Stream
+                                                     (OR (NEQ Font LastFont)
+                                                         (NEQ CharacterSet LastCharacterSet))
+                                                     TitleFont InchesToPrinterUnits Hexadecimal)))
              finally
 (CLOSEF Stream])
 
 (FontSampleFaked

-  [LAMBDA (FontAsList Printer StreamType)
                    (* N.H.Briggs "27-Apr-87 18:12")

+  [LAMBDA (FontAsList Printer StreamType)                    (* N.H.Briggs "27-Apr-87 18:12")

     (LET* [[TitleFont (FONTCREATE NIL 12 'MRR 0 (OR StreamType (PRINTERTYPE Printer]
            (Font)
            [Stream (OPENIMAGESTREAM Printer StreamType (LIST 'FONTS (LIST TitleFont]
@@ -53,14 +85,16 @@
           (replace
 FONTFAMILY of
 Font with
 (CAR FontAsList))
           (replace
 FONTSIZE of
 Font with
 (CADR FontAsList))
           (replace
 FONTFACE of
 Font with
 (\FONTFACE (CADDR FontAsList)))
-          (FontTable
 Font '(0) Stream NIL TitleFont InchesToPrinterUnits)
+          (FontTable
 Font '(0)
+                 Stream NIL TitleFont InchesToPrinterUnits)
           (CLOSEF Stream])
 
 (FontTable

   [LAMBDA (Font CharacterSet Stream FormFeed TitleFont InchesToPrinterUnits Hexadecimal)

+                                                             (* ; "Edited  5-Dec-2025 11:09 by mth")


                                                              (* ; "Edited  5-Feb-2025 17:03 by mth")


                                                              (* ; "Edited  3-Feb-2025 20:07 by mth")

-                                                             (* edited%: "29-Apr-87 22:36")

+                                                             (* ; "Edited 29-Apr-87 22:36")

     (LET*
      ((Family (FONTPROP Font 'FAMILY))
       (Face (FONTPROP Font 'FACE))
@@ -119,10 +153,12 @@
             (DSPSCALE NIL Stream)
             'PAINT Stream)
      (CL:UNLESS UseDisplayFontBitmaps (DSPFONT Font Stream))
-     (for
 YPosition from
 (TIMES 9 InchesToPrinterUnits) by
 (MINUS YCellSpacing) as
 YCounter
-        from
 0 to
 15 bind
 (CharacterCode _ 0)
+     (for
 XPosition from
 (TIMES 0.75 InchesToPrinterUnits) by
 XCellSpacing as
 XCounter from
 0
+        to
 15 bind
 (CharacterCode _ 0)
+                   [RangedCodesStreamType _ (MEMB (IMAGESTREAMTYPE Stream)
+                                                  '(DISPLAY INTERPRESS]
         do

-        (for
 XPosition from
 (TIMES 0.75 InchesToPrinterUnits) by
 XCellSpacing as
 XCounter
+        (for
 YPosition from
 (TIMES 9 InchesToPrinterUnits) by
 (MINUS YCellSpacing) as
 YCounter
            from
 0 to
 15
            do
 [LET ((CCode (IPLUS (ITIMES CharacterSet 256)
                                   CharacterCode)))
@@ -137,8 +173,7 @@
                                                                                    RelativeDescent))
                                          ImWidth ImHeight 'INPUT 'REPLACE))
                      else
 (if
 (AND (NEQ CharacterCode (CHARCODE FF))
-                                   (if
 (MEMB (IMAGESTREAMTYPE Stream)
-                                             '(DISPLAY INTERPRESS))
+                                   (if
 RangedCodesStreamType
                                        then
 (OR (AND (IGREATERP CharacterCode 31)
                                                      (ILESSP CharacterCode 127))
                                                 (AND (IGREATERP CharacterCode 160)
@@ -185,6 +220,6 @@
        FONT)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (657 9580 (FontSample 667 . 2302) (FontSampleFaked 2304 . 3113) (FontTable 3115 . 9578))
-)))
+  (FILEMAP (NIL (655 12170 (FontSample 665 . 4700) (FontSampleFaked 4702 . 5524) (FontTable 5526 . 12168
+)))))
 STOP
diff --git a/lispusers/FONTSAMPLER.LCOM b/lispusers/FONTSAMPLER.LCOM
index 3f4909fdb18bd19e434ab56f54176f8ea4415fae..d6fe873ea10db682d2e6871625bdf96cc3e04d7c 100644
GIT binary patch
delta 3570
zcmZWsO>A3P6^`w;)1<#nLMMts=8P4EBucDz?)&$YDlhg+@>=^{kNx^L40>cHo+NFW
z3~dH9jD%SL3nV0ph1l@7Ku80dq#+9y$UC4bid04;U@=H6_}N72iVfwv&v6n;B**XF
zd+s^+e&0FgyZ&hEhxT{g$d(#!&j?MJ#9Ywag04Nhdu_;?q#PMD$L9>piHE;0OdJm8
z^Z6VtFKsoJ|IgUe3TBH_pBgwc?t0JB!>>B0EMlSSt?#F<4jhXj^nz&>H2dKPucfd&
zJvgYlR9s!Uzx4K2<9@xdMOD(B))&%)pA$M2>v(1J;9H~l&5f<&#t$&<Qhois6*c;x
zu@!8*vxzY$vBZP*KfaZ@N#6Q;>r3gMz=jNsrh+i?YkoZn!iAaQqF1Z?QGIHX($Pe!
z=j7`8*_9sr-6`&!p6gXlZ=Gssna{qOJ?SlHb_bR>)mWeU_tU-1oz>xN>QplH>()0i
zW6j5-8|j`Wk9)G&zHm8lwEyT%yOQ-T$V-{M({iYPr{`~}c(g4qJ|2~$pTKl?QeHfz
z{3Qc&R9;NHXEXhhWbTO^8|-PzvHnMcax@-k%i+C#IkGw&5644oc_|%V+Wt_EjK{<6
z?Pn`JO}N>Aw05(a^<I|anZ1|fME~|yD$aM}<zI}K|3u~w;|)tqiYL-g@eCC&A5XXC
z6yi-I-c&r%mgDJoeEa8edOV&&yl`#*!|o}6pbq&;Q(Bq58R_)LgIRA(&Sv&rmveYo
zPLNDx`#&SEX7;`~Fd)yT<MTWJ`E4q`(%IS-wKc@N5?^l10%Bf9%tGw6rIn7Y?O({t
z<8c8oQ}JS3_9y5qswMlogK{yRZ_5(a%r~*96wkHgY&xFZ{<@qWk4wp-5K&}!RbDLb
zukP>l%229@#cQQ=FDdBT@@hK1y7PRcXTo&MB$uM4x7HhE=z_{#JtAE<=*?oy_agrw
zXGkDlUl?kzVNkIw>;627!KG5YS_>8yql#Bs2to{LYN%Kas#RoP&0h#)NUlQ_zcNR*
z(+Ooc%BWuS%08Jo$*La)6>k9<i|`c^W=o#<bW?XNDg<Fs)_l_8cV323$*&h{K{b*!
z61J<R4>O&F=DujdmQ4k(TqZ*#Q+2YbQmak&O`vZGn$U<zkWL0_$ike1(qjxV4$>sn
zi49e&jKa5x9by+zNMMm5U?U9dm4t=8kZ=fa=o;ya-2zPlp1Mi8MY@gpCo~1rron12
z20|KSm}FRF*km|lxMXT%GMPd_Vj9#mO)@PqZ89A)U9vQ?m@Gk-PL@Fyc5D&O2QV#{
zY>jLtTac}jZIEq}jRV;Va^U1><S;pc9Gx74kN}QF4$kY4<C3e9%j61jb#e`IO#<?6
z(^kB>3J@To0TNB%157l4q5%~RuxP+V12Djz6XakAWLaUSz*Fcc_!NE$Kp?1cgn=Og
zMD$a9V5d4cfMg)afD);t@P{GbWZ=mFlz}J%QU<0BP#LH)U}fOS0G5F)16q}$3~(9f
zGT>$4%K(^xFau%+#te`dC^JxIz|6pz0W<??2GnddVF<Jta5L~`0M0;Mr4$2m2Ivgb
z8L%^OX8_MYo&h}rdj|Ln^cnCo@MjRfV1PjZg98Q$3>FwPFnC}P!C-<x1%nH2f(-^8
z3_ciyunR*l!k|Qe5&=q}fcPL0L5Tn*0+a|)B0z~M2LVb1vRQx<0ZIfY5uikX5&=pC
zC=n{DRaPfy4Lg<Cprk2OZmZ;0*{#wW`7J<+03`yHKnn4JLr@|>i2x-6ln78FK#2e)
z0+a|)B0z}%B?6QPP$EEy03`yH2v8zGi2x-6lnB$D>?1d)(?oRG0Fo*`Uhb2qhTX57
z_(LYu+p3*@cJ81-bQ)Nz*jsJ=toM6Ooq~He*Os?dA(KeA;ND_mZDmy{GEN)ZtFL{f
zp`JBbSbzUrWdtya#m!|k3T$o{H{aWUh^sf7ZdW%StZl7rZm3t2YD*g{jb&y0puTm#
zv2-tb|J`IA8svfcw|?Ar=EALGP6XZB{Z-#9sfz}cgL?JWVo;AJDf7-y>+feixRg3E
zo5;xTdJn$){*_IgY<>Cc<&@U?<=JmG6CL(Hy0hF7?jxnnp1dH3<)vre-Rb%3`i1pg
z*eH1&lca`ryp2@PpXA8L+0=j>lDWAvi6oRCU6bRp9W71`%8Av^c=pwo<y4}mQ)#7-
z69}hP$?37mKmP$aolayw`FAc^JutAX%aQf7`@7R}wDsq6G&??*Otc5&$lZ^XsORp;
z^M8CA=OFZVpT=W5&%=Ra_iG(HITSusazBj8;hpEBt=G<nAog45e}guJ77vj@%VNTJ
zh(?CYfq;bm%_>v_uUdBk>9|mWf}z)m?igy|U>T~UJX7@QK6)bVN<rBVy^22{_~jBB
zB}T57%W4EKkekkQvpbJkKbl8V==ijeycK!Fk0hF}-d)sPgOWR1gSzaju@DN|zg?B}
zAX55hp-(7v>m)Dwx_va?ObpPK)Y>S#UP1G>x{gqV2QCpCE|nA1h1K1X3CA4+6NQ<0
zC>CYOhvHZ?cWo|+=E@P&$R<2iylO{<gEwG+;$QHi;$qXQb><*lde^TGDiTH4ar|S_
z9o?=%tI-#_d(qKIN;U6hIS4U<E`*7W?hEwC!x@3*dNhO3^`KC|4c3pYH^ZAjSVHk?
z^k(G-iY7wo9=pJJnwB&|t(zu{zS%jmYPrdo6>6$y9}J^k9Yb45&hb~I%kdMnew4kw
z1ecw>KyxqoH-aKk1Rb$lji9;?ElTXlK+e?sYT3i20lOfqUdOEpeWU7uIouJDhn**c
zI67c*zSg(<z4Io1kSuR*H1PYx5pL@*{jW4F%1vX`hC1a4jR%kDrdl5Ij*hG4mCob%
zIVXop0M@gG2V3;fjFwk-1l)1vgIfgoN54c09K11pDOu2n#DN6|$%6?Q%OSW9J)9_^
zJ(Zi@ZJZ;iKfhj|#Fgg2R9E+ayfFK4=~4SYS63H_JUTlxE_sI&H?KNBt{-`Hc_=~h
j4)iswOoT7@dJc`%=xz&}R9dW#r?gwk@BVw>^Qr#=*v(y7

delta 1953
zcmZWq&2Jk;6u0B1G^S1B*pxIx@UTkdM2$7G-)pGU^?L1Wv%9nGZoVoclVZ~(P2;K!
z2dIQ^91uc;72H4^_ygKTkvLHKfK>H_gcPc(0*Nbdspu7{yj|N#N%yex=Dpv%dGp@y
z&3q$2nEv8orrNwT!x2sdDwhaf64dQ0bEhbsf;<Q_|1*juLEiqkRM=M*i^V)NR<@dr
z=fP5mge3V=b|2hz&ntP@{#ZFmDX6j#ex1CK<qvk@NQo#Vfo$J=vqs5Oy4u>@@>i~2
z+h{_mqNEEhsGzT|Twi%_t9jjTZh;F5L?9F-uvTtt9kPlL-W&LCVhR#>(}~33>c;WQ
z3H;Xe-DBmUND9AAof}Uc(Hg1mcT?-D6Pe_o9UGFF<k9fo)aiD|zV$`}XG3h1ja^`)
z*5lR3yT{m=gX8R6<-`k-o9sYp_ct~?P#?baQ=&j+F^(!&xrC8Zo(J7xzEK5A6{z^G
zXVzu|Tk~qB1C*$dO1DhcHJzGg)J*1ps(_{W0mxFWD@am=@^#HJK%}93oa6)oRptaf
z$Y6WkRJs77y7NQ&mlOv6>F|^Avk@mtxh|+;__}Ah0rMbyH1gE~2j<nqwZ_&eCXS;x
znQg9JUX9X-3(Twj+DA>4sS34?53fZa3|!Y+jaVzglHU4Y6H5>oBv^7=H`cb+TASe?
zqo+oepRsYUymKt`T5^;J%k<r)S<?@uAa&{GP#(LP%M6}B8YS=kP;X5CeK)*6_ExeO
z4rV`TZwwg^)*G24!)$_`eDdY(#6KG&tq70mOe(|j?A1v7qqdn$JYtg%Gs!UqY`pwp
zgy~p!=Gf`;SoB09lgzR+t6hEO^^>fSte@?$!a#kx!_KTX%F!w|ZU6NrJIkhHenh`;
zB9|W5*yP6X$2+AiS>oMemtipn=TDboxszp+S02_UI}Dt?I&@h6%3eKx`>CFd@oQZW
z8((L`zwXt?J8S~&6Stq92tUs`SgYT2_u4!JhKIZWMU(+Yhk_!AQOO-+(bZ}OD7@4+
z@C0fVEkGSsr3WVaRzkp<(KX)ySrwpaT85+9M%6T|3djm-<}EAIfGkUWbGvUxnjP3h
zwdY+HkYa4X2pGu7i9<e-zz1sx-&-T$Rv7-W%X~A4C@o3+A%!T$*ua@@+aL*Ce<jyH
zm4ut2kBH?UQLZ0@DAOKP<b|#aU1t>o1XTpvu*)DQBA7O&%?~_7vx8+9jgkW8xw09Q
ztpEh{jH0c%F|6&I7ZE{Zs2PDit9e};@R7sr!FitU$HH?QR6K3bG93eWN+LtIH9743
zeGAt;anHi>;G3nAXZS`i?<|^51v^iHckBhrj9Q(e{K2K65ke^TpVH?ARr_bAa<?p)
zHXFOISNHJ5`1@@|g<fSbR%5}`vB;bNmWvk&6=0U(Hj<1Kz=S??BM1@)p5a;=;sxZN
z>A3R&o(s#PnV5PGGuM-d^4uXPkC$ES@Rj{LhH~<uO~So#txfTnXtXw)_-ZKl;1nVf
zSD9yP0XVD}m`F<B#VGtKq&5fnvxt{P9{;V)NaR%@MG;31N6fUO%8<tgMZ)Cdsf2>0
zq+x~>1*DS#g{rv(1e7U|kSB#|JDySr=S1jw5Ya>IN|Z#%V_bqtFfP2SENvMR5qG8G
zV?aE1LyY93!W20%4IK6tDN4X8GN?rvN79{(0?v8hux*qg!I8xCX%1fkf=lr>#ogY{
W<CDuh6D7rU(fOz#?3|l;H~AkJS?D_e

diff --git a/lispusers/fontsampler.tedit b/lispusers/fontsampler.tedit
index d23d0de04bccea31143fd1eb39cd13f70514748c..b141d3592ce4e1bf147f980c811c7c340739f38f 100644
GIT binary patch
delta 2267
zcmb7GOK%%h6ux$n5&{*Fh6+>(9cZQ6kvmn=BvfI6j6F?8_=P<nDpof$*O?*Xxx?H^
zU9%anV2|WoSBMo`lwCLc0)7DtmMq!u*dW3=cV_IQKvUw3b^YD*_|A9EvHZCD*Und8
zFE@oFMh7DP?%S(nW01sxkL*b#z!gJ&93%=736);o>ey!AzTY#U7yDr%;;OMS{l5I_
z^v7}|wG!Zgk}%>EI1nI1e1?#C0s=qbi5w}gYp`o|8r{B$hkC130~r&7QO$vEb@q(n
z9!7$P3Ihh<cs%9~CIcmiiN`TfEbtC#x)TT_cZF-DP_e;RAU-?xAMikg36ajz8C9L{
zKciw^qyu9g^YJ7Rqey#G=zrtDqbQj8;UNqqrg5Z*9Y2+!GQjqb0{#d7kq9Ql0Hr`i
zi2xPI@tfzWEevxl#6w45UKyg}5QQP>o+#cAb3s)C>t}Sk)!0w#{efu@)(x=2j5Ak4
z)qsbS^HE^z`Hn}qU4g2O{7|?#QL1~AserWAksn2<EL1E*7&Y*R;9~<C`#O`=x!0v2
z<_F}Qc&Rvdled1*`fx9IsFFHDJy8=Xr7$Qp^b8$8bVVfaElhGT1V_$VZkcIt52Yua
zRbpURaHlsGJ}Ir7e6g^!l-d%MC&yYV#Ya(q#dty_fckN)FLdR&2FJ+dX44w<TJ`(D
zX|hBy*QlBc9jjHq^Ocyl_&{J2Fouf(6EABU2ZdviV!m^Y)9uXe@QSK1po{6^v9Cl8
zbZzR`afDL-1LS&^vYyFUL;-h%rWnPztS(I-u9$AHn<XdyLqFs}N;g>>V=>}>XslS-
zCR*+K9&TFSthe<V=UvLTnc69^7F@ML792x8W<6ZcL5=c<^JIs?B=S^NJ`OkBg##K8
znP$o65;)Qoq&+c=d3Y!k+}VWFQ})Y^QwAHGJ6i9JosAi`xxJkgfOF{j3ag(8_Z^U$
zTqKpB__%K~lY@YVM^FhRuB|671C1SMdR61(%jN6K>1}qY-EErv4qIXLcdbHW+3R<E
z1E@5*t!^I-c&}A&ykD*2wZWG5>S*z7))xm)=g~`yU2H!$FEh5mmhl_1ZFTA`w)`yY
z=kW{k^r_Wuvgh~B)<>poHU4+SFJ4FpE4cmfO#Vw3+M~fOw%F?Kb=hkd8lT8lHcO?&
z={KwE`2NG{>!pS1&#PPM0(!2KH_FYPqXQvJbRa|z0U=ilL|+l|s6ZGi<BPG&1klZ|
zbRci~z!vcd=s<|}Mx@lqkZul<<+Tht6X@LnDN_7i058yioW=#Bb1h6CU1?%vKV5n2
zZ33Fb?Nch-Dr~Y^r+3%ZQ%y53OE-dwC`jxU4zr*y7syO5D3CQekheA_2{d&=BtBY{
zBJdjpaAy`dEFff5*2XXW1IeVECTrVUm5N?h6Ms82@n-^VN4wD&RI63Jz(o9dvu>Na
QpZ@vq57hZLmVEyBZ^^AKL;wH)

delta 522
zcmexowo7xu0uHy-q@vQqqRNdc#F%&#oHG)O5|c|(i-J=p2QW!Z=3=&DRG7SrHGxS%
zVY4(FE9+)0UL}rt5e7D2e;3yvKL#!a7!YP)b$4|3a6}TqP{zc-AjZHE;u_@Z>F4Of
zzyZ_CfT5C+0Z9y@PMm?$!_~(l%r(T*8M{q95Ho=`A<Sfh+atul;^Xh`&maL2*{mpT
z#K_1zIYdGWNY+b8GO|vdDPdC23Y69YDFHfzfgQvEiGVOz1ng-LPYfmkmI4vEFcDr5
z10<4xF2ZOA6X6CiKx)ciBFtcs$+IP0fG&9;sbmh4b%Dv^aft~`4a9AeEv2-CSU_S7
jOhCxM01g7?$)eJxf-a6Bu2z{fH>NT$a0W6&R_y`+(6l;S


From bed9819009537d769b39543acaade00a06872f50 Mon Sep 17 00:00:00 2001
From: Matt Heffron <heffron@alumni.caltech.edu>
Date: Fri, 5 Dec 2025 16:37:48 -0800
Subject: [PATCH 2/2] Correct documentation re: sample sheet in a window.

---
 lispusers/fontsampler.tedit | Bin 7038 -> 7106 bytes
 1 file changed, 0 insertions(+), 0 deletions(-)

diff --git a/lispusers/fontsampler.tedit b/lispusers/fontsampler.tedit
index b141d3592ce4e1bf147f980c811c7c340739f38f..7d4bb12d4728749130526b0144de691011987b3e 100644
GIT binary patch
delta 184
zcmexocF25#7k9mai)V0vk7J}lVzEL=Myf(^Nl|KIZb)T8s-8l4Mq){7S!$6&X0bv+
zVsUY53P@EzQD$BVP_R5RCr2SE6|Ac~GcP5-Tp=X0BqvotqckrkwYXTp&(lYtJR>tX
zLm@r0EVWo6FCU^nQ%^x5Bm-zB5N&SdX5p9NVgLeWAeI0z7=f4_!~luJOkOH=p6h4_
M0|TEWLrK*x0BGShvH$=8

delta 107
zcmX?P{?BZK7q^kRi)V0vk7J}lVzEL=Myf(UQD$CAYLP->UW$UBrw>dxxTGjGF*l^L
uAXRVk0d8J?8FmIBU<P6V5Q7njxj+n%h{EKTQs=oUzB4fJeq|`B+64f%pd5$*