# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 973866863 0
# Node ID 8259eb8d96c26b18b3620149c17c8eb283509dcc
# Parent  7203e43ca59fd4e7f0168acab0c1e6cd73a2bdc8
(face-font-registry-alternatives): New user-option.

diff -r 7203e43ca59f -r 8259eb8d96c2 lisp/faces.el
--- 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.