release: 1.3.138

[lilypond.git] / lily / property-iterator.cc

diff --git a/lily/property-iterator.cc b/lily/property-iterator.cc
index 171a872b3f6ec27fa2706bae2013f44e3aa3c35b..1967bea297313fa766efd8e06f650b80e377b2a5 100644 (file)
--- a/lily/property-iterator.cc
+++ b/lily/property-iterator.cc
@@ -31,6 +31,18 @@ Property_iterator::process (Moment m)
   Simple_music_iterator::process (m);
 }
 
+void
+Property_unset_iterator::process (Moment m)
+{
+  SCM sym = music_l_->get_mus_property ("symbol");
+  if (gh_symbol_p (sym))
+    {
+      report_to_l ()->unset_property (sym);
+    }
+  Simple_music_iterator::process (m);
+}
+
+
 void
 Push_property_iterator::process (Moment m)
 {
@@ -57,6 +69,8 @@ Pop_property_iterator::process (Moment m)
   Simple_music_iterator::process (m);
 }
 
+
 IMPLEMENT_CTOR_CALLBACK (Pop_property_iterator);
 IMPLEMENT_CTOR_CALLBACK (Push_property_iterator);
 IMPLEMENT_CTOR_CALLBACK (Property_iterator);
+IMPLEMENT_CTOR_CALLBACK(Property_unset_iterator);