From 757c2c25922e9c9dea33dd34f0112b631ea5c208 Mon Sep 17 00:00:00 2001 From: Yuan Fu Date: Sat, 7 Jan 2023 15:26:56 -0800 Subject: [PATCH] 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. --- lisp/progmodes/c-ts-mode.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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. -- 2.39.5