patch::: 1.3.96.jcn8

[lilypond.git] / scm / font.scm

diff --git a/scm/font.scm b/scm/font.scm
index 403cca53991118bc0ed777b0cb734f647abb6199..a0df641b4d2d8c06342de16e7b98db203e8433ac 100644 (file)
--- a/scm/font.scm
+++ b/scm/font.scm
@@ -116,7 +116,8 @@
      (bold . (font-series . "bold"))
      (italic . (font-shape . "italic"))
      (named . (lookup . name))
-     (text . (lookup . value)))
+     (text . (lookup . value))
+     (super . (font-size . -1)))
    (map (lambda (x) (cons (car x) (cons 'font-style (car x))))
        style-to-font-alist)))