diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2025-02-02 01:07:26 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2025-02-02 01:07:26 +0100 |
| commit | da78e8ef0d51e77923944a19ca21de460412b317 (patch) | |
| tree | a545a171748b5e68c4d7113b959f9dbf6e98b43c /lisp/magit-git.el | |
| parent | 8010ab4eeda20d3ba9594e22a20da77f2caf82b9 (diff) | |
Use ## and seq-filter instead of --filter
Diffstat (limited to 'lisp/magit-git.el')
| -rw-r--r-- | lisp/magit-git.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/magit-git.el b/lisp/magit-git.el index c93df24..b7779c6 100644 --- a/lisp/magit-git.el +++ b/lisp/magit-git.el @@ -1949,8 +1949,8 @@ SORTBY is a key or list of keys to pass to the `--sort' flag of (magit-list-related-branches "--contains" commit args)) (defun magit-list-publishing-branches (&optional commit) - (--filter (magit-rev-ancestor-p (or commit "HEAD") it) - magit-published-branches)) + (seq-filter (##magit-rev-ancestor-p (or commit "HEAD") %) + magit-published-branches)) (defun magit-list-merged-branches (&optional commit &rest args) (magit-list-related-branches "--merged" commit args)) @@ -1959,9 +1959,9 @@ SORTBY is a key or list of keys to pass to the `--sort' flag of (magit-list-related-branches "--no-merged" commit args)) (defun magit-list-unmerged-to-upstream-branches () - (--filter (and-let* ((upstream (magit-get-upstream-branch it))) - (member it (magit-list-unmerged-branches upstream))) - (magit-list-local-branch-names))) + (seq-filter (##and-let* ((upstream (magit-get-upstream-branch %))) + (member % (magit-list-unmerged-branches upstream))) + (magit-list-local-branch-names))) (defun magit-list-branches-pointing-at (commit) (let ((re (format "\\`%s refs/\\(heads\\|remotes\\)/\\(.*\\)\\'" |