diff options
Diffstat (limited to 'lisp/treesit.el')
| -rw-r--r-- | lisp/treesit.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/treesit.el b/lisp/treesit.el index ee19606c1b2..3feaa51c0a6 100644 --- a/lisp/treesit.el +++ b/lisp/treesit.el | |||
| @@ -4287,11 +4287,9 @@ For BOUND, MOVE, BACKWARD, LOOKING-AT, see the descriptions in | |||
| 4287 | "Tree-sitter implementation of `hs-find-block-beginning-function'." | 4287 | "Tree-sitter implementation of `hs-find-block-beginning-function'." |
| 4288 | (let* ((pred (bound-and-true-p hs-treesit-things)) | 4288 | (let* ((pred (bound-and-true-p hs-treesit-things)) |
| 4289 | (thing (treesit-thing-at (point) pred)) | 4289 | (thing (treesit-thing-at (point) pred)) |
| 4290 | (beg (when thing (treesit-node-start thing))) | 4290 | (beg (when thing (treesit-node-start thing)))) |
| 4291 | (end (when beg (min (1+ beg) (point-max))))) | ||
| 4292 | (when thing | 4291 | (when thing |
| 4293 | (goto-char beg) | 4292 | (goto-char beg) |
| 4294 | (set-match-data (list beg end)) | ||
| 4295 | t))) | 4293 | t))) |
| 4296 | 4294 | ||
| 4297 | (defun treesit-hs-find-next-block (_regexp maxp comments) | 4295 | (defun treesit-hs-find-next-block (_regexp maxp comments) |