release: 1.3.145

[lilypond.git] / lily / command-request.cc

diff --git a/lily/command-request.cc b/lily/command-request.cc
index ea7e0a4a20cdad1578ae20cf289c636707285ec8..1b06d2f645e8d554d46d85d7cb91b88797aabe49 100644 (file)
--- a/lily/command-request.cc
+++ b/lily/command-request.cc
@@ -59,10 +59,37 @@ Key_change_req::transpose (Pitch p)
   set_mus_property ("pitch-alist", newlist);
 }
 
-Break_req::Break_req ()
+
+bool
+alist_equal_p (SCM a, SCM b)
 {
+  for (SCM s = a;
+       gh_pair_p (s); s = gh_cdr (s))
+    {
+      SCM key = gh_caar (s);
+      SCM val = gh_cdar (s);
+      SCM l = scm_assoc (key, b);
+
+      if (l == SCM_BOOL_F
+         || !gh_equal_p ( gh_cdr (l), val))
+
+       return false;
+    }
+  return true;
 }
 
+bool
+Key_change_req::do_equal_b (Request const * m )const
+{
+  Key_change_req const * kc =dynamic_cast<Key_change_req const*> (m);
+
+  if(!kc)
+    return false;
+  return alist_equal_p (get_mus_property ("pitch-alist"),
+                       kc->get_mus_property ("pitch-alist"));
+}
+
+
 
 bool
 Mark_req::do_equal_b (Request const * r) const