changeset 9174:900fdf19446a

(command-line): Fix bug in previous change.
author Karl Heuer <kwzh@gnu.org>
date Wed, 28 Sep 1994 22:38:04 +0000
parents 6ee3eeec722b
children df2f1773aa06
files lisp/startup.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Wed Sep 28 22:15:38 1994 +0000
+++ b/lisp/startup.el	Wed Sep 28 22:38:04 1994 +0000
@@ -297,8 +297,8 @@
 	    (argi (car args))
 	    (argval nil))
 	(if (string-match "=" argi)
-	    (setq argi (substring argi 0 (1- (match-beginning 0)))
-		  argval (substring argi (match-end 0))))
+	    (setq argval (substring argi (match-end 0))
+		  argi (substring argi 0 (match-beginning 0))))
 	(let ((completion (try-completion argi longopts)))
 	  (if (eq completion t)
 	      (setq argi (substring argi 1))