Doc-es: various updates.

[lilypond.git] / input / regression / scheme-text-spanner.ly

diff --git a/input/regression/scheme-text-spanner.ly b/input/regression/scheme-text-spanner.ly
index 2fc7949e2986c2fd3e92094042a6bb7fa11aa50a..71bc1ff61d9da6f4f56d664cc293db24e502026c 100644 (file)
--- a/input/regression/scheme-text-spanner.ly
+++ b/input/regression/scheme-text-spanner.ly
@@ -1,4 +1,4 @@
-\version "2.19.12"
+\version "2.19.21"
 
 \header {
   texidoc = "Use @code{define-event-class}, scheme engraver methods,
@@ -68,7 +68,7 @@ in scheme."
      (SchemeTextSpanEvent
       . ((description . "Used to signal where scheme text spanner brackets
 start and stop.")
-         (types . (scheme-text-span-event span-event event))
+         (types . (post-event scheme-text-span-event span-event event))
          ))
      ))
 
@@ -97,7 +97,7 @@ start and stop.")
        (ly:spanner-set-bound! spanner RIGHT item)))
 
 #(define (axis-offset-symbol axis)
-   (if (eq? axis X) 'X-offset 'Y-offset))
+   (if (eqv? axis X) 'X-offset 'Y-offset))
 
 #(define (set-axis! grob axis)
   (if (not (number? (ly:grob-property grob 'side-axis)))
@@ -105,7 +105,7 @@ start and stop.")
         (set! (ly:grob-property grob 'side-axis) axis)
         (ly:grob-chain-callback
          grob
-         (if (eq? axis X)
+         (if (eqv? axis X)
              ly:side-position-interface::x-aligned-side
              side-position-interface::y-aligned-side)
          (axis-offset-symbol axis)))))
@@ -185,7 +185,7 @@ schemeTextSpannerEnd =
   }
 }
 
-\relative c' {
+\relative {
   a4 b\schemeTextSpannerStart c d |
   \repeat unfold 20 { a4 b c d | }
   a4 b c\schemeTextSpannerEnd d |