From: Dave Love <fx@gnu.org>
Date: Tue, 7 Apr 1998 11:48:18 +0000 (+0000)
Subject: (main): Obey environment variable EMACS_UNIBYTE as
X-Git-Tag: emacs-20.3~1668
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=28a3f8110d9f15746ce7e765109dc0554f3a2e21;p=emacs.git

(main): Obey environment variable EMACS_UNIBYTE as
alternative to --unibyte.
---

diff --git a/src/emacs.c b/src/emacs.c
index ad11e714ca9..e9fb22f7c07 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -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\