From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 15 Dec 1994 13:56:57 +0000 (+0000)
Subject: (main): Fix conversion of --display to -d.
X-Git-Tag: emacs-19.34~5683
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1702afef39488e54d8f7fba0ad009095bfc703d2;p=emacs.git

(main): Fix conversion of --display to -d.

(main): Implement --version.
---

diff --git a/src/emacs.c b/src/emacs.c
index 6172297bc3e..290b1675876 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -420,6 +420,22 @@ main (argc, argv, envp)
 
   sort_args (argc, argv);
 
+  if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args))
+    {
+      Lisp_Object tem;
+      tem = Fsymbol_value (intern ("emacs-version"));
+      if (!STRINGP (tem))
+	{
+	  fprintf (stderr, "Invalid value of `emacs-version'\n");
+	  exit (1);
+	}
+      else
+	{
+	  printf ("%s\n", XSTRING (tem)->data);
+	  exit (0);
+	}
+    }
+
 /* Map in shared memory, if we are using that.  */
 #ifdef HAVE_SHM
   if (argmatch (argv, argc, "-nl", "--no-shared-memory", 6, NULL, &skip_args))
@@ -604,7 +620,9 @@ Usage: %s [-t term] [--terminal term]  [-nw] [--no-windows]  [--batch]\n\
 	argv = new;
 	argc++;
       }
-    else if (displayname != 0 && argv[count_before + 1][1] == '-')
+    /* Change --display to -d, when its arg is separate.  */
+    else if (displayname != 0 && skip_args > count_before
+	     && argv[count_before + 1][1] == '-')
       argv[count_before] = "-d";
 
     /* Don't actually discard this arg.  */