]> git.donarmstrong.com Git - lilypond.git/commitdiff
Thinko in dots/flag collision code.
authorHan-Wen Nienhuys <hanwen@xs4all.nl>
Mon, 8 Jan 2007 08:40:27 +0000 (09:40 +0100)
committerHan-Wen Nienhuys <hanwen@xs4all.nl>
Mon, 8 Jan 2007 08:40:27 +0000 (09:40 +0100)
scm/define-markup-commands.scm

index 8f5728c31be3379771f6229b1cde465f4f68f2e3..aef9e3aa284eeab47ca7a76ffa09c0416f59c1fe 100644 (file)
@@ -1273,7 +1273,7 @@ figured bass notation"
                                                         (number->string log)))
                        (cons (+ (car attach-off) (/ stem-thickness 2)) stemy)))))
 
-    (if (and flaggl (> dir 0))
+    (if (and dots flaggl (> dir 0))
        (set! dots (ly:stencil-translate-axis dots 0.35 X)))
     (if flaggl
         (set! stem-glyph (ly:stencil-add flaggl stem-glyph)))