From 01bc2c19ba2a1124dfec02366d52bef4a48c19e2 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 24 Jun 1998 18:10:16 +0000 Subject: [PATCH] (fontset-default-styles): Fix custom type. --- lisp/international/fontset.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index f3834074a36..955cccd5ed2 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -429,8 +429,9 @@ Valid elements include `bold', `demibold'; `italic', `oblique'; and combinations of one from each group, such as `bold-italic' and `demibold-oblique'." :group 'faces - :type '(set bold demibold italic oblique bold-italic bold-oblique - demibold-italic demibold-oblique)) + :type '(set (const bold) (const demibold) (const italic) (const oblique) + (const bold-italic) (const bold-oblique) (const demibold-italic) + (const demibold-oblique))) (defun x-modify-font-name (fontname style) "Substitute style specification part of FONTNAME for STYLE. -- 2.39.2