From 18f1dcb44938de767e7e8b4640870dedb9b6d844 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 10 Nov 2000 14:34:23 +0000 Subject: [PATCH] (face-font-registry-alternatives): New user-option. --- lisp/faces.el | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/lisp/faces.el b/lisp/faces.el index e88b0fd51eb..e72e22bacd5 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -58,7 +58,8 @@ a font height that isn't optimal." (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 @@ ALTERNATIVE2 etc." (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. -- 2.39.5