X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fauto-beam.scm;h=475788697baa4442e37706b36a803955a596ffa0;hb=588c7c052a6e8ee0cffcd868b4cccf82477195d9;hp=d11fb318c3dd56192062c3b72ec05a59101cce8b;hpb=4eda05210e633f19debe8b40e014b1143a5e48d6;p=lilypond.git

diff --git a/scm/auto-beam.scm b/scm/auto-beam.scm
index d11fb318c3..475788697b 100644
--- a/scm/auto-beam.scm
+++ b/scm/auto-beam.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;; source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c) 2000--2005 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 2000--2007 Jan Nieuwenhuizen <janneke@gnu.org>
 
 ;;; specify generic beam begin and end times
 
@@ -42,6 +42,7 @@
     ((end 1 32 3 2) . ,(ly:make-moment 1 2))
     ((end 1 32 3 2) . ,(ly:make-moment 5 8))
     ((end 1 32 3 2) . ,(ly:make-moment 3 4))
+    ((end 1 32 3 2) . ,(ly:make-moment 7 8))
     ((end 1 32 3 2) . ,(ly:make-moment 9 8))
     ((end 1 32 3 2) . ,(ly:make-moment 5 4))
     ((end 1 32 3 2) . ,(ly:make-moment 11 8))
@@ -196,7 +197,7 @@ a fresh copy of the list-head is made."
       #f
       (let* ((beat-length (get 'beatLength (ly:make-moment 1 1)))
 	     (measure-length (get 'measureLength (ly:make-moment 1 1)))
-	     (measure-pos (get 'measurePosition (ly:make-moment 0 1)))
+	     (measure-pos (get 'measurePosition ZERO-MOMENT))
 	     (settings (get 'autoBeamSettings '()))
 	     (function (list (if (= dir START) 'begin 'end)))
 	     (num-mom (ly:moment-div measure-length beat-length))