Commit 28a3f811 authored by Dave Love's avatar Dave Love
Browse files

(main): Obey environment variable EMACS_UNIBYTE as

alternative to --unibyte.
parent 74ae80cd
...@@ -735,7 +735,8 @@ main (argc, argv, envp) ...@@ -735,7 +735,8 @@ main (argc, argv, envp)
buffers and strings. We need to handle this before calling buffers and strings. We need to handle this before calling
init_lread, init_editfns and other places that generate Lisp strings init_lread, init_editfns and other places that generate Lisp strings
from text in the environment. */ 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; Lisp_Object symbol;
symbol = intern ("default-enable-multibyte-characters"); symbol = intern ("default-enable-multibyte-characters");
...@@ -784,7 +785,7 @@ main (argc, argv, envp) ...@@ -784,7 +785,7 @@ main (argc, argv, envp)
printf ("\ printf ("\
Usage: %s [-t term] [--terminal term] [-nw] [--no-windows] [--batch]\n\ Usage: %s [-t term] [--terminal term] [-nw] [--no-windows] [--batch]\n\
[-q] [--no-init-file] [-u user] [--user user] [--debug-init]\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\ [-f func] [--funcall func] [-l file] [--load file] [--insert file]\n\
[+linenum] file-to-visit [--kill]\n\ [+linenum] file-to-visit [--kill]\n\
Report bugs to bug-gnu-emacs@prep.ai.mit.edu. First, please see\n\ Report bugs to bug-gnu-emacs@prep.ai.mit.edu. First, please see\n\
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment