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.")
(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))
......
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