New upstream version 2.19.80

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

diff --git a/scm/chord-entry.scm b/scm/chord-entry.scm
index 23601a8deaba4e54a3014c0b2fcdc8dd9c324dd1..76897afc47628ade0b8f5a06c2e39be96742f79d 100644 (file)
--- a/scm/chord-entry.scm
+++ b/scm/chord-entry.scm
@@ -153,7 +153,7 @@ the bass specified.
     ;; if sus has been given neither 2 or 4, we add 4.
     (if (and (eq? lead-mod sus-modifier)
              (not explicit-2/4))
-        (set! complete-chord (cons (ly:make-pitch 0 4 0) complete-chord)))
+        (set! complete-chord (cons (ly:make-pitch 0 3 0) complete-chord)))
     (set! complete-chord (sort complete-chord ly:pitch<?))
     ;; If natural 11 + natural 3 is present, but not given explicitly,
     ;; we remove the 11.