internal-set-alternative-font-family-alist

[martin rudalics]

Evaluating the form

(defcustom face-font-family-alternatives
  '(("Monospace" "courier" "fixed")
    ("courier" "fixed")
    ("Sans Serif" "helv" "helvetica" "arial" "fixed")
    ("helv" "helvetica" "arial" "fixed"))
  "*Alist of alternative font family names.
Each element has the form (FAMILY ALTERNATIVE1 ALTERNATIVE2 ...).
If fonts of family FAMILY can't be loaded, try ALTERNATIVE1, then
ALTERNATIVE2 etc."
  :tag "Alternative font families to try"
  :type '(repeat (repeat string))
  :group 'font-selection
  :set #'(lambda (symbol value)
           (set-default symbol value)
           (internal-set-alternative-font-family-alist value)))

from faces.el currently gets me

Debugger entered--Lisp error: (wrong-type-argument stringp Monospace)
  internal-set-alternative-font-family-alist(((Monospace courier fixed) 
(courier fixed) (Sans\ Serif helv helvetica arial fixed) (helv helvetica arial 
fixed)))
  (lambda (symbol value) (set-default symbol value) 
(internal-set-alternative-font-family-alist 
value))(face-font-family-alternatives ((Monospace courier fixed) (courier 
fixed) (Sans\ Serif helv helvetica arial fixed) (helv helvetica arial fixed)))
  custom-initialize-reset(face-font-family-alternatives (quote (("Monospace" "courier" "fixed") ("courier" "fixed") ("Sans Serif" "helv" 
"helvetica" "arial" "fixed") ("helv" "helvetica" "arial" "fixed"))))
  custom-declare-variable(face-font-family-alternatives (quote (("Monospace" "courier" "fixed") ("courier" "fixed") ("Sans Serif" "helv" "helvetica" 
"arial" "fixed") ("helv" "helvetica" "arial" "fixed"))) "*Alist of alternative font family names.\nEach element has the form (FAMILY ALTERNATIVE1 ALTERNATIVE2 ...).\nIf fonts 
of family FAMILY can't be loaded, try ALTERNATIVE1, then\nALTERNATIVE2 etc." :tag "Alternative font families to try" :type (repeat (repeat string)) :group font-selection :set (lambda (symbol value) (set-default symbol value) 
(internal-set-alternative-font-family-alist value)))
  (defcustom face-font-family-alternatives (quote (... ... ... ...)) "*Alist of alternative 
font family names.\nEach element has the form (FAMILY ALTERNATIVE1 ALTERNATIVE2 ...).\nIf fonts of 
family FAMILY can't be loaded, try ALTERNATIVE1, then\nALTERNATIVE2 etc." :tag 
"Alternative font families to try" :type (quote (repeat ...)) :group (quote 
font-selection) :set (function (lambda ... ... ...)))
  eval((defcustom face-font-family-alternatives (quote (... ... ... ...)) "*Alist of 
alternative font family names.\nEach element has the form (FAMILY ALTERNATIVE1 ALTERNATIVE2 
...).\nIf fonts of family FAMILY can't be loaded, try ALTERNATIVE1, then\nALTERNATIVE2 etc." 
:tag "Alternative font families to try" :type (quote (repeat ...)) :group (quote 
font-selection) :set (function (lambda ... ... ...))))
  eval-last-sexp-1(nil)
  eval-last-sexp(nil)
  call-interactively(eval-last-sexp nil nil)

while evaluating

(internal-set-alternative-font-family-alist
  '(("Monospace" "courier" "fixed")
    ("courier" "fixed")
    ("Sans Serif" "helv" "helvetica" "arial" "fixed")
    ("helv" "helvetica" "arial" "fixed")))

gets me

((Monospace courier fixed) (courier fixed) (Sans\ Serif helv helvetica arial 
fixed) (helv helvetica arial fixed))

I'm too silly to understand this.  Any ideas?

martin