use guile-snarf for subr definition

[bpt/emacs.git] / src / w32font.c

diff --git a/src/w32font.c b/src/w32font.c
index 5262f38..66d6fe2 100644 (file)
--- a/src/w32font.c
+++ b/src/w32font.c
@@ -2577,6 +2577,8 @@ struct font_driver w32font_driver =
 void
 syms_of_w32font (void)
 {
+#include "w32font.x"
+
   DEFSYM (Qgdi, "gdi");
   DEFSYM (Quniscribe, "uniscribe");
   DEFSYM (QCformat, ":format");
@@ -2722,8 +2724,6 @@ versions of Windows) characters.  */);
   DEFSYM (Qw32_charset_thai, "w32-charset-thai");
   DEFSYM (Qw32_charset_mac, "w32-charset-mac");
 
-  defsubr (&Sx_select_font);
-
   w32font_driver.type = Qgdi;
   register_font_driver (&w32font_driver, NULL);
 }