(command-line): Extract arg value properly for -u.

diff --git a/lisp/startup.el b/lisp/startup.el
index 82a9094fbad383ac1341f762acfe76dc0424ce9e..17b77adf752e97076d5b6a3c0aaa2b0ea84a30e5 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -415,8 +415,8 @@ specified by the LC_ALL, LC_CTYPE and LANG environment variables.")
         ((or (string-equal argi "-u")
              (string-equal argi "-user"))
          (or argval
-             (setq argval (car args)
-                   args (cdr args)))
+             (setq args (cdr args)
+                   argval (car args)))
          (setq init-file-user argval
                argval nil
                args (cdr args)))