[elpa] externals/marginalia 4d4ca2c228: Improve marginalia-annotate-tab

[ELPA Syncer]

branch: externals/marginalia
commit 4d4ca2c2285b6fa0621a4cf8a54a9de418182a5d
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Improve marginalia-annotate-tab
---
 marginalia.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index 13983461ab..466fef9bf3 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -1033,8 +1033,11 @@ These annotations are skipped for remote paths."
 (defun marginalia-annotate-tab (cand)
   "Annotate named tab CAND with tab index, window and buffer information."
   (when-let* ((tabs (funcall tab-bar-tabs-function))
-              (tab (seq-find (lambda (tab) (equal (alist-get 'name tab) cand)) 
tabs)))
-    (let* ((ws (alist-get 'ws tab))
+              (index (seq-position
+                      tabs nil
+                      (lambda (tab _) (equal (alist-get 'name tab) cand)))))
+    (let* ((tab (nth index tabs))
+           (ws (alist-get 'ws tab))
            ;; window-state-buffers requires Emacs 27
            (bufs (and (fboundp 'window-state-buffers)
                       (window-state-buffers ws))))
@@ -1042,7 +1045,7 @@ These annotations are skipped for remote paths."
       ;; it is added in front of the window buffer list and gets duplicated.
       (when (cadr (assq 'buffer ws)) (pop bufs))
       (concat
-       (format #(" (%s)" 0 5 (face marginalia-key)) (seq-position tabs tab 
#'eq))
+       (format #(" (%s)" 0 5 (face marginalia-key)) index)
        (marginalia--fields
         ((if (cdr bufs)
              (format "%d windows" (length bufs))