branch: elpa/magit
commit b241533a68ffe3ca9d38bcb7d47bb571d3f303cd
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
magit-commit-children: Cosmetics
---
lisp/magit-git.el | 13 ++++++-------
1 file changed, 6 insertions(+), 7 deletions(-)
diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index 6ff7229d6b9..041f3fae40d 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -2228,13 +2228,12 @@ If `first-parent' is set, traverse only first parents."
(magit-rev-parse (magit-abbrev-arg "short") rev))
(defun magit-commit-children (commit &optional args)
- (mapcar #'car
- (--filter (member commit (cdr it))
- (--map (split-string it " ")
- (magit-git-lines
- "log" "--format=%H %P"
- (or args (list "--branches" "--tags" "--remotes"))
- "--not" commit)))))
+ (seq-keep (lambda (line)
+ (pcase-let ((`(,child . ,parents) (split-string line " ")))
+ (and (member commit parents) child)))
+ (magit-git-lines "log" "--format=%H %P"
+ (or args (list "--branches" "--tags" "--remotes"))
+ "--not" commit)))
(defun magit-commit-parents (commit)
(and-let* ((str (magit-git-string "rev-list" "-1" "--parents" commit)))
