use guile-snarf for subr definition

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

diff --git a/src/terminal.c b/src/terminal.c
index 2345526..682d28e 100644 (file)
--- a/src/terminal.c
+++ b/src/terminal.c
@@ -545,6 +545,7 @@ delete_initial_terminal (struct terminal *terminal)
 void
 syms_of_terminal (void)
 {
+#include "terminal.x"
 
   DEFVAR_LISP ("ring-bell-function", Vring_bell_function,
     doc: /* Non-nil means call this function to ring the bell.
@@ -562,14 +563,5 @@ or some time later.  */);
   DEFSYM (Qdelete_terminal_functions, "delete-terminal-functions");
   DEFSYM (Qrun_hook_with_args, "run-hook-with-args");
 
-  defsubr (&Sdelete_terminal);
-  defsubr (&Sframe_terminal);
-  defsubr (&Sterminal_live_p);
-  defsubr (&Sterminal_list);
-  defsubr (&Sterminal_name);
-  defsubr (&Sterminal_parameters);
-  defsubr (&Sterminal_parameter);
-  defsubr (&Sset_terminal_parameter);
-
   Fprovide (intern_c_string ("multi-tty"), Qnil);
 }