changeset 22601:6eb4e6832d2d

(fontset-default-styles): Fix custom type.
author Richard M. Stallman <rms@gnu.org>
date Wed, 24 Jun 1998 18:10:16 +0000
parents 2f3b4c74e9a1
children 9c6b3b9c3c8f
files lisp/international/fontset.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/fontset.el	Wed Jun 24 09:36:08 1998 +0000
+++ b/lisp/international/fontset.el	Wed Jun 24 18:10:16 1998 +0000
@@ -429,8 +429,9 @@
 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.