Fix treesit-default-defun-skipper (bug#66711)

* lisp/treesit.el:
(treesit-default-defun-skipper): Add bol to the rx pattern.
This commit is contained in:
Yuan Fu 2023-12-10 17:40:39 -08:00
parent 9874561f39
commit d2c4b926ac
No known key found for this signature in database
GPG key ID: 56E19BC57664A442

View file

@ -1962,7 +1962,7 @@ the current line if the beginning of the defun is indented."
(forward-line 1)) (forward-line 1))
;; Moving backward, but there are some whitespace (and only ;; Moving backward, but there are some whitespace (and only
;; whitespace) between point and BOL: go back to BOL. ;; whitespace) between point and BOL: go back to BOL.
((looking-back (rx (+ (or " " "\t"))) ((looking-back (rx bol (+ (or " " "\t")))
(line-beginning-position)) (line-beginning-position))
(beginning-of-line)))) (beginning-of-line))))