From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 26 Jan 1998 03:19:54 +0000 (+0000)
Subject: (standard_args): Add "-unibyte" aka "--unibyte".
X-Git-Tag: emacs-20.3~2299
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0b9f07b98fcb6b9538b3dea22f22f4d38e428c40;p=emacs.git

(standard_args): Add "-unibyte" aka "--unibyte".
(main): Handle --unibyte.
---

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 },