From: Carl Sorensen <c_sorensen@byu.edu>
Date: Mon, 21 Feb 2011 00:46:43 +0000 (-0700)
Subject: Fix 1524 -- Add beamExceptions to 3/4 special check
X-Git-Tag: release/2.13.51-1~18
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c1695321ac192515a7ddbcd10e259accfc333dc5;p=lilypond.git

Fix 1524 -- Add beamExceptions to 3/4 special check
---

diff --git a/scm/auto-beam.scm b/scm/auto-beam.scm
index 83feb9663a..82b5917d1c 100644
--- a/scm/auto-beam.scm
+++ b/scm/auto-beam.scm
@@ -105,12 +105,13 @@
              (exception-moments (ending-moments
                                   exception-grouping 0 grouping-moment)))
 
-        (if (= dir START)
+	(if (= dir START)
             ;; Start rules
             (or (not (equal? time-signature-fraction '(3 . 4))) ;; start anywhere if not 3/4
                 (= (ly:moment-main-numerator pos) 0) ;; start at beginning of measure
+		(not (null? exception-grouping)) ;; don't use special rules if exception
 		(beat-end? pos beat-endings)  ;; are we at start of beat?
-                (and (not (equal? test-beam base-moment)) ;; is beat split?
+		(and (not (equal? test-beam base-moment)) ;; is beat split?
                      (not (beat-end? (ly:moment-add pos test-beam)
                                      beat-endings))))  ;; will this note end the beat
             ;; End rules