diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-01-26 03:19:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-01-26 03:19:54 +0000 |
| commit | 555d766899e703fc649a7132709cd9c41e0e62c2 (patch) | |
| tree | c8aef4907bade97a4f226c07ab6a143ff729b83e /src | |
| parent | 98985efa53a55cabdd64644f44b52c1638b0af6f (diff) | |
| download | emacs-555d766899e703fc649a7132709cd9c41e0e62c2.tar.gz | |
(standard_args): Add "-unibyte" aka "--unibyte".
(main): Handle --unibyte.
Diffstat (limited to 'src')
| -rw-r--r-- | src/emacs.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/emacs.c b/src/emacs.c index cbcab1a887b..0a50ef3c7b9 100644 --- a/src/emacs.c +++ b/src/emacs.c @@ -731,6 +731,18 @@ main (argc, argv, envp) inhibit_window_system = 0; + /* --unibyte requests that we set up to do everything with single-byte + buffers and strings. We need to handle this before calling + init_lread, init_editfns and other places that generate Lisp strings + from text in the environment. */ + if (argmatch (argv, argc, "-unibyte", "--unibyte", 4, NULL, &skip_args)) + { + Lisp_Object symbol; + symbol = intern ("default-enable-multibyte-characters"); + Fset (symbol, Qnil); + Fset_default (symbol, Qnil); + } + /* Handle the -t switch, which specifies filename to use as terminal */ { char *term; @@ -1232,6 +1244,7 @@ struct standard_args standard_args[] = #ifdef VMS { "-map", "--map-data", 100, 0 }, #endif + { "-unibyte", "--unibyte", 95, 0 }, { "-t", "--terminal", 90, 1 }, { "-d", "--display", 80, 1 }, { "-display", 0, 80, 1 }, |