HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
disable GC_all_interior_pointers
[bpt/emacs.git]
/
src
/
emacs.c
diff --git
a/src/emacs.c
b/src/emacs.c
index
89cdf27
..
4777044
100644
(file)
--- a/
src/emacs.c
+++ b/
src/emacs.c
@@
-710,13
+710,14
@@
string_from_scheme (Lisp_Object scheme_string)
nbytes);
}
nbytes);
}
+Lisp_Object xsymbol_fn;
+Lisp_Object symbol_function_fn;
+
static int main2 (void *, int, char **);
int
main (int argc, char **argv)
{
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);
}
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));
"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 ();
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_floatfns ();
syms_of_buffer ();
- syms_of_bytecode ();
syms_of_callint ();
syms_of_casefiddle ();
syms_of_casetab ();
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 */
#endif /* HAVE_W32NOTIFY */
#endif /* WINDOWSNT */
- syms_of_profiler ();
-
keys_of_casefiddle ();
keys_of_cmds ();
keys_of_buffer ();
keys_of_casefiddle ();
keys_of_cmds ();
keys_of_buffer ();