diff options
| author | Yuan Fu <casouri@gmail.com> | 2022-11-01 00:39:58 -0700 |
|---|---|---|
| committer | Yuan Fu <casouri@gmail.com> | 2022-11-01 12:54:56 -0700 |
| commit | ccd2509ed31f953408240357e9b84c3d3b3f6a2b (patch) | |
| tree | b543491592367383f51c96723829ba2f6916aec5 /src/print.c | |
| parent | 6d5b34d9de7b2f1b346d9aff123ad20c942166dc (diff) | |
| download | emacs-ccd2509ed31f953408240357e9b84c3d3b3f6a2b.tar.gz emacs-ccd2509ed31f953408240357e9b84c3d3b3f6a2b.tar.bz2 emacs-ccd2509ed31f953408240357e9b84c3d3b3f6a2b.zip | |
Don't print buffer when printing tree-sitter node and parser
Additionally, print node's position in buffer.
* doc/lispref/parsing.texi (Retrieving Node): Reflect this change in
manual.
* src/print.c (print_vectorlike): Remove printing of buffer, add
printing of node position.
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/print.c b/src/print.c index 0c50cbab09a..a6cb0191c7f 100644 --- a/src/print.c +++ b/src/print.c @@ -2018,9 +2018,9 @@ print_vectorlike (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag, case PVEC_TS_PARSER: print_c_string ("#<treesit-parser for ", printcharfun); Lisp_Object language = XTS_PARSER (obj)->language_symbol; + /* No need to print the buffer because it's not that useful: we + usually know which buffer a parser belongs to. */ print_string (Fsymbol_name (language), printcharfun); - print_c_string (" in ", printcharfun); - print_object (XTS_PARSER (obj)->buffer, printcharfun, escapeflag); printchar ('>', printcharfun); break; case PVEC_TS_NODE: @@ -2034,8 +2034,9 @@ print_vectorlike (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag, print_string (Ftreesit_node_type (obj), printcharfun); print_c_string (delim2, printcharfun); print_c_string (" in ", printcharfun); - print_object (XTS_PARSER (XTS_NODE (obj)->parser)->buffer, - printcharfun, escapeflag); + print_object (Ftreesit_node_start (obj), printcharfun, escapeflag); + printchar ('-', printcharfun); + print_object (Ftreesit_node_end (obj), printcharfun, escapeflag); printchar ('>', printcharfun); break; case PVEC_TS_COMPILED_QUERY: |