# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 885784794 0
# Node ID ddd131d0dc36417ee48c4c2a9b1d78eb5681ac0e
# Parent  d56dca77717a31b3ca8991d68fc0cbeb945df9dd
(standard_args): Add "-unibyte" aka "--unibyte".
(main): Handle --unibyte.

diff -r d56dca77717a -r ddd131d0dc36 src/emacs.c
--- a/src/emacs.c	Mon Jan 26 03:14:34 1998 +0000
+++ b/src/emacs.c	Mon Jan 26 03:19:54 1998 +0000
@@ -731,6 +731,18 @@
 
   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 @@
 #ifdef VMS
   { "-map", "--map-data", 100, 0 },
 #endif
+  { "-unibyte", "--unibyte", 95, 0 },
   { "-t", "--terminal", 90, 1 },
   { "-d", "--display", 80, 1 },
   { "-display", 0, 80, 1 },