From 2f0fb86d8399fc19243f35a7be759b8b62338852 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 11 Apr 2004 08:17:29 +0000
Subject: [PATCH] * tex/lilyponddefs.tex (lilypondpagebreak): New overridable
 macro.

* scm/output-tex.scm (stop-page): Use it.
---
 ChangeLog            |  4 ++++
 scm/output-tex.scm   |  2 +-
 tex/lilyponddefs.tex | 10 ++++++++++
 3 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 08d17f5b01..dcdddb978e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2004-04-11  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+	* tex/lilyponddefs.tex (lilypondpagebreak): New overridable macro.
+
+	* scm/output-tex.scm (stop-page): Use it.
+
 	* scm/output-ps.scm (define-fonts): Bugfix.
 
 	* lily/grob.cc: Add penalty to interface.
diff --git a/scm/output-tex.scm b/scm/output-tex.scm
index a4c65d6c31..a74d8e883b 100644
--- a/scm/output-tex.scm
+++ b/scm/output-tex.scm
@@ -353,4 +353,4 @@
 (define (stop-page last?)
   (if last?
       "\\vss\n}\n\\vfill\n"
-      "\\vss\n}\n\\vfill\\newpage\n"))
+      "\\vss\n}\n\\vfill\\lilypondpagebreak\n"))
diff --git a/tex/lilyponddefs.tex b/tex/lilyponddefs.tex
index f71b45285e..a26ea6877c 100644
--- a/tex/lilyponddefs.tex
+++ b/tex/lilyponddefs.tex
@@ -94,6 +94,15 @@
   \lilypondnext
 }
 
+%% Allow overriding of pagebreak
+\lilypondifundefined{lilypondpagebreak}
+{
+  \lilypondifundefined{@nodocument}
+  {\gdef\lilypondpagebreak{\eject}}
+  {\gdef\lilypondpagebreak{\newpage}}
+  }
+  {}
+      
 %% Include \special only once.
 \gdef\lilypondspecial{
   \special{header=music-drawing-routines.ps}
@@ -126,6 +135,7 @@
   \kern#1\outputscale
   \vrule width #2\outputscale depth #3\outputscale height #4\outputscale}
 
+%% FIXME: 'interscoreline' and 'lilypondPAPERinterscoreline
 \lilypondifundefined{lilypondpaperinterscorelinefill}
   {\gdef\lilypondpaperinterscorelinefill{0}}
   {\gdef\lilypondpaperinterscorelinefill{1}}
-- 
2.39.2