diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-06-27 10:05:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-06-27 10:05:39 +0000 |
| commit | f99e380ab9a02decad063dff29bf3c7e4dcc855f (patch) | |
| tree | 98e5c9ce9416020bf7e9e8c8a2dc75c98136f8af /lisp/startup.el | |
| parent | 2dd42f4ae7513e6dce840b1b1e17a8494b2df189 (diff) | |
| download | emacs-f99e380ab9a02decad063dff29bf3c7e4dcc855f.tar.gz | |
(command-line): Extract arg value properly for -u.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 4 |
1 files 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))) |