* lily/stencil-scheme.cc: remove ly:fontify-atom

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

diff --git a/scm/output-sodipodi.scm b/scm/output-sodipodi.scm
index 5d79103a5f6f6f9fe58f2ae52d238570e8bd08c5..18fcf28f00f13e1ce2b21845b486b33d520761a8 100644 (file)
--- a/scm/output-sodipodi.scm
+++ b/scm/output-sodipodi.scm
@@ -39,7 +39,6 @@
 
 ;;; and should intercept: 
 ;;;
-;;;    fontify
 ;;;    lily-def
 ;;;    header-end
 ;;;    define-fonts
@@ -62,7 +61,6 @@
     (cond
      ((eq? keyword 'some-func) "")
      ;;((eq? keyword 'placebox) (dispatch (cadddr expr)))
-     ;;((eq? keyword 'fontify) (dispatch (caddr expr)))
      (else
       (if (module-defined? this-module keyword)
          (apply (eval keyword this-module) (cdr expr))
@@ -291,10 +289,6 @@
          (format #t "font not found: ~s\n" (caadr name-mag-pair))
          (cdr (assoc "feta20" font-alist))))))
 
-(define (fontify name-mag-pair expr)
-  (string-append
-   (tagify "text" (dispatch expr) (cons 'style (get-font name-mag-pair)))))
-
 (define (header-end)
   (comment "header-end"))