* lily/note-spacing.cc (get_spacing): less space at EOL in case of

[lilypond.git] / input / test / smart-transpose.ly

diff --git a/input/test/smart-transpose.ly b/input/test/smart-transpose.ly
index c646cebc2d10a0dcb899ce96605abe5e025eb48c..cb2d0e88f335f37710847b9faf518bf54d6b99d2 100644 (file)
--- a/input/test/smart-transpose.ly
+++ b/input/test/smart-transpose.ly
@@ -1,5 +1,5 @@
 
-\version "1.9.6"
+\version "2.1.25"
 
 \header {
 texidoc="@cindex Smart Transpose
@@ -26,13 +26,15 @@ how useful these enharmonic modifications are. Mats B.
          (n (ly:pitch-notename p)))
 
     (cond
-     ((and (> a 1) (or (eq? n 6) (eq? n 2)))
-      (set! a (- a 2)) (set! n (+ n 1)))
-     ((and (< a -1) (or (eq? n 0) (eq? n 3)))
-      (set! a (+ a 2)) (set! n (- n 1))))
+     ((and (> a 2) (or (eq? n 6) (eq? n 2)))
+      (set! a (- a 2))
+      (set! n (+ n 1)))
+     ((and (< a -2) (or (eq? n 0) (eq? n 3)))
+      (set! a (+ a 2))
+      (set! n (- n 1))))
 
     (cond
-     ((eq? a 4)  (set! a 0) (set! n (+ n 1)))
+     ((eq? a 4) (set! a 0) (set! n (+ n 1)))
      ((eq? a -4) (set! a 0) (set! n (- n 1))))
 
     (if (< n 0) (begin (set!  o (- o 1)) (set! n (+ n 7))))