From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 26 Jan 2007 13:13:24 +0000 (+0100)
Subject: fix staff-mixed-size.
X-Git-Tag: release/2.11.15-1~45
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=33d540bc66cc30e199291fb42b5096ab5dd6c086;p=lilypond.git

fix staff-mixed-size.
---

diff --git a/input/regression/staff-mixed-size.ly b/input/regression/staff-mixed-size.ly
index d1d7cc5021..02b26c068e 100644
--- a/input/regression/staff-mixed-size.ly
+++ b/input/regression/staff-mixed-size.ly
@@ -10,24 +10,24 @@ large on smaller staves."
 \version "2.11.11"
 
 \layout {
-  #(layout-set-staff-size 6)
   ragged-right = ##t
 }
 
+melody = \relative {
+  \override DynamicText  #'extra-offset = #'(0 . 3)
+  s1-\f c''8[(\< r a g]) e[ r d( <f a>])\! \times 2/3 { d4 d d }
+}
+
 <<
   \new Staff \with {
     fontSize = #-4
     \override StaffSymbol #'staff-space = #(magstep -4)
+  } {
+    \melody
   }
-  \relative c' {
-    \override DynamicText  #'extra-offset = #'(0 . 3)
-    s1-\f c''8[(\< r a g]) e[ r d( <f a>])\! \times 2/3 { d4 d d }
-			    }
-    \new Staff
+  \new Staff {
     \relative c' {
-      \override DynamicText  #'extra-offset = #'(0 . 3)
-      s1-\f c''8[(\< r a g]) e[ r d( <f a>])\! \times 2/3 { d4 d d }
-			      }
-    >>
-
-
+      \melody
+    }
+  }
+>>
diff --git a/scm/paper.scm b/scm/paper.scm
index 4750b518f7..dd2ba52b6f 100644
--- a/scm/paper.scm
+++ b/scm/paper.scm
@@ -61,8 +61,8 @@ points"
   (layout-set-absolute-staff-size-in-module (current-module) sz))
 
 (define-public (layout-set-staff-size sz)
-  "Function to be called inside a \\layout{} block to set the staff size. SZ is in
-points"
+  "Function to be called inside a \\layout{} block to set the staff
+size. SZ is in points"
   
   (layout-set-absolute-staff-size (* (eval 'pt (current-module)) sz)))