Use ## and seq-find instead of --first

In one case use lambda and in another pcase-lambda, not ##.

1 files changed, 3 insertions, 3 deletions

diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index c05ddae..2ea9f87 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -2308,8 +2308,8 @@ and this option only controls what face is used.")
                  ", " t))
           state head upstream tags branches remotes other combined)
       (dolist (ref refs)
-        (let* ((face (cdr (--first (string-match (car it) ref)
-                                   magit-ref-namespaces)))
+        (let* ((face (cdr (seq-find (##string-match (car %) ref)
+                                    magit-ref-namespaces)))
                (name (match-string 1 ref))
                (name (if (and name
                               (not (string-prefix-p "refs/tags/" ref))
@@ -2720,7 +2720,7 @@ and this option only controls what face is used.")
                            (or (magit-section-value-if 'branch)
                                atpoint
                                (and (not (cdr atrev)) (car atrev))
-                               (--first (not (equal it current)) atrev)
+                               (seq-find (##not (equal % current)) atrev)
                                (magit-get-previous-branch)
                                (car atrev)))))