From cf294b528f3bd1fc32f105bb0b72f72401fb388d Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 22 Apr 2008 12:28:06 -0300
Subject: [PATCH] Fix #598.

Always do early exit in stem::print for whole notes and larger.
---
 input/regression/stem-stemlet-whole.ly | 11 +++++++++++
 lily/stem.cc                           |  3 +++
 2 files changed, 14 insertions(+)
 create mode 100644 input/regression/stem-stemlet-whole.ly

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;
 
-- 
2.39.5