Introduce new handling for paper margin settings.

[lilypond.git] / scm / page.scm

diff --git a/scm/page.scm b/scm/page.scm
index ca4e0d8659ddeba0b1f2bcb26cb05aab2f9303bd..959402c4069ea1de3f7b38f83fecb671c8e38b31 100644 (file)
--- a/scm/page.scm
+++ b/scm/page.scm
@@ -184,11 +184,7 @@
   (let*
       ((paper-height (ly:output-def-lookup layout 'paper-height))
        (paper-width (ly:output-def-lookup layout 'paper-width))
-       (lmargin (ly:output-def-lookup layout 'left-margin #f))
-       (left-margin (if lmargin
-                      lmargin
-                      (/ (- paper-width
-                            (ly:output-def-lookup layout 'line-width)) 2)))
+       (left-margin (ly:output-def-lookup layout 'left-margin))
        (bottom-edge (- paper-height
                       (ly:output-def-lookup layout 'bottom-margin)) )
        (top-margin (ly:output-def-lookup layout 'top-margin))