From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 23 Feb 2007 09:31:36 +0000 (+0100)
Subject: Fix #309.
X-Git-Tag: release/2.10.20-1~18
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=af79226119a182d3dfa426a19ba3900c58e00ad5;p=lilypond.git

Fix #309.

Completize cluster spanner if necessary.
---

diff --git a/input/regression/cluster-single-note.ly b/input/regression/cluster-single-note.ly
new file mode 100644
index 0000000000..5b66a79eed
--- /dev/null
+++ b/input/regression/cluster-single-note.ly
@@ -0,0 +1,8 @@
+\header
+{
+  texidoc = "don't crash on single chord clusters."
+}
+
+
+\version "2.11.19"
+\relative c' { \makeClusters <e d'> } 
diff --git a/lily/cluster-engraver.cc b/lily/cluster-engraver.cc
index cd0c59b817..c438d3a40c 100644
--- a/lily/cluster-engraver.cc
+++ b/lily/cluster-engraver.cc
@@ -54,7 +54,17 @@ Cluster_spanner_engraver::finalize ()
 void
 Cluster_spanner_engraver::typeset_grobs ()
 {
-  finished_spanner_ = 0;
+  if (finished_spanner_)
+    {
+      if (!finished_spanner_->get_bound (RIGHT))
+	{
+	  finished_spanner_->set_bound (RIGHT,
+					finished_spanner_->get_bound (LEFT));
+					
+	}
+      
+      finished_spanner_ = 0;
+    }
   beacon_ = 0;
 }