(main): Obey environment variable EMACS_UNIBYTE as

alternative to --unibyte.
This commit is contained in:
Dave Love 1998-04-07 11:48:18 +00:00
parent 74ae80cdf3
commit 28a3f8110d

View file

@ -735,7 +735,8 @@ main (argc, argv, envp)
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))
if ((argmatch (argv, argc, "-unibyte", "--unibyte", 4, NULL, &skip_args))
|| getenv ("EMACS_UNIBYTE"))
{
Lisp_Object symbol;
symbol = intern ("default-enable-multibyte-characters");
@ -784,7 +785,7 @@ main (argc, argv, envp)
printf ("\
Usage: %s [-t term] [--terminal term] [-nw] [--no-windows] [--batch]\n\
[-q] [--no-init-file] [-u user] [--user user] [--debug-init]\n\
[--version] [--no-site-file] [--unibyte]\n\
[--version] [--no-site-file]\n\
[-f func] [--funcall func] [-l file] [--load file] [--insert file]\n\
[+linenum] file-to-visit [--kill]\n\
Report bugs to bug-gnu-emacs@prep.ai.mit.edu. First, please see\n\