Mercurial > emacs

changeset 16835:7584a510ad85

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x-handle-args): Stop arg processing if we encounter "--", and preserve all remaining args.
author Richard M. Stallman <rms@gnu.org>
date Mon, 06 Jan 1997 06:51:12 +0000
parents ec390b34ddc0
children ba46af9fd00d
files lisp/term/x-win.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/x-win.el	Sun Jan 05 23:05:46 1997 +0000
+++ b/lisp/term/x-win.el	Mon Jan 06 06:51:12 1997 +0000
@@ -165,7 +165,8 @@
   ;; We use ARGS to accumulate the args that we don't handle here, to return.
   (setq x-invocation-args args
 	args nil)
-  (while x-invocation-args
+  (while (and x-invocation-args
+	      (not (equal (car x-invocation-args) "--")))
     (let* ((this-switch (car x-invocation-args))
 	   (orig-this-switch this-switch)
 	   completion argval aelt handler)
@@ -197,7 +198,7 @@
 		(funcall handler this-switch))
 	    (funcall handler this-switch))
 	(setq args (cons orig-this-switch args)))))
-  (nreverse args))
+  (nconc (nreverse args) x-invocation-args))
 
 ;;
 ;; Standard X cursor shapes, courtesy of Mr. Fox, who wanted ALL of them.