(construct-chord): process transposition

[lilypond.git] / scm / output-tex.scm

diff --git a/scm/output-tex.scm b/scm/output-tex.scm
index 4c0b11a08b404805b4bf511e4d0c44ebabae37b2..94f1739dcb007ba3d01a1b4c9ffcb53c7776a027 100644 (file)
--- a/scm/output-tex.scm
+++ b/scm/output-tex.scm
@@ -154,11 +154,13 @@
        (string-append "\\" (cddr c)))))
 
 (define (top-of-file)
-  (comment
-   (string-append
-    "generated by LilyPond "
-    (lilypond-version) " (http://lilypond.org)." )
-   ))
+  (string-append
+   "% generated by LilyPond "
+    (lilypond-version) " (http://lilypond.org).\n"
+    "\\def\\lilypondtagline{Engraved by LilyPond (version "
+    (lilypond-version)
+    ")}\n"
+    ))
 
 (define (blank)
   "")