From: Yuan Fu <casouri@gmail.com>
Date: Tue, 10 Jan 2023 04:15:12 +0000 (-0800)
Subject: Don't print named tree-sitter nodes with parenthesizes (bug#60696)
X-Git-Tag: emacs-29.0.90~774
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa9df1260c3fe5e872bef926288ce345bedbe1bb;p=emacs.git

Don't print named tree-sitter nodes with parenthesizes (bug#60696)

* src/print.c (print_vectorlike): Use empty string as delimiters if
the node is named.
---

diff --git a/src/print.c b/src/print.c
index d4a9ff89246..e65b4c40b0e 100644
--- a/src/print.c
+++ b/src/print.c
@@ -2034,8 +2034,13 @@ print_vectorlike (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag,
       /* Now the node must be up-to-date, and calling functions like
 	 Ftreesit_node_start will not signal.  */
       bool named = treesit_named_node_p (XTS_NODE (obj)->node);
-      const char *delim1 = named ? "(" : "\"";
-      const char *delim2 = named ? ")" : "\"";
+      /* We used to use () as delimiters for named nodes, but that
+	 confuses pretty-printing a tad bit.  There might be more
+	 little breakages here and there if we print parenthesizes
+	 inside an object, so I guess better not do it.
+	 (bug#60696)  */
+      const char *delim1 = named ? "" : "\"";
+      const char *delim2 = named ? "" : "\"";
       print_c_string (delim1, printcharfun);
       print_string (Ftreesit_node_type (obj), printcharfun);
       print_c_string (delim2, printcharfun);