xref-find-by-kind b57b29cb1be: xref-*-kind: Use 'cl-find' instead of 'cl-find-if'

branch: xref-find-by-kind
commit b57b29cb1bed27cc20919b475a3460c42bab2e58
Author: Dmitry Gutov <[email protected]>
Commit: Dmitry Gutov <[email protected]>

    xref-*-kind: Use 'cl-find' instead of 'cl-find-if'
    
    * lisp/progmodes/xref.el (xref-find-by-kind, xref--read-kind):
    Use 'cl-find' instead of 'cl-find-if'.  Slightly more concise.
---
 lisp/progmodes/xref.el | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 10db6229520..8b404c16e2c 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -1822,9 +1822,7 @@ when it decides whether to split the window horizontally or vertically."
                    descs))
          (key (nth 0
                    (read-multiple-choice prompt choices))))
-    (cl-find-if
-     (lambda (desc) (eql (plist-get desc :key) key))
-     descs)))
+    (cl-find key descs :key (lambda (desc) (plist-get desc :key)))))
 
 ;;;###autoload
 (defun xref-find-by-kind (identifier kind)
@@ -1853,9 +1851,8 @@ When called programmatically, KIND should be one of supported symbols."
                    (xref-backend-identifier-kind-predicate (xref-find-backend)
                                                            kind))
                   kind)))
-  (let ((kind-desc (cl-find-if
-                    (lambda (kind-desc) (eq (plist-get kind-desc :kind) kind))
-                    (xref-backend-xref-kinds (xref-find-backend)))))
+  (let ((kind-desc (cl-find kind (xref-backend-xref-kinds (xref-find-backend))
+                            :key (lambda (desc) (plist-get desc :kind)))))
     (xref--show-defs
      (xref--create-fetcher identifier 'xrefs-by-kind (plist-get kind-desc :name)
                            identifier (plist-get kind-desc :kind))