Mercurial > emacs
comparison src/emacs.c @ 21585:139e449079a7
(standard_args): Add --no-unibyte.
(main): Recognize --no-unibyte to inhibit EMACS_UNIBYTE.
(main): Fix typo, add --multibyte and --no-multibyte.
(standard_args): Add --multibyte and --no-multibyte.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 16 Apr 1998 21:24:37 +0000 |
| parents | fa9ff387d260 |
| children | 340ce8f170ef |
comparison
equal
deleted
inserted
replaced
| 21584:18ee24ba7921 | 21585:139e449079a7 |
|---|---|
| 736 EXTRA_INITIALIZE; | 736 EXTRA_INITIALIZE; |
| 737 #endif | 737 #endif |
| 738 | 738 |
| 739 inhibit_window_system = 0; | 739 inhibit_window_system = 0; |
| 740 | 740 |
| 741 /* --unibyte requests that we set up to do everything with single-byte | 741 { |
| 742 buffers and strings. We need to handle this before calling | 742 int inhibit_unibyte = 0; |
| 743 init_lread, init_editfns and other places that generate Lisp strings | 743 |
| 744 from text in the environment. */ | 744 /* --multibyte overrides EMACS_UNIBYTE. */ |
| 745 if ((argmatch (argv, argc, "-unibyte", "--unibyte", 4, NULL, &skip_args)) | 745 if (argmatch (argv, argc, "-no-unibyte", "--no-unibyte", 4, NULL, &skip_args) |
| 746 || getenv ("EMACS_UNIBYTE")) | 746 || argmatch (argv, argc, "-multibyte", "--multibyte", 4, NULL, &skip_args)) |
| 747 { | 747 inhibit_unibyte = 1; |
| 748 Lisp_Object symbol; | 748 |
| 749 symbol = intern ("default-enable-multibyte-characters"); | 749 /* --unibyte requests that we set up to do everything with single-byte |
| 750 Fset (symbol, Qnil); | 750 buffers and strings. We need to handle this before calling |
| 751 Fset_default (symbol, Qnil); | 751 init_lread, init_editfns and other places that generate Lisp strings |
| 752 } | 752 from text in the environment. */ |
| 753 if (argmatch (argv, argc, "-unibyte", "--unibyte", 4, NULL, &skip_args) | |
| 754 || argmatch (argv, argc, "-no-multibyte", "--no-multibyte", 4, NULL, &skip_args) | |
| 755 || (getenv ("EMACS_UNIBYTE") && !inhibit_unibyte)) | |
| 756 { | |
| 757 Lisp_Object symbol; | |
| 758 symbol = intern ("default-enable-multibyte-characters"); | |
| 759 Fset (symbol, Qnil); | |
| 760 Fset_default (symbol, Qnil); | |
| 761 } | |
| 762 } | |
| 753 | 763 |
| 754 /* Handle the -t switch, which specifies filename to use as terminal */ | 764 /* Handle the -t switch, which specifies filename to use as terminal */ |
| 755 { | 765 { |
| 756 char *term; | 766 char *term; |
| 757 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args)) | 767 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args)) |
| 1250 { "-help", "--help", 110, 0 }, | 1260 { "-help", "--help", 110, 0 }, |
| 1251 { "-nl", "--no-shared-memory", 100, 0 }, | 1261 { "-nl", "--no-shared-memory", 100, 0 }, |
| 1252 #ifdef VMS | 1262 #ifdef VMS |
| 1253 { "-map", "--map-data", 100, 0 }, | 1263 { "-map", "--map-data", 100, 0 }, |
| 1254 #endif | 1264 #endif |
| 1265 { "-no-unibyte", "--no-unibyte", 96, 0 }, | |
| 1266 { "-multibyte", "--multibyte", 96, 0 }, | |
| 1255 { "-unibyte", "--unibyte", 95, 0 }, | 1267 { "-unibyte", "--unibyte", 95, 0 }, |
| 1268 { "-no-multibyte", "--no-multibyte", 95, 0 }, | |
| 1256 { "-t", "--terminal", 90, 1 }, | 1269 { "-t", "--terminal", 90, 1 }, |
| 1257 { "-d", "--display", 80, 1 }, | 1270 { "-d", "--display", 80, 1 }, |
| 1258 { "-display", 0, 80, 1 }, | 1271 { "-display", 0, 80, 1 }, |
| 1259 { "-nw", "--no-windows", 70, 0 }, | 1272 { "-nw", "--no-windows", 70, 0 }, |
| 1260 { "-batch", "--batch", 60, 0 }, | 1273 { "-batch", "--batch", 60, 0 }, |