(process_music): use octavation

[lilypond.git] / scm / chord-entry.scm

diff --git a/scm/chord-entry.scm b/scm/chord-entry.scm
index 52643961ba655f5cb9c2ec177ce3976651713f6d..7c9bbfe8398faa0430e2f66dfd69aec63b2995f2 100644 (file)
--- a/scm/chord-entry.scm
+++ b/scm/chord-entry.scm
@@ -244,7 +244,10 @@ DURATION, and INVERSION."
     (if inv-note
        (begin
          (ly:set-mus-property! inv-note 'inversion #t)
-         (ly:set-mus-property! inv-note 'original-pitch original-inv-pitch)
+         (ly:set-mus-property! inv-note 'octavation
+                               (- (ly:pitch-octave inversion)
+                                  (ly:pitch-octave original-inv-pitch))
+                               )
          (set! nots (cons inv-note nots))))
     
     (make-event-chord nots)