From c3eae1d719cd6b95410d15c7ff3634fcc248c98f Mon Sep 17 00:00:00 2001 From: Rafael Nicdao Date: Fri, 29 Oct 2021 22:24:06 +1100 Subject: [PATCH] Replace deprecated `find` with `cl-find` --- thread-dump.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/thread-dump.el b/thread-dump.el index 75eb546..c2e6556 100644 --- a/thread-dump.el +++ b/thread-dump.el @@ -16,9 +16,12 @@ ;; Author: Dmitry Neverov ;; URL: http://github.com/nd/thread-dump.el ;; Version: 1.0 +;; Package-Requires: ((emacs "24.5")) ;; ;; Code goes here +(require 'cl-lib) + (defconst thread-dump-overview-mode-map (let ((map (make-keymap))) (define-key map (kbd "n") 'thread-dump-overview-show-next-thread) @@ -250,9 +253,9 @@ (defun thread-dump-find-thread-by-id (id) - (find id - thread-dump-threads - :test '(lambda (x y) (= x (cdr (assoc 'id y)))))) + (cl-find id + thread-dump-threads + :test '(lambda (x y) (= x (cdr (assoc 'id y)))))) (defun thread-dump-overview-filter (term) (interactive "MFilter: ")