Issue 1503 - add additionalPitchPrefix to allow choice of prefix for additional pitch...

[lilypond.git] / scm / chord-ignatzek-names.scm

diff --git a/scm/chord-ignatzek-names.scm b/scm/chord-ignatzek-names.scm
index aaf9703985e233ac49b59b129557a2b937ba7025..b20d32947dd75096f363447608d33ce640916851 100644 (file)
--- a/scm/chord-ignatzek-names.scm
+++ b/scm/chord-ignatzek-names.scm
@@ -172,7 +172,8 @@ work than classifying the pitches."
     (let* ((sep (ly:context-property context 'chordNameSeparator))
            (slashsep (ly:context-property context 'slashChordSeparator))
            (root-markup (name-root root lowercase-root?))
-           (add-markups (map (lambda (x) (glue-word-to-step "add" x))
+           (add-pitch-prefix (ly:context-property context 'additionalPitchPrefix))
+           (add-markups (map (lambda (x) (glue-word-to-step add-pitch-prefix x))
                              addition-pitches))
            (filtered-alterations (filter-alterations alteration-pitches))
            (alterations (map name-step filtered-alterations))