release: 1.3.28

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index b6ea62e1df2dc049d3cb04cef482195e7b286f93..582c55e24be4b06338f12212a772ebdde8450925 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -215,7 +215,12 @@
         (map (lambda (x)
                (font-load-command (car x) (cdr x))) font-name-alist)
   ))
-  
+
+(define (fontify name exp)
+  (string-append (select-font name)
+                exp)
+  )
+
 ;;;;;;;;;;;;;;;;;;;;
 
 
@@ -233,7 +238,10 @@
 
 
 
+;;;;;;;;;;;;;;;;;;; generic output
 
+(define (translate-atom offset exp)
+  exp)
 
 
 ;;;;;;;;;;;;;;;;;;; TeX output