From 67a5596fa3e72172a0deeca74e2087f174a456e8 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 26 Oct 1999 14:34:42 +0000 Subject: [PATCH] (standard_args): Add `file' as synonym for `visit', `execute' as synonym for `eval'. (main): Add new options to usage message. --- src/ChangeLog | 6 ++++++ src/emacs.c | 8 +++++++- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index 7fea62d2ae5..cdd2940d0a7 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +1999-10-26 Gerd Moellmann + + * 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 * data.c (Qhash_table): New. diff --git a/src/emacs.c b/src/emacs.c index 7acf3f59e4d..9892ed29bab 100644 --- a/src/emacs.c +++ b/src/emacs.c @@ -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 }, -- 2.39.5