diff options
| author | Stefan Monnier | 2002-03-22 22:54:19 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2002-03-22 22:54:19 +0000 |
| commit | e721aa94ec6376ac3da8804674601d0be86fa51b (patch) | |
| tree | 57fc1c5aadb893414650543a4ce785be0e3315cb /src | |
| parent | a4d35afd2fdd1d24c7bfbb45b1411f5a8dbf2d63 (diff) | |
| download | emacs-e721aa94ec6376ac3da8804674601d0be86fa51b.tar.gz emacs-e721aa94ec6376ac3da8804674601d0be86fa51b.zip | |
(main): Handle --unibyte, --multibyte, and --no-loadup
in temacs even if !CANNOT_DUMP.
(standard_args): Keep --no-loadup even if !CANNOT_DUMP.
Diffstat (limited to 'src')
| -rw-r--r-- | src/emacs.c | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/src/emacs.c b/src/emacs.c index f01fb79bfe2..b382e87faea 100644 --- a/src/emacs.c +++ b/src/emacs.c | |||
| @@ -1219,19 +1219,15 @@ main (argc, argv, envp) | |||
| 1219 | 1219 | ||
| 1220 | /* Handle --unibyte and the EMACS_UNIBYTE envvar, | 1220 | /* Handle --unibyte and the EMACS_UNIBYTE envvar, |
| 1221 | but not while dumping. */ | 1221 | but not while dumping. */ |
| 1222 | if ( | 1222 | if (1) |
| 1223 | #ifndef CANNOT_DUMP | ||
| 1224 | ! noninteractive || initialized | ||
| 1225 | #else | ||
| 1226 | 1 | ||
| 1227 | #endif | ||
| 1228 | ) | ||
| 1229 | { | 1223 | { |
| 1230 | int inhibit_unibyte = 0; | 1224 | int inhibit_unibyte = 0; |
| 1231 | 1225 | ||
| 1232 | /* --multibyte overrides EMACS_UNIBYTE. */ | 1226 | /* --multibyte overrides EMACS_UNIBYTE. */ |
| 1233 | if (argmatch (argv, argc, "-no-unibyte", "--no-unibyte", 4, NULL, &skip_args) | 1227 | if (argmatch (argv, argc, "-no-unibyte", "--no-unibyte", 4, NULL, &skip_args) |
| 1234 | || argmatch (argv, argc, "-multibyte", "--multibyte", 4, NULL, &skip_args)) | 1228 | || argmatch (argv, argc, "-multibyte", "--multibyte", 4, NULL, &skip_args) |
| 1229 | /* Ignore EMACS_UNIBYTE before dumping. */ | ||
| 1230 | || (!initialized && noninteractive)) | ||
| 1235 | inhibit_unibyte = 1; | 1231 | inhibit_unibyte = 1; |
| 1236 | 1232 | ||
| 1237 | /* --unibyte requests that we set up to do everything with single-byte | 1233 | /* --unibyte requests that we set up to do everything with single-byte |
| @@ -1542,12 +1538,10 @@ main (argc, argv, envp) | |||
| 1542 | if (argmatch (argv, argc, "-l", "--load", 3, &file, &skip_args)) | 1538 | if (argmatch (argv, argc, "-l", "--load", 3, &file, &skip_args)) |
| 1543 | Vtop_level = Fcons (intern ("load"), | 1539 | Vtop_level = Fcons (intern ("load"), |
| 1544 | Fcons (build_string (file), Qnil)); | 1540 | Fcons (build_string (file), Qnil)); |
| 1545 | #ifdef CANNOT_DUMP | ||
| 1546 | /* Unless next switch is -nl, load "loadup.el" first thing. */ | 1541 | /* Unless next switch is -nl, load "loadup.el" first thing. */ |
| 1547 | if (! no_loadup) | 1542 | if (! no_loadup) |
| 1548 | Vtop_level = Fcons (intern ("load"), | 1543 | Vtop_level = Fcons (intern ("load"), |
| 1549 | Fcons (build_string ("loadup.el"), Qnil)); | 1544 | Fcons (build_string ("loadup.el"), Qnil)); |
| 1550 | #endif /* CANNOT_DUMP */ | ||
| 1551 | } | 1545 | } |
| 1552 | 1546 | ||
| 1553 | if (initialized) | 1547 | if (initialized) |
| @@ -1643,9 +1637,7 @@ struct standard_args standard_args[] = | |||
| 1643 | { "-multibyte", "--multibyte", 82, 0 }, | 1637 | { "-multibyte", "--multibyte", 82, 0 }, |
| 1644 | { "-unibyte", "--unibyte", 81, 0 }, | 1638 | { "-unibyte", "--unibyte", 81, 0 }, |
| 1645 | { "-no-multibyte", "--no-multibyte", 80, 0 }, | 1639 | { "-no-multibyte", "--no-multibyte", 80, 0 }, |
| 1646 | #ifdef CANNOT_DUMP | ||
| 1647 | { "-nl", "--no-loadup", 70, 0 }, | 1640 | { "-nl", "--no-loadup", 70, 0 }, |
| 1648 | #endif | ||
| 1649 | /* -d must come last before the options handled in startup.el. */ | 1641 | /* -d must come last before the options handled in startup.el. */ |
| 1650 | { "-d", "--display", 60, 1 }, | 1642 | { "-d", "--display", 60, 1 }, |
| 1651 | { "-display", 0, 60, 1 }, | 1643 | { "-display", 0, 60, 1 }, |