[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
internal-set-alternative-font-family-alist
From: |
martin rudalics |
Subject: |
internal-set-alternative-font-family-alist |
Date: |
Thu, 14 Aug 2008 15:20:16 +0200 |
User-agent: |
Thunderbird 2.0.0.16 (Windows/20080708) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- internal-set-alternative-font-family-alist,
martin rudalics <=