Commit a981e7ff authored by Karl Heuer's avatar Karl Heuer
Browse files

(command-line): Fix bug in previous change.

parent 096b7031
...@@ -297,8 +297,8 @@ specified by the LC_ALL, LC_CTYPE and LANG environment variables.") ...@@ -297,8 +297,8 @@ specified by the LC_ALL, LC_CTYPE and LANG environment variables.")
(argi (car args)) (argi (car args))
(argval nil)) (argval nil))
(if (string-match "=" argi) (if (string-match "=" argi)
(setq argi (substring argi 0 (1- (match-beginning 0))) (setq argval (substring argi (match-end 0))
argval (substring argi (match-end 0)))) argi (substring argi 0 (match-beginning 0))))
(let ((completion (try-completion argi longopts))) (let ((completion (try-completion argi longopts)))
(if (eq completion t) (if (eq completion t)
(setq argi (substring argi 1)) (setq argi (substring argi 1))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment