From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 18 Jul 2000 19:07:15 +0000 (+0000)
Subject: (face-font-selection-order)
X-Git-Tag: emacs-pretest-21.0.90~2747
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=94354bddf174dff4d076ccb37c8ec3b03d9233ce;p=emacs.git

(face-font-selection-order)
(face-font-family-alternatives): Add custom type.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 2fbe89ca9fa..48ec17c3b85 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -50,6 +50,7 @@ example, if `:slant' appears before `:height', font selection first
 tries to find a font with a suitable slant, even if this results in
 a font height that isn't optimal."
   :tag "Font selection order."
+  :type '(list symbol symbol symbol symbol)
   :group 'font-selection
   :set #'(lambda (symbol value)
 	   (set-default symbol value)
@@ -64,6 +65,7 @@ Each element has the 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)