From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 14 Mar 2004 18:03:34 +0000 (+0000)
Subject: (make-font-tree): new function.
X-Git-Tag: release/2.1.31~7
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=89ac81cbc34eb743aa7ced8215900ec36f680aaa;p=lilypond.git

(make-font-tree): new function.
---

diff --git a/scm/new-font.scm b/scm/new-font.scm
index a682fa62e7..5195b77dbe 100644
--- 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))
    )