X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Fhara-kiri.ly;h=793274bde08e4026b44ef6ea4587e73f31707e14;hb=3db08de4502e30616808fc348b054d32822e5cc4;hp=0058297c1c828f2ea4da3ae6c72a36a724e5aa63;hpb=d8138e9ca4e95622dfebfa470dce64d23eaf2931;p=lilypond.git

diff --git a/input/test/hara-kiri.ly b/input/test/hara-kiri.ly
index 0058297c1c..793274bde0 100644
--- a/input/test/hara-kiri.ly
+++ b/input/test/hara-kiri.ly
@@ -1,9 +1,8 @@
-\version "1.3.146"
-
-\header {
-texidoc = "Hara kiri staves disappear when empty "
-}
-
+\version "1.7.19"
+% TODO: check if we really need both hara-kiri-switch.ly and
+% hara-kiri.ly.  -gp
+\header { texidoc = "@cindex Hara Kiri
+Hara kiri staves disappear when empty. " }
 
 % todo: use partcombine?, junk?
 
@@ -56,12 +55,16 @@ zager =  \context Staff = zager \notes \relative c'' {
 }
 
 zoger =  \context Staff = zoger \notes \relative c'' {
+	% Hmm
+        \property Staff.HaraKiriVerticalGroup \override
+	    #'items-worth-living = #'(#t #t)
+
+
 	\clef treble
 	\property Staff.instrument = #"Zoger"
 	\property Staff.instr = #"Zog."
 	c4^"zog" d e f 
 	\skip 1*2
-
 	\translator Staff=zager
 	\stemDown 
 	c2 g2
@@ -85,8 +88,8 @@ zagers =  \context GrandStaff <
 		>
 	>
 	\paper{
-		linewidth = 80.0\mm
-		\translator { \HaraKiriStaffContext }
+		linewidth = 100.0\mm
+		\translator { \RemoveEmptyStaffContext }
 %uh?
 		\translator { \OrchestralScoreContext }
 %		\translator { \OrchestralPartStaffContext }
@@ -94,3 +97,4 @@ zagers =  \context GrandStaff <
 }
 
 
+