use guile-snarf for subr definition

* src/Makefile.in: Run guile-snarf on files that previously contained
  `defsubr' calls.

* src/alloc.c (syms_of_alloc):
* src/buffer.c (syms_of_buffer):
* src/bytecode.c (syms_of_bytecode):
* src/callint.c (syms_of_callint):
* src/callproc.c (syms_of_callproc):
* src/casefiddle.c (syms_of_casefiddle):
* src/casetab.c (syms_of_casetab):
* src/category.c (syms_of_category):
* src/ccl.c (syms_of_ccl):
* src/character.c (syms_of_character):
* src/charset.c (syms_of_charset):
* src/chartab.c (syms_of_chartab):
* src/cmds.c (syms_of_cmds):
* src/coding.c (syms_of_coding):
* src/composite.c (syms_of_composite):
* src/data.c (syms_of_data):
* src/dbusbind.c (syms_of_dbusbind):
* src/dired.c (syms_of_dired):
* src/dispnew.c (syms_of_display):
* src/doc.c (syms_of_doc):
* src/dosfns.c (syms_of_dosfns):
* src/editfns.c (syms_of_editfns):
* src/emacs.c (syms_of_emacs):
* src/eval.c (syms_of_eval):
* src/fileio.c (syms_of_fileio):
* src/filelock.c (syms_of_filelock):
* src/floatfns.c (syms_of_floatfns):
* src/fns.c (syms_of_fns):
* src/font.c (syms_of_font):
* src/fontset.c (syms_of_fontset):
* src/frame.c (syms_of_frame):
* src/fringe.c (syms_of_fringe):
* src/gnutls.c (syms_of_gnutls):
* src/image.c (syms_of_image):
* src/indent.c (syms_of_indent):
* src/insdel.c (syms_of_insdel):
* src/keyboard.c (syms_of_keyboard):
* src/keymap.c (syms_of_keymap):
* src/lread.c (syms_of_lread):
* src/macros.c (syms_of_macros):
* src/marker.c (syms_of_marker):
* src/menu.c (syms_of_menu):
* src/minibuf.c (syms_of_minibuf):
* src/msdos.c (syms_of_msdos):
* src/nsfns.m (syms_of_nsfns):
* src/nsmenu.m (syms_of_nsmenu):
* src/nsselect.m (syms_of_nsselect):
* src/print.c (syms_of_print):
* src/process.c (syms_of_process):
* src/search.c (syms_of_search):
* src/sound.c (syms_of_sound):
* src/syntax.c (syms_of_syntax):
* src/term.c (syms_of_term):
* src/terminal.c (syms_of_terminal):
* src/textprop.c (syms_of_textprop):
* src/undo.c (syms_of_undo):
* src/w16select.c (syms_of_win16select):
* src/w32console.c (syms_of_ntterm):
* src/w32fns.c (syms_of_w32fns):
* src/w32font.c (syms_of_w32font):
* src/w32menu.c (syms_of_w32menu):
* src/w32proc.c (syms_of_ntproc):
* src/w32select.c (syms_of_w32select):
* src/window.c (syms_of_window):
* src/xdisp.c (syms_of_xdisp):
* src/xfaces.c (syms_of_xfaces):
* src/xfns.c (syms_of_xfns):
* src/xmenu.c (syms_of_xmenu):
* src/xml.c (syms_of_xml):
* src/xselect.c (syms_of_xselect):
* src/xsettings.c (syms_of_xsettings):
* src/xsmfns.c (syms_of_xsmfns): Include guile-snarf files for subr
  definition.

1 files changed, 2 insertions, 35 deletions

diff --git a/src/font.c b/src/font.c
index 251d43ba8b..e074c14db6 100644
--- a/src/font.c
+++ b/src/font.c
@@ -5061,6 +5061,8 @@ font_deferred_log (const char *action, Lisp_Object arg, Lisp_Object result)
 void
 syms_of_font (void)
 {
+#include "font.x"
+
   sort_shift_bits[FONT_TYPE_INDEX] = 0;
   sort_shift_bits[FONT_SLANT_INDEX] = 2;
   sort_shift_bits[FONT_WEIGHT_INDEX] = 9;
@@ -5121,41 +5123,6 @@ syms_of_font (void)
 #endif	/* HAVE_LIBOTF */
 #endif	/* 0 */
 
-  defsubr (&Sfontp);
-  defsubr (&Sfont_spec);
-  defsubr (&Sfont_get);
-#ifdef HAVE_WINDOW_SYSTEM
-  defsubr (&Sfont_face_attributes);
-#endif
-  defsubr (&Sfont_put);
-  defsubr (&Slist_fonts);
-  defsubr (&Sfont_family_list);
-  defsubr (&Sfind_font);
-  defsubr (&Sfont_xlfd_name);
-  defsubr (&Sclear_font_cache);
-  defsubr (&Sfont_shape_gstring);
-  defsubr (&Sfont_variation_glyphs);
-#if 0
-  defsubr (&Sfont_drive_otf);
-  defsubr (&Sfont_otf_alternates);
-#endif	/* 0 */
-
-#ifdef FONT_DEBUG
-  defsubr (&Sopen_font);
-  defsubr (&Sclose_font);
-  defsubr (&Squery_font);
-  defsubr (&Sfont_get_glyphs);
-  defsubr (&Sfont_match_p);
-  defsubr (&Sfont_at);
-#if 0
-  defsubr (&Sdraw_string);
-#endif
-  defsubr (&Sframe_font_cache);
-#endif	/* FONT_DEBUG */
-#ifdef HAVE_WINDOW_SYSTEM
-  defsubr (&Sfont_info);
-#endif
-
   DEFVAR_LISP ("font-encoding-alist", Vfont_encoding_alist,
 	       doc: /*
 Alist of fontname patterns vs the corresponding encoding and repertory info.