Add parameter to FontSample to enable excluding output of sheets that contain only SLUGs, i.e., no glyphs. Defaults to NIL == don't exclude.

lispusers/FONTSAMPLER

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 9-Dec-2025 14:00:20" {DSK}<home>matt>Interlisp>medley>lispusers>FONTSAMPLER.;2
 14236  
+
(FILECREATED "26-Dec-2025 16:37:05" {DSK}<home>matt>Interlisp>medley>lispusers>FONTSAMPLER.;4
 14367  
 
       :EDIT-BY "mth"
 
-      :CHANGES-TO (FNS FontTable FontSample)
+      :CHANGES-TO (FNS FontSample)
 
-      :PREVIOUS-DATE " 8-Dec-2025 22:17:11" {DSK}<home>matt>Interlisp>medley>lispusers>FONTSAMPLER.;1
+      :PREVIOUS-DATE " 9-Dec-2025 14:00:20" {DSK}<home>matt>Interlisp>medley>lispusers>FONTSAMPLER.;3
 )
 
 
@@ -20,7 +20,8 @@
 (DEFINEQ
 
 (FontSample

-  [LAMBDA (Fonts CharacterSets Printer StreamType Hexadecimal ColumnMajor)

+  [LAMBDA (Fonts CharacterSets Printer StreamType Hexadecimal ColumnMajor NoSlugOnlyCS)

+                                                             (* ; "Edited 26-Dec-2025 16:25 by mth")


                                                              (* ; "Edited  9-Dec-2025 13:48 by mth")


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


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

@@ -59,9 +60,9 @@
                                              CharacterSets))
 
                                         (* ;; 
-
                                    "Exclude any CharacterSet known to reference the SlugCharsetInfo")

+
             "If requested to do so, exclude any CharacterSet known to reference the SlugCharsetInfo")

 
-                                        (CL:WHEN SlugCharsetInfo
+                                        (CL:WHEN (AND NoSlugOnlyCS SlugCharsetInfo)
 
                                             (* ;; 
 
                         "Only if SlugCharsetInfo is non-NIL, else it won't load a requested charset")

@@ -250,6 +251,6 @@
        FONT)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (655 14073 (FontSample 665 . 5357) (FontSampleFaked 5359 . 6317) (FontTable 6319 . 14071
+  (FILEMAP (NIL (645 14204 (FontSample 655 . 5488) (FontSampleFaked 5490 . 6448) (FontTable 6450 . 14202
 )))))
 STOP