(get_y_attachment_range): set end point

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

diff --git a/scm/output-sketch.scm b/scm/output-sketch.scm
index 398c52da5c1dbb66fee37732b39d436be96bd451..afe39c407605954d5d8b46a966b3f2a5d689d4a2 100644 (file)
--- a/scm/output-sketch.scm
+++ b/scm/output-sketch.scm
@@ -48,7 +48,6 @@
 ; ((eq? keyword 'dashed-line thick on off dx dy)
 ; ((eq? keyword 'dashed-slur thick dash l)
 ; ((eq? keyword 'define-origin a b c ) "")
-; ((eq? keyword 'end-output)
 ; ((eq? keyword 'experimental-on) "")
 ; ((eq? keyword 'ez-ball ch letter-col ball-col)
 ; ((eq? keyword 'filledbox x y breapth width depth height)
@@ -164,12 +163,6 @@
 (define font-count 0)
 (define current-font "")
 
-(define (fontify x y name-mag-pair exp)
-  (string-append (select-font name-mag-pair)
-                (apply (eval (car exp) this-module)
-                       (append (list x y) (cdr exp)))))
-;;              (if (string? exp) exp "")))
-
 (define (define-fonts x) "")
 
 (define (font-def x)