Issue 5167/6: Changes: show \markup xxx = ... \etc assignments

[lilypond.git] / lily / lexer.ll

diff --git a/lily/lexer.ll b/lily/lexer.ll
index 19f84616f36ca3d38179f397daddfb1291a1d9ab..dde8fc00dc98a9050bd6fb766b0e28d175ec6cc4 100644 (file)
--- a/lily/lexer.ll
+++ b/lily/lexer.ll
@@ -417,6 +417,19 @@ BOM_UTF8   \357\273\277
 
        sval = eval_scm (sval, hi, '$');
 
+       if (YYSTATE == markup && ly_is_procedure (sval))
+       {
+               SCM sig = Lily::markup_command_signature (sval);
+               if (scm_is_true (sig))
+               {
+                       yylval = sval;
+                       int token = MARKUP_FUNCTION;
+                       if (scm_is_true (Lily::markup_list_function_p (sval)))
+                               token = MARKUP_LIST_FUNCTION;
+                       push_markup_predicates (sig);
+                       return token;
+               }
+       }
        int token = scan_scm_id (sval);
        if (!scm_is_eq (yylval, SCM_UNSPECIFIED))
                return token;