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)))) (buf (or object (current-buffer))))
(with-current-buffer buf (with-current-buffer buf
(dotimes (_ count) (dotimes (_ count)
(setq result (tp-search-forward property value)))) (setq result (tp-search-forward property value t))))
result))))) result)))))
(defun tp-backward (property &optional value object n) (defun tp-backward (property &optional value object n)
@ -1124,7 +1124,7 @@ Returns the number of successful matches."
(save-excursion (save-excursion
(when point (goto-char point)) (when point (goto-char point))
(dotimes (_ count) (dotimes (_ count)
(when-let ((match (tp-search-forward property value))) (when-let ((match (tp-search-forward property value t)))
(funcall function match buf) (funcall function match buf)
(cl-incf matches))))) (cl-incf matches)))))
matches))))) matches)))))