From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 4 Apr 2005 23:36:48 +0000 (+0000)
Subject: * ly/declarations-init.ly (partCombineListener): use
X-Git-Tag: release/2.5.18~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a93f988d383d5f9d05d0ea0da2773fa8d5266ad4;p=lilypond.git

* ly/declarations-init.ly (partCombineListener): use
ignoreBarChecks. Fixes: warn-partcombine-barcheck.ly

* lily/bar-check-iterator.cc (process): ignoreBarChecks property.
---

diff --git a/ChangeLog b/ChangeLog
index 2cce8545b7..505b86ba05 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2005-04-05  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+	* ly/declarations-init.ly (partCombineListener): use
+	ignoreBarChecks. Fixes: warn-partcombine-barcheck.ly
+
+	* lily/bar-check-iterator.cc (process): ignoreBarChecks property.
+
 2005-04-04  Jan Nieuwenhuizen  <janneke@gnu.org>
 
 	* lily/text-item.cc: Fix link.
diff --git a/lily/bar-check-iterator.cc b/lily/bar-check-iterator.cc
index 660272cd90..46479892ef 100644
--- a/lily/bar-check-iterator.cc
+++ b/lily/bar-check-iterator.cc
@@ -36,6 +36,10 @@ Bar_check_iterator::process (Moment m)
     {
       Context *tr = get_outlet ();
 
+      SCM check = tr->get_property ("ignoreBarChecks");
+      if (to_boolean (check))
+	return;
+      
       SCM mp = tr->get_property ("measurePosition");
       SCM sync = tr->get_property ("barCheckSynchronize");
 
diff --git a/ly/declarations-init.ly b/ly/declarations-init.ly
index eecf711186..a1379dcdf8 100644
--- a/ly/declarations-init.ly
+++ b/ly/declarations-init.ly
@@ -99,6 +99,7 @@ partCombineListener = \layout {
     \context {
 	\Score
 	skipTypesetting = ##t
+	ignoreBarChecks = ##t 
     }
 }
 
diff --git a/scm/define-context-properties.scm b/scm/define-context-properties.scm
index 61ceb1f144..8d851236b8 100644
--- a/scm/define-context-properties.scm
+++ b/scm/define-context-properties.scm
@@ -216,6 +216,7 @@ get accidentals.")
 highest pitch on the instrument. This used by the automatic string
 selector for tab notation.")
 
+     (ignoreBarChecks ,boolean? "Ignore bar checks")
      (ignoreMelismata ,boolean? "Ignore melismata for this @internalsref{Lyrics} line.")
      (instr ,markup? "See @code{instrument}")