From: Yuan Fu <casouri@gmail.com>
Date: Mon, 3 Mar 2025 04:34:01 +0000 (-0800)
Subject: ; Fix my previous commit
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=977fd63b169327b04c409185a58d352476176e4e;p=emacs.git

; Fix my previous commit

* lisp/treesit.el (treesit--update-range-1): Actually guard
against calling treesit-query-language on a function.

(cherry picked from commit f1950fbdb49abfcea26b995b38223c1e89b3c720)
---

diff --git a/lisp/treesit.el b/lisp/treesit.el
index 6e08e9458f6..e2841d41c85 100644
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -1065,7 +1065,9 @@ Function range settings in SETTINGS are ignored."
         (modified-tick (buffer-chars-modified-tick)))
     (dolist (setting settings)
       (let* ((query (nth 0 setting))
-             (query-lang (treesit-query-language query))
+             (query-lang (if (functionp query)
+                             'never
+                           (treesit-query-language query)))
              (embed-lang (nth 1 setting))
              (local (nth 2 setting))
              (offset (nth 3 setting))