Mercurial > emacs
changeset 33371:8259eb8d96c2
(face-font-registry-alternatives): New user-option.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 10 Nov 2000 14:34:23 +0000 |
| parents | 7203e43ca59f |
| children | 2a665186a9e9 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 17 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Fri Nov 10 11:56:26 2000 +0000 +++ b/lisp/faces.el Fri Nov 10 14:34:23 2000 +0000 @@ -58,7 +58,8 @@ (set-default symbol value) (internal-set-font-selection-order value))) -;; This is defined originally in {w32,x}faces.c. + +;; This is defined originally in xfaces.c. (defcustom face-font-family-alternatives '(("courier" "fixed") ("helv" "helvetica" "arial" "fixed")) @@ -74,6 +75,21 @@ (internal-set-alternative-font-family-alist value))) +;; This is defined originally in xfaces.c. +(defcustom face-font-registry-alternatives + '(("muletibetan-2" "muletibetan-0")) + "*Alist of alternative font registry names. +Each element has the the form (REGISTRY ALTERNATIVE1 ALTERNATIVE2 ...). +If fonts of registry REGISTRY can't be loaded, try ALTERNATIVE1, then +ALTERNATIVE2 etc." + :tag "Alternative font registries to try." + :type '(repeat (repeat string)) + :group 'font-selection + :set #'(lambda (symbol value) + (set-default symbol value) + (internal-set-alternative-font-registry-alist value))) + + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Creation, copying.