comparison src/emacs.c @ 21406:4b59242b8a49

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

21405:4370dfe3cfb3

  /* --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);

  if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
    {
      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\
      [-f func] [--funcall func]  [-l file] [--load file]  [--insert file]\n\
      [+linenum] file-to-visit  [--kill]\n\
Report bugs to [e-mail].  First, please see\n\
the Bugs section of the Emacs manual or the file BUGS.\n", argv[0]);
      exit (0);

21406:4b59242b8a49

  /* --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)) 
      || getenv ("EMACS_UNIBYTE"))
    {
      Lisp_Object symbol;
      symbol = intern ("default-enable-multibyte-characters");
      Fset (symbol, Qnil);
      Fset_default (symbol, Qnil);

  if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
    {
      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]\n\
      [-f func] [--funcall func]  [-l file] [--load file]  [--insert file]\n\
      [+linenum] file-to-visit  [--kill]\n\
Report bugs to [e-mail].  First, please see\n\
the Bugs section of the Emacs manual or the file BUGS.\n", argv[0]);
      exit (0);