Mercurial > emacs
changeset 12397:fcc312993a33
(command-line): Extract arg value properly for -u.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 27 Jun 1995 10:05:39 +0000 |
| parents | d0c82df80d70 |
| children | ccfd646cfad9 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Tue Jun 27 10:05:22 1995 +0000 +++ b/lisp/startup.el Tue Jun 27 10:05:39 1995 +0000 @@ -415,8 +415,8 @@ ((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)))