From: hanwen <hanwen>
Date: Sun, 14 Sep 2003 11:08:59 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release/2.1.3~170
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=21f13a05adc2e02f41d3a28ddf1d89e5c5e662ab;p=lilypond.git

*** empty log message ***
---

diff --git a/ChangeLog b/ChangeLog
index 30c7098379..d0090e04e1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -5,6 +5,8 @@
 
 2003-09-14  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
+	* scm/new-markup.scm (musicglyph-markup): undefine font-name.
+
 	* Documentation/user/*.itely: manual tweaks
 
 2003-09-13  Juergen Reuter  <reuter@ipd.uka.de>
diff --git a/scm/new-markup.scm b/scm/new-markup.scm
index ae33e0ebcf..8781a7304d 100644
--- a/scm/new-markup.scm
+++ b/scm/new-markup.scm
@@ -189,7 +189,7 @@ A=1 is right, values in between vary alignment accordingly."
 
 (define-public (musicglyph-markup grob props . rest)
   (ly:find-glyph-by-name
-   (ly:get-font grob (cons '((font-family . music)) props))
+   (ly:get-font grob (cons '((font-name . ()) (font-family . music)) props))
    (car rest))
   )