make web fixes

[lilypond.git] / scm / layout-page-dump.scm

diff --git a/scm/layout-page-dump.scm b/scm/layout-page-dump.scm
index acb8cb177ac760e5947a66f228ddce9431f34610..8237106f063ff967f447d05ae27cde2dd41a307b 100644 (file)
--- a/scm/layout-page-dump.scm
+++ b/scm/layout-page-dump.scm
@@ -16,13 +16,6 @@
            ;; utilisties for writing other page dump functions
            record-tweaks dump-all-tweaks))
 
-(define (stretchable-line? line)
-  "Say whether a system can be stretched."
-  (not (or (ly:prob-property? line 'is-title)
-          (let ((system-extent (paper-system-staff-extents line)))
-            (= (interval-start system-extent)
-               (interval-end   system-extent))))))
-
 (define (record-tweaks what property-pairs tweaks)
   (let ((key (ly:output-def-lookup (ly:grob-layout what)
                                   'tweak-key