Fix page-count with systems-per-page.

[lilypond.git] / scm / paper-system.scm

diff --git a/scm/paper-system.scm b/scm/paper-system.scm
index aa0f855672736b990af76ad61880ca4a4ae9ff4d..5e6d2e019d9539de20345a59c504fabac61b9ff8 100644 (file)
--- a/scm/paper-system.scm
+++ b/scm/paper-system.scm
@@ -80,14 +80,16 @@
     (let* ((spacing-spec (cond ((and next-system
                                     (paper-system-title? system)
                                     (paper-system-title? next-system))
-                               (ly:output-def-lookup layout 'between-title-spacing))
+                               (ly:output-def-lookup layout 'markup-markup-spacing))
                               ((paper-system-title? system)
-                               (ly:output-def-lookup layout 'after-title-spacing))
+                               (ly:output-def-lookup layout 'markup-system-spacing))
                               ((and next-system
                                     (paper-system-title? next-system))
-                               (ly:output-def-lookup layout 'before-title-spacing))
+                               (ly:output-def-lookup layout 'score-markup-spacing))
+                              ((not next-system)
+                               (ly:output-def-lookup layout 'last-bottom-spacing))
                               (else
-                               (ly:output-def-lookup layout 'between-system-spacing))))
+                               (ly:output-def-lookup layout 'system-system-spacing))))
           (last-staff-Y (car (paper-system-staff-extents system))))
 
       (set! annotations