From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 14 Mar 2004 01:54:39 +0000 (+0000)
Subject: (text_font_alist_chain): rename function,
X-Git-Tag: release/2.1.31~11
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0e305c118864d93f69faef2ea07a3a04dad8d793;p=lilypond.git

(text_font_alist_chain): rename function,
and use text-font-defaults.
---

diff --git a/lily/font-interface.cc b/lily/font-interface.cc
index 4923cdeb3e..a85bd4db74 100644
--- a/lily/font-interface.cc
+++ b/lily/font-interface.cc
@@ -54,4 +54,4 @@ ADD_INTERFACE (Font_interface, "font-interface",
 	       "Any symbol that is typeset through fixed sets of glyphs, "
 	       " (ie. fonts)",
 	       "font-magnification font font-series font-shape "
-	       "font-family font-name font-size");
+	       "font-family font-encoding font-name font-size");
diff --git a/scm/chord-ignatzek-names.scm b/scm/chord-ignatzek-names.scm
index 26fa220e8f..a3bbe590d9 100644
--- a/scm/chord-ignatzek-names.scm
+++ b/scm/chord-ignatzek-names.scm
@@ -238,7 +238,7 @@ work than classifying the pitches."
        (root (car in-pitches))
        (pitches (map (lambda (x) (ly:pitch-diff x root)) (cdr in-pitches)))
        (exceptions (ly:context-property context 'chordNameExceptions))
-       (exception (assoc-get-default pitches exceptions #f))
+       (exception (assoc-get pitches exceptions))
        (prefixes '())
        (suffixes '())
        (add-steps '())
diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm
index 8c96d894ca..78b1b33603 100644
--- a/scm/define-grob-properties.scm
+++ b/scm/define-grob-properties.scm
@@ -212,7 +212,9 @@ typeset on a Stem. Valid options include @code{()} and
 flag.")
      (stroke-style ,string? "set to \"grace\" to turn stroke through flag on.")
      (flag-width-function ,procedure? "Procedure that computes the width of a half-beam (a non-connecting beam.).")
-     (font-family ,symbol? "The font family is the broadest category for selecting a font. Options include: @code{music}, @code{roman}, etc... ")
+     (font-family ,symbol? "The font family is the broadest category for selecting text fonts. Options include: @code{sans}, @code{roman} ")
+     (font-encoding ,symbol? "The font encoding is the broadest category for selecting a font. Options include: @code{music}, @code{number}, @code{text},
+@code{math}, @code{braces}, @code{dynamic}")
      (font-name ,string? "Specifies a file name (without extension) of
 the font to load.  This setting override selection using
 @code{font-family}, @code{font-series} and @code{font-shape}.")
diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index c42aef7c31..cef3198fb6 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -265,10 +265,7 @@ accordingly."
 See @usermanref{The Feta font} for  a complete listing of the possible glyphs.
 "
   (ly:find-glyph-by-name
-   (ly:paper-get-font paper (cons '((font-name . ())
-                                    (font-shape . *)
-                                    (font-series . *)
-                                    (font-family . music))
+   (ly:paper-get-font paper (cons '((font-encoding . music))
                                   props))
    glyph-name))
 
@@ -330,7 +327,7 @@ and/or @code{extra-offset} properties. "
   "Construct a note symbol, with stem.  By using fractional values for
 @var{dir}, you can obtain longer or shorter stems."
   
-  (let* ((font (ly:paper-get-font paper (cons '((font-family .  music)) props)))
+  (let* ((font (ly:paper-get-font paper (cons '((font-encoding . music)) props)))
          (stemlen (max 3 (- log 1)))
          (headgl (ly:find-glyph-by-name
                   font