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

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

diff --git a/src/ChangeLog b/src/ChangeLog
index 7fea62d2ae5a689c18249288ea6d69c6b79675d7..cdd2940d0a78200a85c0397a81b1a3b3912ee600 100644 (file)
--- 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 7acf3f59e4d30f6469ac8497e27cb0ebecf93bc0..9892ed29bab65a7a0458ce218f7ea2d2a31e4b5a 100644 (file)
--- 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 },