Merge branch 'lilypond/translation' of ssh://jomand@git.sv.gnu.org/srv/git/lilypond

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

diff --git a/scm/layout-page-dump.scm b/scm/layout-page-dump.scm
index acb8cb177ac760e5947a66f228ddce9431f34610..387a0383f07dccd2e079360ddcfe2404c8b6fb14 100644 (file)
--- a/scm/layout-page-dump.scm
+++ b/scm/layout-page-dump.scm
@@ -1,4 +1,4 @@
-;;;; layout-page-tweaks.scm -- page breaking and page layout
+;;;; layout-page-dump.scm -- page breaking and page layout
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;;
@@ -13,16 +13,9 @@
   #:use-module (scm layout-page-layout)
   #:use-module (lily)
   #:export (write-page-breaks
-           ;; utilisties for writing other page dump functions
+           ;; utilities 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