aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorStefan Monnier2002-03-22 22:54:19 +0000
committerStefan Monnier2002-03-22 22:54:19 +0000
commite721aa94ec6376ac3da8804674601d0be86fa51b (patch)
tree57fc1c5aadb893414650543a4ce785be0e3315cb /src
parenta4d35afd2fdd1d24c7bfbb45b1411f5a8dbf2d63 (diff)
downloademacs-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.c16
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 },