X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/69f7f524c06e73df84e30a54aafd2c342392b5b3..bc203f9e4311ddb2c6ea12c14ae2dc2f463591c1:/src/emacs.c

diff --git a/src/emacs.c b/src/emacs.c
index 89cdf27f78..4777044215 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -710,13 +710,14 @@ string_from_scheme (Lisp_Object scheme_string)
                                  nbytes);
 }
 
+Lisp_Object xsymbol_fn;
+Lisp_Object symbol_function_fn;
+
 static int main2 (void *, int, char **);
 
 int
 main (int argc, char **argv)
 {
-  /* Override Guile's libgc configuration. */
-  xputenv ("GC_ALL_INTERIOR_POINTERS=1");
   scm_boot_guile (argc, argv, main2, NULL);
 }
 
@@ -1198,6 +1199,9 @@ Using an Emacs configured with --with-x-toolkit=lucid does not have this problem
                            "lisp-string?",
                            scm_c_make_gsubr ("stringp", 1, 0, 0, Fstringp));
 
+      xsymbol_fn = scm_c_public_ref ("language elisp runtime", "symbol-desc");
+      symbol_function_fn = scm_c_public_ref ("language elisp runtime", "symbol-function");
+
       init_guile ();
       init_fns_once ();
       init_obarray ();
@@ -1458,7 +1462,6 @@ Using an Emacs configured with --with-x-toolkit=lucid does not have this problem
       syms_of_floatfns ();
 
       syms_of_buffer ();
-      syms_of_bytecode ();
       syms_of_callint ();
       syms_of_casefiddle ();
       syms_of_casetab ();
@@ -1576,8 +1579,6 @@ Using an Emacs configured with --with-x-toolkit=lucid does not have this problem
 #endif /* HAVE_W32NOTIFY */
 #endif /* WINDOWSNT */
 
-      syms_of_profiler ();
-
       keys_of_casefiddle ();
       keys_of_cmds ();
       keys_of_buffer ();