tty-handle-args fix for bug#14608

* startup.el (tty-handle-args): Don't just discard "--" and anything after.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6ed8840a4507a9bbbc9d1be0452fa298bc5b6281..89d970ace1f1f0a20b7f7afd2fc5dd2c75fa0aa2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-06-13  Glenn Morris  <rgm@gnu.org>
 
+       * startup.el (tty-handle-args):
+       Don't just discard "--" and anything after.  (Bug#14608)
+
        * emacs-lisp/lisp.el (forward-sexp, backward-sexp): Doc fixes.
 
 2013-06-13  Michael Albinus  <michael.albinus@gmx.de>

diff --git a/lisp/startup.el b/lisp/startup.el
index b7b4c156f02842205ac5464695e82cf0ffad9d5d..f21e8c4aa11175159ede9e7ac05ad155d5fa7967 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -715,7 +715,7 @@ opening the first frame (e.g. open a connection to an X server).")
                      default-frame-alist))
              (t
                (push argi rest)))))
-    (nreverse rest)))
+    (nconc (nreverse rest) args)))
 
 (declare-function x-get-resource "frame.c"
                  (attribute class &optional component subclass))