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

`execute' as synonym for `eval'.
(main): Add new options to usage message.

2 files changed, 13 insertions, 1 deletions

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  <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.
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 },