diff options
| author | Phillip Lord <phillip.lord@russet.org.uk> | 2017-03-16 09:00:59 +0000 |
|---|---|---|
| committer | Phillip Lord <phillip.lord@russet.org.uk> | 2017-03-16 09:00:59 +0000 |
| commit | fb67b1275fe6e473e70de247c6340cba0e9a50dc (patch) | |
| tree | 4928c6269108533a0e2cac5f1e2f70c1d3cf1ba0 /src/emacs.c | |
| parent | a3207a383009720bbd89327425e0eb1c9c20c267 (diff) | |
| download | emacs-feature/temacs-for-bootstrap.tar.gz | |
Building ldefs-boot with temacsfeature/temacs-for-bootstrap
Initial attempts, currently breaking.
Diffstat (limited to 'src/emacs.c')
| -rw-r--r-- | src/emacs.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/emacs.c b/src/emacs.c index 1868961090d..b07c15fb2cb 100644 --- a/src/emacs.c +++ b/src/emacs.c @@ -670,6 +670,7 @@ main (int argc, char **argv) bool dumping; int skip_args = 0; bool no_loadup = false; + bool load_temacs = false; char *junk = 0; char *dname_arg = 0; #ifdef DAEMON_MUST_EXEC @@ -1251,6 +1252,9 @@ Using an Emacs configured with --with-x-toolkit=lucid does not have this problem no_loadup = argmatch (argv, argc, "-nl", "--no-loadup", 6, NULL, &skip_args); + load_temacs + = argmatch (argv, argc, "-lt", "--load-temacs", 6, NULL, &skip_args); + no_site_lisp = argmatch (argv, argc, "-nsl", "--no-site-lisp", 11, NULL, &skip_args); @@ -1651,8 +1655,11 @@ Using an Emacs configured with --with-x-toolkit=lucid does not have this problem Vtop_level = list2 (Qload, build_unibyte_string (file)); } /* Unless next switch is -nl, load "loadup.el" first thing. */ - if (! no_loadup) + if (! (no_loadup || load_temacs)) Vtop_level = list2 (Qload, build_string ("loadup.el")); + + if (load_temacs) + Vtop_level = list2 (Qload, build_string ("temacs.el")); } /* Set up for profiling. This is known to work on FreeBSD, |