(get_font_by_design_size): retrieve

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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index b3d317c27410e3656a5edad3212d145f8e39ba72..ddf6925c34a4303ad692181c19c01e175c3ceae8 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -287,7 +287,9 @@
        out-vec))))))
 
 ;;(define text old-text)
-(define text new-text)
+(define (text font str)
+  (ly:warn "TEXT backend-command encountered in Pango backend\nargs: ~a ~a" font str)
+  "")
 
 ;; FIXME: BARF helvetica?
 (define (white-text scale s)