Fix #313 (2).

Reset font-name for musicglyph. Add regtest.

diff --git a/input/regression/markup-music-glyph.ly b/input/regression/markup-music-glyph.ly
new file mode 100644 (file)
index 0000000..3afe426
--- /dev/null
+++ b/input/regression/markup-music-glyph.ly
@@ -0,0 +1,17 @@
+\header {
+
+  texidoc = "Reset fontname for musicglyph. For unknown glyphs, we print a warning."
+
+}
+
+\version "2.11.47"
+
+{
+  c'^\markup
+  {
+    \override #'(font-name . "Sans")
+    { c'est un B \flat \musicglyph #"UNKNOWN-GLYPH" }
+                               % to get \flat, do:
+                               %  \normal-text \flat
+  }
+}

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 611e3eb08d36783821df171303cee0fe4a32f745..c81a0e2e8f852bcb096b264a0875d40604bacae7 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -1562,7 +1562,10 @@ the possible glyphs.
 }
 @end lilypond"
 
-  (let* ((font (ly:paper-get-font layout (cons '((font-encoding . fetaMusic))
+  (let* ((font (ly:paper-get-font layout
+                                 (cons '((font-encoding . fetaMusic)
+                                         (font-name . #f))
+                                       
                                                 props)))
         (glyph (ly:font-get-glyph font glyph-name)))
     (if (null? (ly:stencil-expr glyph))