mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(main): Implement --version.
This commit is contained in:
Richard M. Stallman 1994-12-15 13:56:57 +00:00
parent dcc98b56bc
commit 1702afef39
1 changed files with 19 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/emacs.c
View file

@ -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. */