From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 22 Apr 2008 15:28:06 +0000 (-0300)
Subject: Fix #598.
X-Git-Tag: release/2.11.45-1~21
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cf294b528f3bd1fc32f105bb0b72f72401fb388d;p=lilypond.git

Fix #598.

Always do early exit in stem::print for whole notes and larger.
---

diff --git a/input/regression/stem-stemlet-whole.ly b/input/regression/stem-stemlet-whole.ly
new file mode 100644
index 0000000000..77c70805e4
--- /dev/null
+++ b/input/regression/stem-stemlet-whole.ly
@@ -0,0 +1,11 @@
+\version "2.11.43"
+\header {
+  texidoc = "Stemlets don't cause stems on whole notes."
+} 
+
+\paper{ ragged-right=##t }
+
+{
+  \override Stem #'stemlet-length = #0.5
+  c''1
+}
diff --git a/lily/stem.cc b/lily/stem.cc
index a882e73a1f..9d39552f57 100644
--- a/lily/stem.cc
+++ b/lily/stem.cc
@@ -702,6 +702,9 @@ Stem::print (SCM smob)
   if (!lh && stemlet && !beam)
     return SCM_EOL;
 
+  if (robust_scm2int (lh->get_property ("duration-log"), 0) < 1) 
+    return SCM_EOL;
+
   if (is_invisible (me))
     return SCM_EOL;