From 535aea00825221494a1c67413e5e9b73bb7d7324 Mon Sep 17 00:00:00 2001 From: Christophe Troestler Date: Thu, 30 Nov 2023 00:13:10 +0100 Subject: [PATCH] rust-ts-mode: appropriately fontify doc strings Content-Type: text/plain; charset="utf-8" --- lisp/progmodes/rust-ts-mode.el | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/rust-ts-mode.el b/lisp/progmodes/rust-ts-mode.el index 88344934e49..03ff2776d3a 100644 --- a/lisp/progmodes/rust-ts-mode.el +++ b/lisp/progmodes/rust-ts-mode.el @@ -153,7 +153,7 @@ rust-ts-mode--font-lock-settings :language 'rust :feature 'comment - '(([(block_comment) (line_comment)]) @font-lock-comment-face) + '(([(block_comment) (line_comment)]) @rust-ts-mode--comment-docstring) :language 'rust :feature 'delimiter @@ -293,6 +293,17 @@ rust-ts-mode--font-lock-settings '((ERROR) @font-lock-warning-face)) "Tree-sitter font-lock settings for `rust-ts-mode'.") +(defun rust-ts-mode--comment-docstring (node override start end &rest _args) + "Use the comment or documentation face appropriately for comments." + (let* ((beg (treesit-node-start node)) + (end (treesit-node-end node)) + (face (save-excursion + (goto-char beg) + (if (looking-at "///") + 'font-lock-doc-face + 'font-lock-comment-face)))) + (treesit-fontify-with-override beg end face override start end))) + (defun rust-ts-mode--fontify-scope (node override start end &optional tail-p) (let* ((case-fold-search nil) (face -- 2.42.0