* input/test/blank-notes.ly: bugfix

	* lily/rest.cc (after_line_breaking): bugfix: dots after whole
	rests. (Kim Shrier)

diff --git a/ChangeLog b/ChangeLog
index cdadb992422e72b8930c0d04f9ac16453a0af102..8d610323d1e0c9c4dcfdf9bd60be51df91933e71 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2002-10-14  Rune Zedeler  <rune@zedeler.dk>
+
+       * input/test/blank-notes.ly: bugfix
+
+       * lily/rest.cc (after_line_breaking): bugfix: dots after whole
+       rests. (Kim Shrier)
+       
 2002-10-14  Jan Nieuwenhuizen  <janneke@gnu.org>
 
        * Documentation/user/internals.itely:

diff --git a/input/test/blank-notes.ly b/input/test/blank-notes.ly
index 15dc614d0e57d50b8d21f4a5527796d4444f4076..9912b3e666edf8dee75e49e66fa29a666e53f4ef 100644 (file)
--- a/input/test/blank-notes.ly
+++ b/input/test/blank-notes.ly
@@ -1,4 +1,4 @@
-\version "1.5.68"
+\version "1.7.0"
 
 \header {
     
@@ -11,9 +11,9 @@ blanknotes = { \property Voice.NoteHead
               \property Voice.Stem
               \override #'transparent = ##t }
 unblanknotes = { \property Voice.NoteHead
-                \revert #'molecule-callback
+                \revert #'transparent
                 \property Voice.Stem
-                \revert #'molecule-callback }
+                \revert #'transparent }
 
 
 \score {

diff --git a/lily/rest.cc b/lily/rest.cc
index 4f135a31caedf8b216dad16dabf3f3b440c3410d..2aac1abf34edf81a5e2294ed1658139d2f47084d 100644 (file)
--- a/lily/rest.cc
+++ b/lily/rest.cc
@@ -41,7 +41,11 @@ Rest::after_line_breaking (SCM smob)
       d->set_grob_property ("staff-position",
                            gh_int2scm ((bt == 7) ? 4 : 3));
     }
-
+  if (d && bt == 0) // UGH again.
+    {
+      d->set_grob_property ("staff-position",
+                           gh_int2scm (-1));
+    }
   return SCM_UNSPECIFIED;
 }