From 33ca6b520a71db4d82743a0bf6249f31fb779221 Mon Sep 17 00:00:00 2001
From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com>
Date: Mon, 15 Dec 2025 17:00:09 +0000
Subject: [PATCH] Fix tp-forward-do / tp-backward-do to execute function on all
 matches
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Remove erroneous `t` predicate argument from tp-search-forward calls
that caused text-property-search-forward to find regions where the
property value CHANGES rather than regions where the property is SET.

Fixes issue: tp-forward-do / tp-backward-do 只在最后一次执行 function

Co-authored-by: Kinneyzhang <38454496+Kinneyzhang@users.noreply.github.com>
---
 tp.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tp.el b/tp.el
index dca4ada..62e4f67 100644
--- a/tp.el
+++ b/tp.el
@@ -951,7 +951,7 @@ Uses `tp-search-forward' for buffers and `tp-search' for strings."
             (buf (or object (current-buffer))))
         (with-current-buffer buf
           (dotimes (_ count)
-            (setq result (tp-search-forward property value t))))
+            (setq result (tp-search-forward property value))))
         result)))))
 
 (defun tp-backward (property &optional value object n)
@@ -1012,7 +1012,7 @@ Returns the number of successful matches."
           (save-excursion
             (when point (goto-char point))
             (dotimes (_ count)
-              (when-let ((match (tp-search-forward property value t)))
+              (when-let ((match (tp-search-forward property value)))
                 (funcall function match buf)
                 (cl-incf matches)))))
         matches)))))