branch: elpa/magit
commit 9e13473f28bcad07cb21229c62d887304e0d547b
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
magit-bind-match-strings: Fix recent thinko
The counter has to be incremented for unbound sub-expressions as well.
---
lisp/magit-base.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/magit-base.el b/lisp/magit-base.el
index 734cbfbddc9..d0df3b38a85 100644
--- a/lisp/magit-base.el
+++ b/lisp/magit-base.el
@@ -895,8 +895,10 @@ match was against a string, then that has to be provided
as STRING."
(i 0))
`(let* ((,s ,string)
,@(save-match-data
- (seq-keep (##and (not (eq (aref (symbol-name %) 0) ?_))
- `(,% (match-str ,(cl-incf i) ,s)))
+ (seq-keep (lambda (sym)
+ (cl-incf i)
+ (and (not (eq (aref (symbol-name sym) 0) ?_))
+ `(,sym (match-str ,i ,s))))
varlist)))
,@body)))
