(make-font-tree): new function.

diff --git a/scm/new-font.scm b/scm/new-font.scm
index a682fa62e73d3d40f9a0e031f7f7eb1f2329dd49..5195b77dbe5709756ff4373fb0b0e18bf7c222cb 100644 (file)
--- a/scm/new-font.scm
+++ b/scm/new-font.scm
@@ -122,9 +122,6 @@
                   (lookup-font (hashq-ref (font-tree-children node)
                                           def) alist-chain)))
         )
-      (if (equal? (chain-assoc-get  'font-family alist-chain) 'sans)
-         (display (list "...........\n" node alist-chain)))
-      
       font))
    (else node))
    )