* input/regression/finger-chords.ly (texidoc): new file.

[lilypond.git] / lily / parser.yy

diff --git a/lily/parser.yy b/lily/parser.yy
index ffbb9d01d20d579be7226d4ef3912fe288a2bf21..7dd73519b59b8f7233e64b3860aaa44c51b04b34 100644 (file)
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -1626,11 +1626,9 @@ gen_text_def:
                $$ = t;
        }
        | DIGIT {
-               String ds = to_string ($1);
-               Music * t = MY_MAKE_MUSIC("TextScriptEvent");
+               Music * t = MY_MAKE_MUSIC("FingerEvent");
                SCM finger = ly_symbol2scm ("finger");
-               t->set_mus_property ("text",  scm_makfrom0str (ds.to_str0 ()));
-               t->set_mus_property ("text-type" , finger);
+               t->set_mus_property ("digit",  gh_int2scm ($1));
                t->set_spot (THIS->here_input ());
                $$ = t;
        }