mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-27 23:50:30 -08:00
Code Issues Projects Releases Wiki Activity

(standard_args): Add file' as synonym for visit',

Browse source 
`execute' as synonym for `eval'.
(main): Add new options to usage message.
This commit is contained in:
Gerd Moellmann 1999-10-26 14:34:42 +00:00
parent 7f785b5045
commit 67a5596fa3
2 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/ChangeLog
View file

@ -1,3 +1,9 @@
1999-10-26 Gerd Moellmann <gerd@gnu.org>
* emacs.c (standard_args): Add `file' as synonym for `visit',
`execute' as synonym for `eval'.
(main): Add new options to usage message.
1999-10-25 Gerd Moellmann <gerd@gnu.org>
* data.c (Qhash_table): New.

8
src/emacs.c
View file

@ -859,7 +859,8 @@ Usage: %s [--batch] [-t term] [--terminal term]\n\
[-q] [--no-init-file] [-u user] [--user user] [--debug-init]\n\
[--unibyte] [--multibyte] [--version] [--no-site-file]\n\
[-f func] [--funcall func] [-l file] [--load file] [--eval expr]\n\
[--insert file] [+linenum] file-to-visit [--kill]\n\
[--execute expr] [--visit file] [--file file] [--insert file]\n\
[+linenum] file-to-visit [--kill]\n\
Report bugs to bug-gnu-emacs@gnu.org. First, please see\n\
the Bugs section of the Emacs manual or the file BUGS.\n", argv[0]);
exit (0);
@ -1379,7 +1380,10 @@ the Bugs section of the Emacs manual or the file BUGS.\n", argv[0]);
extern void _mcleanup ();
extern char etext;
extern void safe_bcopy ();
extern void dump_opcode_frequencies ();
atexit (_mcleanup);
// atexit (dump_opcode_frequencies);
/* This uses safe_bcopy because that function comes first in the
Emacs executable. It might be better to use something that
gives the start of the text segment, but start_of_text is not
@ -1484,8 +1488,10 @@ struct standard_args standard_args[] =
{ "-f", "--funcall", 0, 1 },
{ "-funcall", 0, 0, 1 },
{ "-eval", "--eval", 0, 1 },
{ "-execute", "--execute", 0, 1 },
{ "-find-file", "--find-file", 0, 1 },
{ "-visit", "--visit", 0, 1 },
{ "-file", "--file", 0, 1 },
{ "-insert", "--insert", 0, 1 },
/* This should be processed after ordinary file name args and the like. */
{ "-kill", "--kill", -10, 0 },