geekinney/tp
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

fix bugs on tp-forward/backward

Browse Source
This commit is contained in:
Kinneyzhang 2025-12-15 19:01:33 +08:00
parent 969f9ef98e
commit 79713ad62b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tp.el
View File

@ -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)))))