Fix flag positioning for \note markup.

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 57a66c7c5d30408ca740e6dcc52ed349a854b0bc..71fe0f5a663db963f2b44001c745e470054db24f 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -1414,7 +1414,7 @@ Construct a note symbol, with stem.  By using fractional values for
                                          (string-append "flags."
                                                         (if (> dir 0) "u" "d")
                                                         (number->string log)))
-                       (cons (car attach-off) stemy)))))
+                       (cons (+ (car attach-off) (if (< dir 0) stem-thickness 0)) stemy)))))
 
     (if (and dots flaggl (> dir 0))
        (set! dots (ly:stencil-translate-axis dots 0.35 X)))