(command-line): Fix bug in previous change.

diff --git a/lisp/startup.el b/lisp/startup.el
index 2090e046308f8de7332358bf8d8d952fbc13c0c2..e1a3bba5010f25dead3b555972a2015089f39549 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -297,8 +297,8 @@ specified by the LC_ALL, LC_CTYPE and LANG environment variables.")
            (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))