From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 27 Jun 1995 10:05:39 +0000 (+0000)
Subject: (command-line): Extract arg value properly for -u.
X-Git-Tag: emacs-19.34~3462
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d3bea05f1f14fd9b4425307ade7bf65ea1df65be;p=emacs.git

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

diff --git a/lisp/startup.el b/lisp/startup.el
index 82a9094fbad..17b77adf752 100644
--- 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)))