From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 11 Aug 2024 18:05:22 +0000 (+0200)
Subject: (refactor-backend-rename-highlight-regions): Fix thinko
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b6bb26da8eb43991ca3abc74b843d4132be52029;p=emacs.git

(refactor-backend-rename-highlight-regions): Fix thinko
---

diff --git a/lisp/progmodes/refactor-elisp.el b/lisp/progmodes/refactor-elisp.el
index fa5756572db..be33e7ece44 100644
--- a/lisp/progmodes/refactor-elisp.el
+++ b/lisp/progmodes/refactor-elisp.el
@@ -67,10 +67,10 @@
                     (pcase-lambda (`(,beg ,len ,bin))
                       (when (<= beg pos (+ beg len)) bin))
                     all)))
-    (mapcar (pcase-lambda (`(,beg ,len ,bin))
-              (when (equal bin dec)
-                (cons beg (+ beg len))))
-            all)))
+    (seq-keep (pcase-lambda (`(,beg ,len ,bin))
+                (when (equal bin dec)
+                  (cons beg (+ beg len))))
+              all)))
 
 (provide 'refactor-elisp)
 ;;; refactor-elisp.el ends here