diff options
| author | Richard M. Stallman | 2005-08-07 17:38:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-08-07 17:38:36 +0000 |
| commit | e09b9180d525e04497271f23cb7fc99fea21421e (patch) | |
| tree | b018133bac85d68a7e4aebb53a9add701117793c | |
| parent | 780a7814436dd62e3a1e8a888fde43fb899dcfdc (diff) | |
| download | emacs-e09b9180d525e04497271f23cb7fc99fea21421e.tar.gz emacs-e09b9180d525e04497271f23cb7fc99fea21421e.zip | |
(endif): Convert -script into -scriptload.
(standard_args): Add -scriptload. Allow -basic-display with one dash.
| -rw-r--r-- | src/emacs.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/emacs.c b/src/emacs.c index 87aee828420..985a3eae96f 100644 --- a/src/emacs.c +++ b/src/emacs.c | |||
| @@ -1153,9 +1153,9 @@ main (argc, argv | |||
| 1153 | if (argmatch (argv, argc, "-script", "--script", 3, &junk, &skip_args)) | 1153 | if (argmatch (argv, argc, "-script", "--script", 3, &junk, &skip_args)) |
| 1154 | { | 1154 | { |
| 1155 | noninteractive = 1; /* Set batch mode. */ | 1155 | noninteractive = 1; /* Set batch mode. */ |
| 1156 | /* Convert --script to -l, un-skip it, and sort again so that -l will be | 1156 | /* Convert --script to --scriptload, un-skip it, and sort again |
| 1157 | handled in proper sequence. */ | 1157 | so that it will be handled in proper sequence. */ |
| 1158 | argv[skip_args - 1] = "-l"; | 1158 | argv[skip_args - 1] = "-scriptload"; |
| 1159 | skip_args -= 2; | 1159 | skip_args -= 2; |
| 1160 | sort_args (argc, argv); | 1160 | sort_args (argc, argv); |
| 1161 | } | 1161 | } |
| @@ -1834,7 +1834,7 @@ struct standard_args standard_args[] = | |||
| 1834 | { "-itype", 0, 15, 0 }, | 1834 | { "-itype", 0, 15, 0 }, |
| 1835 | { "-iconic", "--iconic", 15, 0 }, | 1835 | { "-iconic", "--iconic", 15, 0 }, |
| 1836 | { "-D", "--basic-display", 12, 0}, | 1836 | { "-D", "--basic-display", 12, 0}, |
| 1837 | { "--basic-display", 0, 12, 0}, | 1837 | { "-basic-display", 0, 12, 0}, |
| 1838 | { "-bg", "--background-color", 10, 1 }, | 1838 | { "-bg", "--background-color", 10, 1 }, |
| 1839 | { "-background", 0, 10, 1 }, | 1839 | { "-background", 0, 10, 1 }, |
| 1840 | { "-fg", "--foreground-color", 10, 1 }, | 1840 | { "-fg", "--foreground-color", 10, 1 }, |
| @@ -1868,6 +1868,7 @@ struct standard_args standard_args[] = | |||
| 1868 | { "-directory", 0, 0, 1 }, | 1868 | { "-directory", 0, 0, 1 }, |
| 1869 | { "-l", "--load", 0, 1 }, | 1869 | { "-l", "--load", 0, 1 }, |
| 1870 | { "-load", 0, 0, 1 }, | 1870 | { "-load", 0, 0, 1 }, |
| 1871 | { "-scriptload", "--scriptload", 0, 1 }, | ||
| 1871 | { "-f", "--funcall", 0, 1 }, | 1872 | { "-f", "--funcall", 0, 1 }, |
| 1872 | { "-funcall", 0, 0, 1 }, | 1873 | { "-funcall", 0, 0, 1 }, |
| 1873 | { "-eval", "--eval", 0, 1 }, | 1874 | { "-eval", "--eval", 0, 1 }, |