]> git.donarmstrong.com Git - lilypond.git/blobdiff - scm/molecule.scm
''
[lilypond.git] / scm / molecule.scm
index e13bbc4893d901e77eafe713bf4f7e263d130066..f0ee68c9023e06a1349d93544b1f0d81242c2232 100644 (file)
@@ -29,8 +29,8 @@
 
   (let* (
         (ext (ly-get-molecule-extent mol axis))
-        (lb (ly-bracket axis ext -1 thick protusion))
-        (rb (ly-bracket axis ext thick protusion))
+        (lb (ly-bracket axis ext thick (- protusion)))
+        (rb (ly-bracket axis ext thick protusion))
         )
     (set! mol (ly-combine-molecule-at-edge mol (other-axis  axis) 1 lb padding))
     (set! mol (ly-combine-molecule-at-edge mol (other-axis  axis) -1 rb padding))