diff options
| author | Richard M. Stallman | 1995-06-27 10:05:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-06-27 10:05:39 +0000 |
| commit | d3bea05f1f14fd9b4425307ade7bf65ea1df65be (patch) | |
| tree | 1ffa9516fe4104ecbf1a9fced7a63b6cbae12ce6 | |
| parent | 4cde72b44e467b2911e7f4d588c76f2f41947fe5 (diff) | |
| download | emacs-d3bea05f1f14fd9b4425307ade7bf65ea1df65be.tar.gz emacs-d3bea05f1f14fd9b4425307ade7bf65ea1df65be.zip | |
(command-line): Extract arg value properly for -u.
| -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.") | |||
| 415 | ((or (string-equal argi "-u") | 415 | ((or (string-equal argi "-u") |
| 416 | (string-equal argi "-user")) | 416 | (string-equal argi "-user")) |
| 417 | (or argval | 417 | (or argval |
| 418 | (setq argval (car args) | 418 | (setq args (cdr args) |
| 419 | args (cdr args))) | 419 | argval (car args))) |
| 420 | (setq init-file-user argval | 420 | (setq init-file-user argval |
| 421 | argval nil | 421 | argval nil |
| 422 | args (cdr args))) | 422 | args (cdr args))) |