(argv): Alias for `command-line-args-left' to use as

`(pop argv)' inside of --eval command sequences.  Allows for
passing shell commands into Emacs verbatim without need for Lisp
quoting.

diff --git a/etc/NEWS b/etc/NEWS
index 63a3797b6d08cfedcde15bb510cb1aa9c83d20e6..d6c76df565406812be102b2c4a4793b9ad481b04 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -103,6 +103,10 @@ using several time zones, in a buffer.
 after starting Emacs: startup screen, *scratch* buffer, visiting a
 file or directory.
 
+** New alias `argv' for `command-line-args-left'
+This is a convenience alias, so that one can write `(pop argv)'
+inside of --eval command line arguments in order to access
+following arguments.
 \f
 * Incompatible Editing Changes in Emacs 23.1
 

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 12eabe46e5a886fede3cbbaaac35ba9720a55555..ac151a50bf06ea21b649f7745de00832a55eec71 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2007-09-30  David Kastrup  <dak@gnu.org>
 
+       * startup.el (argv): Alias for `command-line-args-left' to use as
+       `(pop argv)' inside of --eval command sequences.  Allows for
+       passing shell commands into Emacs verbatim without need for Lisp
+       quoting.
+
        * autorevert.el (auto-revert-handler): In `auto-revert-tail-mode',
        check only for changed size.
        (auto-revert-tail-handler): Get size from caller.  If the file has

diff --git a/lisp/startup.el b/lisp/startup.el
index 395d1673a1a283ad8fca92f24181775be68aa551..ef0e750d7dc2a41f1d925dacd27b6354fcdeef3b 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -107,6 +107,12 @@ the remaining command-line args are in the variable `command-line-args-left'.")
 (defvar command-line-args-left nil
   "List of command-line args not yet processed.")
 
+(defvaralias 'argv 'command-line-args-left
+  "List of command-line args not yet processed.
+This is a convenience alias, so that one can write \(pop argv\)
+inside of --eval command line arguments in order to access
+following arguments.")
+
 (defvar command-line-functions nil    ;; lrs 7/31/89
   "List of functions to process unrecognized command-line arguments.
 Each function should access the dynamically bound variables