diff options
| author | Karl Heuer | 1994-09-28 22:38:04 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-09-28 22:38:04 +0000 |
| commit | a981e7fff1b1db748ce271c5585a864425ac41b2 (patch) | |
| tree | 3d0a4d093980889d3bd2ef34e9032d1310a0c5ee | |
| parent | 096b7031fccd594a610768f823a0fe06e7772b4c (diff) | |
| download | emacs-a981e7fff1b1db748ce271c5585a864425ac41b2.tar.gz emacs-a981e7fff1b1db748ce271c5585a864425ac41b2.zip | |
(command-line): Fix bug in previous change.
| -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.") | |||
| 297 | (argi (car args)) | 297 | (argi (car args)) |
| 298 | (argval nil)) | 298 | (argval nil)) |
| 299 | (if (string-match "=" argi) | 299 | (if (string-match "=" argi) |
| 300 | (setq argi (substring argi 0 (1- (match-beginning 0))) | 300 | (setq argval (substring argi (match-end 0)) |
| 301 | argval (substring argi (match-end 0)))) | 301 | argi (substring argi 0 (match-beginning 0)))) |
| 302 | (let ((completion (try-completion argi longopts))) | 302 | (let ((completion (try-completion argi longopts))) |
| 303 | (if (eq completion t) | 303 | (if (eq completion t) |
| 304 | (setq argi (substring argi 1)) | 304 | (setq argi (substring argi 1)) |