X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=python%2Fconvertrules.py;h=3c9caad397a8e72d65b80279172b71fcc8b691ee;hb=b2f85298979e5d3516c313900cda9c6129b96d25;hp=444d04d46162debd75d34b922e012849b1b1d31a;hpb=6c9b2025b984b80306003356eb23fb417be05a73;p=lilypond.git

diff --git a/python/convertrules.py b/python/convertrules.py
index 444d04d461..3c9caad397 100644
--- a/python/convertrules.py
+++ b/python/convertrules.py
@@ -3824,7 +3824,16 @@ def conv(str):
                       r'(?=\s|[()]))(' + paren_matcher (20) + ")"
                       r"(?:\s+parser(?=\s|[()])|\s*\(\*parser\*\))", repl, str)
         return str
-    return inner (str)
+    str = inner (str)
+    # This is the simplest case, resulting from one music function
+    # trying to call another one via Scheme.  The caller is supposed
+    # to have its uses of parser/location converted to
+    # (*parser*)/(*location*) already.  Other uses of
+    # ly:music-function-extract are harder to convert but unlikely.
+    str = re.sub (r'(\(\s*\(ly:music-function-extract\s+' + wordsyntax +
+                  r'\s*\)\s+)\(\*parser\*\)\s*\(\*location\*\)', r'\1',
+                  str)
+    return str
 
 @rule ((2, 19, 24), r"""music-has-type -> music-is-of-type?
 \applyOutput #'Context -> \applyOutput Context""")