1 files changed, 9 insertions, 9 deletions

diff --git a/src/font.c b/src/font.c
index e01f67a95f6..a31a418e641 100644
--- a/src/font.c
+++ b/src/font.c
@@ -3762,7 +3762,7 @@ which kind of font it is.  It must be one of `font-spec', `font-entity',
   wrong_type_argument (intern ("font-extra-type"), extra_type);
 }
 
-DEFUN ("font-spec", Ffont_spec, Sfont_spec, 0, MANY, 0,
+DEFUE ("font-spec", Ffont_spec, Sfont_spec, 0, MANY, 0,
        doc: /* Return a newly created font-spec with arguments as properties.
 
 ARGS must come in pairs KEY VALUE of font properties.  KEY must be a
@@ -3866,7 +3866,7 @@ usage: (font-spec ARGS...)  */)
   return spec;
 }
 
-DEFUN ("copy-font-spec", Fcopy_font_spec, Scopy_font_spec, 1, 1, 0,
+DEFUE ("copy-font-spec", Fcopy_font_spec, Scopy_font_spec, 1, 1, 0,
        doc: /* Return a copy of FONT as a font-spec.  */)
   (Lisp_Object font)
 {
@@ -3892,7 +3892,7 @@ DEFUN ("copy-font-spec", Fcopy_font_spec, Scopy_font_spec, 1, 1, 0,
   return new_spec;
 }
 
-DEFUN ("merge-font-spec", Fmerge_font_spec, Smerge_font_spec, 2, 2, 0,
+DEFUE ("merge-font-spec", Fmerge_font_spec, Smerge_font_spec, 2, 2, 0,
        doc: /* Merge font-specs FROM and TO, and return a new font-spec.
 Every specified properties in FROM override the corresponding
 properties in TO.  */)
@@ -3921,7 +3921,7 @@ properties in TO.  */)
   return to;
 }
 
-DEFUN ("font-get", Ffont_get, Sfont_get, 2, 2, 0,
+DEFUE ("font-get", Ffont_get, Sfont_get, 2, 2, 0,
        doc: /* Return the value of FONT's property KEY.
 FONT is a font-spec, a font-entity, or a font-object.
 KEY is any symbol, but these are reserved for specific meanings:
@@ -4053,7 +4053,7 @@ are to be displayed on.  If omitted, the selected frame is used.  */)
 
 #endif
 
-DEFUN ("font-put", Ffont_put, Sfont_put, 3, 3, 0,
+DEFUE ("font-put", Ffont_put, Sfont_put, 3, 3, 0,
        doc: /* Set one property of FONT: give property KEY value VAL.
 FONT is a font-spec, a font-entity, or a font-object.
 
@@ -4087,7 +4087,7 @@ accepted by `font-spec'.  */)
   return val;
 }
 
-DEFUN ("list-fonts", Flist_fonts, Slist_fonts, 1, 4, 0,
+DEFUE ("list-fonts", Flist_fonts, Slist_fonts, 1, 4, 0,
        doc: /* List available fonts matching FONT-SPEC on the current frame.
 Optional 2nd argument FRAME specifies the target frame.
 Optional 3rd argument NUM, if non-nil, limits the number of returned fonts.
@@ -4181,7 +4181,7 @@ Optional 2nd argument FRAME, if non-nil, specifies the target frame.  */)
   return val;
 }
 
-DEFUN ("font-xlfd-name", Ffont_xlfd_name, Sfont_xlfd_name, 1, 2, 0,
+DEFUE ("font-xlfd-name", Ffont_xlfd_name, Sfont_xlfd_name, 1, 2, 0,
        doc: /*  Return XLFD name of FONT.
 FONT is a font-spec, font-entity, or font-object.
 If the name is too long for XLFD (maximum 255 chars), return nil.
@@ -4403,7 +4403,7 @@ where
 
 #if 0
 
-DEFUN ("font-drive-otf", Ffont_drive_otf, Sfont_drive_otf, 6, 6, 0,
+DEFUE ("font-drive-otf", Ffont_drive_otf, Sfont_drive_otf, 6, 6, 0,
        doc: /* Apply OpenType features on glyph-string GSTRING-IN.
 OTF-FEATURES specifies which features to apply in this format:
   (SCRIPT LANGSYS GSUB GPOS)
@@ -4473,7 +4473,7 @@ glyph-string.  */)
   return make_number (num);
 }
 
-DEFUN ("font-otf-alternates", Ffont_otf_alternates, Sfont_otf_alternates,
+DEFUE ("font-otf-alternates", Ffont_otf_alternates, Sfont_otf_alternates,
        3, 3, 0,
        doc: /* Return a list of alternate glyphs of CHARACTER in FONT-OBJECT.
 OTF-FEATURES specifies which features of the font FONT-OBJECT to apply