Merge branch 'master' of ssh+git://hanwen@git.sv.gnu.org/srv/git/lilypond

diff --git a/input/regression/stem-stemlet-whole.ly b/input/regression/stem-stemlet-whole.ly
new file mode 100644 (file)
index 0000000..77c7080
--- /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 a882e73a1ffc1a8076c1c74596cfea57e41ac99c..9d39552f574563dd1fa166ec38e86215a58c1acf 100644 (file)
--- 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;