From: Yuan Fu <casouri@gmail.com>
Date: Sat, 7 Jan 2023 23:26:56 +0000 (-0800)
Subject: Fix c-ts-mode--looking-at-star
X-Git-Tag: emacs-29.0.90~807
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=757c2c25922e9c9dea33dd34f0112b631ea5c208;p=emacs.git

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

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.
---

diff --git a/lisp/progmodes/c-ts-mode.el b/lisp/progmodes/c-ts-mode.el
index b8c4313c0f9..a6ab454012d 100644
--- a/lisp/progmodes/c-ts-mode.el
+++ b/lisp/progmodes/c-ts-mode.el
@@ -205,11 +205,13 @@ beginning of grandparent."
            (treesit-node-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.
 Matches if there is a \"*\" after point (ignoring whitespace in
 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 _)
   "A tree-sitter simple indent anchor.