From 79713ad62b7e28f303dbdf6f55f2982981c55b74 Mon Sep 17 00:00:00 2001 From: Kinneyzhang Date: Mon, 15 Dec 2025 19:01:33 +0800 Subject: [PATCH] fix bugs on tp-forward/backward --- tp.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tp.el b/tp.el index ca81954..9ac17f6 100644 --- a/tp.el +++ b/tp.el @@ -1063,7 +1063,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)))) + (setq result (tp-search-forward property value t)))) result))))) (defun tp-backward (property &optional value object n) @@ -1124,7 +1124,7 @@ Returns the number of successful matches." (save-excursion (when point (goto-char point)) (dotimes (_ count) - (when-let ((match (tp-search-forward property value))) + (when-let ((match (tp-search-forward property value t))) (funcall function match buf) (cl-incf matches))))) matches)))))