[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/clojure-ts-mode 7792ef2704 4/4: Tweak code style
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/clojure-ts-mode 7792ef2704 4/4: Tweak code style |
Date: |
Sat, 5 Apr 2025 06:59:57 -0400 (EDT) |
branch: elpa/clojure-ts-mode
commit 7792ef270436456cb18398109cdaf1a4aa0044a7
Author: Bozhidar Batsov <bozhidar@batsov.dev>
Commit: Bozhidar Batsov <bozhidar@batsov.dev>
Tweak code style
---
clojure-ts-mode.el | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/clojure-ts-mode.el b/clojure-ts-mode.el
index 3e67f8ddb8..03a722bf7d 100644
--- a/clojure-ts-mode.el
+++ b/clojure-ts-mode.el
@@ -614,9 +614,15 @@ This does not include the NODE's namespace."
(string-equal expected-symbol-name (clojure-ts--named-node-text node))))
(defun clojure-ts--node-child-skip-metadata (node n)
- "Return the Nth child of NODE like `treesit-node-child`, skipping the
optional metadata node at pos 0 if present."
+ "Return the Nth child of NODE like `treesit-node-child', sans metadata.
+Skip the optional metadata node at pos 0 if present."
(let ((first-child (treesit-node-child node 0 t)))
- (treesit-node-child node (if (clojure-ts--metadata-node-p first-child) (1+
n) n) t)))
+ (treesit-node-child
+ node
+ (if (clojure-ts--metadata-node-p first-child)
+ (1+ n)
+ n)
+ t)))
(defun clojure-ts--node-with-metadata-parent (node)
"Return parent for NODE only if NODE has metadata, otherwise return nil."