(convert-to-ps): invoke dvips with -t

[lilypond.git] / scm / titling.scm

diff --git a/scm/titling.scm b/scm/titling.scm
index b1cb6aa2eab564669b13e50bd6b61f3b2ab9c201..4a0eb678342c832fe7e89c8daf544b492b95422a 100644 (file)
--- a/scm/titling.scm
+++ b/scm/titling.scm
@@ -126,7 +126,7 @@
            '())
        (if (has 'piece)
            (list
-            (markup #:fill-line (#:large #:bigger #:caps (get 'piece) "")))
+            (markup #:fill-line (#:large #:bigger (get 'piece) "")))
            '())))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;