X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fpaper.scm;h=2cd6513d1de1474f7bbf54d1c08ee2f1c1bdd1cd;hb=27945b310409e8e0e76ceffc5aa34851448239b8;hp=93566d5e453548c455924a3ead9be7d70c02ba08;hpb=abf0f7e73103716d60c235fa61d938754d9f3a06;p=lilypond.git diff --git a/scm/paper.scm b/scm/paper.scm index 93566d5e45..2cd6513d1d 100644 --- a/scm/paper.scm +++ b/scm/paper.scm @@ -20,8 +20,6 @@ '(blot-diameter bottom-margin cm - foot-separation - head-separation horizontal-shift in indent @@ -251,8 +249,6 @@ size. SZ is in points" (("binding-offset" . ,w) . '()) (("top-margin" . ,h) . '()) (("bottom-margin" . ,h) . '()) - (("head-separation" . ,h) . '()) - (("foot-separation" . ,h) . '()) (("indent" . ,w) . '()) (("short-indent" . ,w) . '()))) (scaled-values @@ -337,7 +333,7 @@ size. SZ is in points" (lambda (v) (let* ((var (module-variable old-scope v)) (val (if (variable? var) (variable-ref var) #f))) - + (if (number? val) (module-define! scope v (/ val scale)) ;; Cannot warn for non-numbers, eg. for paper-width, paper-height.