From a981e7fff1b1db748ce271c5585a864425ac41b2 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 28 Sep 1994 22:38:04 +0000 Subject: [PATCH] (command-line): Fix bug in previous change. --- lisp/startup.el | 4 ++-- 1 file 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)) -- 2.39.5