add ly:pitch-transpose rule

diff --git a/ChangeLog b/ChangeLog
index 6fce883f2ad5c5e6a7f257abd100f0eedee045c2..9e67424fe9779980c8c9df32ebbc6a9c376c8f0c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2003-01-07  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+       * VERSION: release 1.7.11
+
+       * scripts/convert-ly.py: add ly:pitch-transpose rule
+
 2003-01-07  Jan Nieuwenhuizen  <janneke@gnu.org>
 
        * scm/double-plus-new-chord-name.scm

diff --git a/scripts/convert-ly.py b/scripts/convert-ly.py
index f4689e1d8ee246de682f03793be9e1e571ce2dea..851916ba0e7e3a79c93dd46c786229a472e59a2f 100644 (file)
--- a/scripts/convert-ly.py
+++ b/scripts/convert-ly.py
@@ -1123,6 +1123,14 @@ if 1:
                return str
        conversions.append (((1,7,10), conv, "\property ChordName #'style -> #(set-chord-name-style 'style)"))
        
+
+
+if 1:
+       def conv(str):
+               str = re.sub (r"ly:transpose-pitch", "ly:pitch-transpose", str)
+               
+               return str
+       conversions.append (((1,7,11), conv, "transpose-pitch -> pitch-transpose"))
        
 
 ################################