(texidoc): cleanup.

[lilypond.git] / input / regression / tuplet-nest.ly

diff --git a/input/regression/tuplet-nest.ly b/input/regression/tuplet-nest.ly
index ee45781503a56ccebd5473989c3cb0377268c99f..1138d18c5cae9b0396ec2c885e4a7c6fe7619d50 100644 (file)
--- a/input/regression/tuplet-nest.ly
+++ b/input/regression/tuplet-nest.ly
@@ -1,12 +1,17 @@
 
-\version "2.1.25"
+\version "2.3.17"
+
+
 \header {
-  texidoc="By a manual hack for nested tuplets, an outer tuplet can be moved up."
+
+    texidoc=" Nested tuplets can be printed, using a manual hack to
+  move the outer bracket up."
+
 }
 
 #(define (make-text-checker-once text)
   (lambda (grob) (and text-checker-once
-                     (if (equal? text (ly:get-grob-property grob 'text))
+                     (if (equal? text (ly:grob-property grob 'text))
                          (begin
                            (set! text-checker-once #f) #t)
                          #f))))
@@ -14,13 +19,14 @@
 #(define text-checker-once #t)
 
 \score {
-  \notes\relative c'' {
+    \relative c'' {
 
     \set tupletNumberFormatFunction = #fraction-tuplet-formatter
 
-    \applyoutput #(outputproperty-compatibility (make-text-checker-once "2:3")
-                  'extra-offset '(0 . 1.5))
-    \times 2/3 {
+    \applyoutput #(lambda (gr org cur)
+                  (if (equal? (ly:grob-property gr 'text) "6:4")
+                   (set! (ly:grob-property gr 'extra-offset) '(0 . 1.5))))
+    \times 4/6 {
       \times 2/3 {
         a a a
       }