* lily/my-lily-lexer.cc (start_main_input): define input-file-name

[lilypond.git] / scm / font.scm

diff --git a/scm/font.scm b/scm/font.scm
index 2fdf3adb6e64b4907ea2cb62ebc5255ff6c6463a..025f8f99036cfc18fb478d13ad157ccd4684cf1e 100644 (file)
--- a/scm/font.scm
+++ b/scm/font.scm
@@ -6,10 +6,6 @@
 ;;; (c)  2000--2003 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;
 
-(define style-to-font-alist
-  `(
-))
-
 (define (font-field name font-descr)
       (list-ref
        font-descr
@@ -317,32 +313,6 @@ and warn if the selected font is not unique.
            (list (cons markup #t))))))
 
 
-; fixme, how's this supposed to work?
-; and why don't we import font-setting from elt?
-(define (style-to-font-name sheet style)
-  (let* ((entry (assoc style style-to-font-alist))
-        (qualifiers (if entry (cdr entry) '()))
-        (font (find-first-font qualifiers sheet))
-        (err (current-error-port))
-        )
-
-    (if (equal? font "")
-       (begin
-         (display "\ncouldn't find any font satisfying " err)
-         (write qualifiers err)
-         "cmr10"
-         )
-       font)   ; return the topmost.
-    ))
-
-(if #f (begin
-        (define (test-module)
-          (display (filter pair? '(1 2 (1 2) (1 .2)))
-                   (display (filter-field 'font-name 'cmbx paper20-style-sheet-alist))
-                   
-                   (display (style-to-font-name 'paper20 'large)))
-          )))
-
 ;;; ascii-script font init
 (define as-font-sheet-alist
   '((as5 . (((* * * braces *) . ("as-braces9"))