* scm/define-grobs.scm (all-grob-descriptions): make NonMusicalPaperColumn

[lilypond.git] / scm / page.scm

diff --git a/scm/page.scm b/scm/page.scm
index a572e441021806a743ea49b8261db1cb6827b6cc..258589ae53617e4576437a97e3477f504681c34e 100644 (file)
--- a/scm/page.scm
+++ b/scm/page.scm
@@ -314,8 +314,10 @@ create offsets.
        (foot (prop 'foot-stencil))
        )
 
-    (if (or (annotate? layout)
-           (ly:output-def-lookup layout 'annotate-systems #f))
+    (if (and
+        (or (annotate? layout)
+            (ly:output-def-lookup layout 'annotate-systems #f))
+        (pair? lines))
 
        (begin
          (for-each (lambda (sys next-sys)
@@ -386,9 +388,6 @@ create offsets.
   (let*
       ((p-book (page-property page 'paper-book))
        (layout (ly:paper-book-paper p-book))
-       (scopes (ly:paper-book-scopes p-book))
-       (number (page-page-number page))
-       (last? (page-property page 'is-last))
        (h (- (ly:output-def-lookup layout 'paper-height)
               (ly:output-def-lookup layout 'top-margin)
               (ly:output-def-lookup layout 'bottom-margin)))