]> git.donarmstrong.com Git - lilypond.git/blobdiff - scm/new-markup.scm
* scripts/convert-ly.py (FatalConversionError.conv): conversion
[lilypond.git] / scm / new-markup.scm
index 248047def9e973ad7304052e5faf3a43e8f4dc73..e78ef4184e5c39f2e16e1af7c8a63c626112cb65 100644 (file)
@@ -658,17 +658,16 @@ against SIGNATURE, reporting MAKE-NAME as the user-invoked function.
 
 (define-public (brew-new-markup-molecule grob)
   (let*
-      ((t     (ly:get-grob-property grob 'text))
-       )
-    (if (null? t)
-       '()
+      ((t (ly:get-grob-property grob 'text)))
+    (if (markup? t)
        (interpret-markup grob
                          (Font_interface::get_property_alist_chain grob)
                          t
-                         ))
-  ))
+                         )
+       (Text_item::text_to_molecule t)
+       )))
 
-(define-public empty-markup `(,simple-markup ""))
+(define-public empty-markup (make-simple-markup ""))
 
 (define (interpret-markup  grob props markup)
   (if (string? markup)