From d3bea05f1f14fd9b4425307ade7bf65ea1df65be Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 27 Jun 1995 10:05:39 +0000 Subject: [PATCH] (command-line): Extract arg value properly for -u. --- lisp/startup.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))) -- 2.39.2