; Fix calls to treesit functions

* lisp/progmodes/prog-mode.el (treesit-available-p): Declare.
(prog-fill-reindent-defun): Only call treesit.c functions if
treesit-available-p returns non-nil.  Reported by Eduardo Ochs
<eduardoochs@gmail.com>.

diff --git a/lisp/progmodes/prog-mode.el b/lisp/progmodes/prog-mode.el
index b46a9affcd3e6d69c006949eac023c7d8a20352f..aa37a4ac865a703ad5078e2f6db402efcf7619bd 100644 (file)
--- a/lisp/progmodes/prog-mode.el
+++ b/lisp/progmodes/prog-mode.el
@@ -33,6 +33,7 @@
                    (require 'subr-x)
                    (require 'treesit))
 
+(declare-function treesit-available-p "treesit.c")
 (declare-function treesit-parser-list "treesit.c")
 (declare-function treesit-node-type "treesit.c")
 
@@ -156,7 +157,8 @@ or follows point."
   (interactive "P")
   (save-excursion
     (let ((treesit-text-node
-           (and (treesit-parser-list)
+           (and (treesit-available-p)
+                (treesit-parser-list)
                 (string-match-p
                  treesit-text-type-regexp
                  (treesit-node-type (treesit-node-at (point)))))))