From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Tue, 24 Feb 2004 22:52:40 +0000 (+0000)
Subject: (top-of-file): Add tagline definition.  FIXME.
X-Git-Tag: release/2.1.28~38
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2d50ceee20ad54a1b649663a2e4a7efd0823dc39;p=lilypond.git

(top-of-file): Add tagline definition.  FIXME.
---

diff --git a/ChangeLog b/ChangeLog
index 9084a40d20..cdf418b8de 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-02-24  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+	* scm/output-ps.scm (top-of-file): Add tagline definition.  FIXME.
+
 	* ps/music-drawing-routines.ps: 
 	* ps/lilyponddefs.ps: Add end markers.
 
diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 7c67171488..9db2c4fc7a 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -299,7 +299,11 @@
 ;; top-of-file, wtf?
 (define (top-of-file)
   (header (string-append "GNU LilyPond (" (lilypond-version) "), ")
-          (strftime "%c" (localtime (current-time)))))
+          (strftime "%c" (localtime (current-time))))
+  ;;; ugh
+  (ps-string-def
+   "lilypond" 'tagline
+   (string-append "Engraved by LilyPond (" (lilpond-version) ")")))
 
 (define (output-paper-def pd)
   (apply