# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 780791884 0
# Node ID 900fdf19446acfb8a7c5c3183be93b55fca26476
# Parent  6ee3eeec722b71811a53e200abec3e11b9d39888
(command-line): Fix bug in previous change.

diff -r 6ee3eeec722b -r 900fdf19446a lisp/startup.el
--- 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))