From 035e99e2e48c355410b27a3805e28d9d8d9b8a4b Mon Sep 17 00:00:00 2001 From: Rutherther Date: Sat, 22 Jun 2024 20:16:54 +0200 Subject: [PATCH] chore: update vhdl-ts-mode --- init.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/init.el b/init.el index 2ea1e5b..2864b84 100644 --- a/init.el +++ b/init.el @@ -1015,7 +1015,7 @@ ) (my-use-package vhdl-ts-mode - :ensure (:host github :repo "Rutherther/vhdl-ts-mode" :rev "9c8e14f53d3437d0d69f63f8833ebce39c1a39f6") + :ensure (:host github :repo "Rutherther/vhdl-ts-mode" :rev "a80b690e155975b61036e664f1f2ad592d74ab33") :after vhdl-mode :general (my-local-leader vhdl-ts-mode-map @@ -1030,6 +1030,7 @@ (my/indent-variable-mode-alist-add vhdl-ts-mode vhdl-ts-indent-level) (defun my/vhdl-ts-special-node-identifier-name (node) + "Return identifier name of NODE." (let (temp-node) (when node (cond ((string-match vhdl-ts-instance-re (treesit-node-type node)) @@ -1045,12 +1046,13 @@ (let* ((special-identifier-name (my/vhdl-ts-special-node-identifier-name node)) (concat-identifier-name (when special-identifier-name - (concat " - " special-identifier-name)))) + (concat ": " special-identifier-name)))) (concat (treesit-node-text (treesit-search-subtree node vhdl-ts-identifier-re)) concat-identifier-name))) - (advice-add 'vhdl-ts--node-identifier-name :override #'my/vhdl-ts-node-identifier-name)) + (advice-add 'vhdl-ts--node-identifier-name :override #'my/vhdl-ts-node-identifier-name) + ) (my-use-package hydra :ensure t) -- 2.48.1