diff options
| -rw-r--r-- | lisp/treesit.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/treesit.el b/lisp/treesit.el index 2676ed932dc..151d9302786 100644 --- a/lisp/treesit.el +++ b/lisp/treesit.el @@ -122,10 +122,13 @@ of max unsigned 32-bit value for byte offsets into buffer text." (defun treesit-parse-string (string language) "Parse STRING using a parser for LANGUAGE. Return the root node of the syntax tree." - (with-temp-buffer - (insert string) - (treesit-parser-root-node - (treesit-parser-create language)))) + ;; We can't use `with-temp-buffer' because it kills the buffer when + ;; returning from the form. + (let ((buf (generate-new-buffer " *treesit-parse-string*"))) + (with-current-buffer buf + (insert string) + (treesit-parser-root-node + (treesit-parser-create language))))) (defvar-local treesit-language-at-point-function nil "A function that returns the language at point. |