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

1995-06-27 10:05:39 +00:00
parent 4cde72b44e
commit d3bea05f1f
1 changed files with 2 additions and 2 deletions
--- 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)))