X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Flayout-page-dump.scm;h=8237106f063ff967f447d05ae27cde2dd41a307b;hb=687173a43f2d34e39c93500f60dbe40f48e5c7b1;hp=acb8cb177ac760e5947a66f228ddce9431f34610;hpb=1108d3c42d9b47e0953528e94254d0fdfd0f531a;p=lilypond.git

diff --git a/scm/layout-page-dump.scm b/scm/layout-page-dump.scm
index acb8cb177a..8237106f06 100644
--- 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