From 6b75fa4a898fa44348265211cef7602ed7abe5e0 Mon Sep 17 00:00:00 2001
From: rz <rz>
Date: Mon, 14 Oct 2002 12:20:46 +0000
Subject: [PATCH] * input/test/blank-notes.ly: bugfix
* lily/rest.cc (after_line_breaking): bugfix: dots after whole
rests. (Kim Shrier)
---
ChangeLog | 7 +++++++
input/test/blank-notes.ly | 6 +++---
lily/rest.cc | 6 +++++-
3 files changed, 15 insertions(+), 4 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index cdadb99242..8d610323d1 100644
--- 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 15dc614d0e..9912b3e666 100644
--- 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 4f135a31ca..2aac1abf34 100644
--- 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;
}
--
2.39.5