* input/regression/newaddlyrics.ly: Remove lilypond-book kludge.

[lilypond.git] / input / regression / apply-output.ly

diff --git a/input/regression/apply-output.ly b/input/regression/apply-output.ly
index ef3c9947044ee2704c166bdf996be73a72b6a9a4..426e64f9f0c56e65edec5c78096c3fde805d6492 100644 (file)
--- a/input/regression/apply-output.ly
+++ b/input/regression/apply-output.ly
@@ -1,5 +1,5 @@
 
-\version "1.9.4" 
+\version "2.2.0" 
 \header {
 
 texidoc = "The @code{\applyoutput} expression is the most flexible way to
@@ -14,15 +14,15 @@ position.
 #(define  (mc-squared gr org cur)
   (let*
       (
-       (ifs (ly:get-grob-property gr 'interfaces))
-       (sp (ly:get-grob-property gr 'staff-position))
+       (ifs (ly:grob-property gr 'interfaces))
+       (sp (ly:grob-property gr 'staff-position))
        )
   (if (and (memq 'note-head-interface ifs)
           (memq sp '(-2 -3 -5)))
       (begin
-       (ly:set-grob-property! gr 'molecule-callback brew-new-markup-molecule)
-       (ly:set-grob-property! gr 'font-family 'roman)
-       (ly:set-grob-property!
+       (ly:grob-set-property! gr 'print-function brew-new-markup-stencil)
+       (ly:grob-set-property! gr 'font-family 'roman)
+       (ly:grob-set-property!
         gr 'text
         (make-raise-markup -0.5
                            (case sp
@@ -37,7 +37,7 @@ position.
 
 \notes \context Voice \relative  c' {
                                      \stemUp
-                                     \property Voice.autoBeaming = ##f
+                                     \set autoBeaming =  ##f
    { <d f g b>8
      \context Voice \applyoutput #mc-squared