diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-09-28 22:38:04 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-09-28 22:38:04 +0000 |
| commit | d8408314cc9d5dbef9b1912d7abc3294f3be27c1 (patch) | |
| tree | 044ea81fc52078602e4f2ae5aa505c35fdec99a0 /lisp/startup.el | |
| parent | cf2c01d8d7aaf74b6faeb50639e07a92868897ff (diff) | |
| download | emacs-d8408314cc9d5dbef9b1912d7abc3294f3be27c1.tar.gz | |
(command-line): Fix bug in previous change.
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 2090e046308..e1a3bba5010 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -297,8 +297,8 @@ specified by the LC_ALL, LC_CTYPE and LANG environment variables.") (argi (car args)) (argval nil)) (if (string-match "=" argi) - (setq argi (substring argi 0 (1- (match-beginning 0))) - argval (substring argi (match-end 0)))) + (setq argval (substring argi (match-end 0)) + argi (substring argi 0 (match-beginning 0)))) (let ((completion (try-completion argi longopts))) (if (eq completion t) (setq argi (substring argi 1)) |