(fontset-default-styles): Fix custom type.

diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index f3834074a36f92b4aa88ea112419558e7ddfe67d..955cccd5ed2bafd0d24917475b2216b3ae9e096f 100644 (file)
--- 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.