procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix c-ts-mode--looking-at-star

Browse source 
Not the topic of bug#60270 but reported in one of the replies.

* lisp/progmodes/c-ts-mode.el (c-ts-mode--looking-at-star): Check not
the character after point but character after BOL. Otherwise
indentation is wrong when point is not at BOL.
This commit is contained in:
Yuan Fu 2023-01-07 15:26:56 -08:00
parent 1df2826639
commit 757c2c2592
No known key found for this signature in database
GPG key ID: 56E19BC57664A442
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/c-ts-mode.el
View file

@ -205,11 +205,13 @@ beginning of grandparent."
(treesit-node-parent parent) (treesit-node-parent parent)
parent))))) parent)))))
(defun c-ts-mode--looking-at-star (&rest _) (defun c-ts-mode--looking-at-star (_n _p bol &rest _)
"A tree-sitter simple indent matcher. "A tree-sitter simple indent matcher.
Matches if there is a \"*\" after point (ignoring whitespace in Matches if there is a \"*\" after point (ignoring whitespace in
between)." between)."
(looking-at (rx (* (syntax whitespace)) "*"))) (save-excursion
(goto-char bol)
(looking-at (rx (* (syntax whitespace)) "*"))))
(defun c-ts-mode--comment-start-after-first-star (_n parent &rest _) (defun c-ts-mode--comment-start-after-first-star (_n parent &rest _)
"A tree-sitter simple indent anchor. "A tree-sitter simple indent anchor.