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

Remove commented-out code from old implementation

Browse Source 
Co-authored-by: Kinneyzhang <38454496+Kinneyzhang@users.noreply.github.com>
This commit is contained in:
copilot-swe-agent[bot] 2025-12-16 04:07:45 +00:00
parent b85026b3d4
commit 7f8e5f8487
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tp.el
View File

@ -1003,8 +1003,6 @@ Returns the number of successful matches."
(>= (car m) start-pos)) (>= (car m) start-pos))
all-matches)) all-matches))
(matches (seq-take filtered-matches count))) (matches (seq-take filtered-matches count)))
;; (dolist (match matches)
;; (funcall function match object))
(funcall function (car (last matches)) object) (funcall function (car (last matches)) object)
(length matches))) (length matches)))
;; Buffer or nil ;; Buffer or nil
@ -1016,7 +1014,6 @@ Returns the number of successful matches."
(when point (goto-char point)) (when point (goto-char point))
(dotimes (i count) (dotimes (i count)
(when-let ((match (tp-search-forward property value t))) (when-let ((match (tp-search-forward property value t)))
;; (funcall function match buf)
(when (= i (1- count)) (when (= i (1- count))
(funcall function match buf)) (funcall function match buf))
(cl-incf matches))))) (cl-incf matches)))))
@ -1119,8 +1116,6 @@ Returns the number of successful matches."
(filtered-matches (filtered-matches
(seq-filter (lambda (m) (<= (cadr m) start-pos)) all-matches)) (seq-filter (lambda (m) (<= (cadr m) start-pos)) all-matches))
(matches (seq-take (nreverse filtered-matches) count))) (matches (seq-take (nreverse filtered-matches) count)))
;; (dolist (match matches)
;; (funcall function match object))
(funcall function (car (last matches)) object) (funcall function (car (last matches)) object)
(length matches))) (length matches)))
;; Buffer or nil ;; Buffer or nil
@ -1132,7 +1127,6 @@ Returns the number of successful matches."
(when point (goto-char point)) (when point (goto-char point))
(dotimes (i count) (dotimes (i count)
(when-let ((match (tp-search-backward property value))) (when-let ((match (tp-search-backward property value)))
;; (funcall function match buf)
(when (= i (1- count)) (when (= i (1- count))
(funcall function match buf)) (funcall function match buf))
(cl-incf matches))))) (cl-incf matches)))))