From: Yuan Fu <casouri@gmail.com>
Date: Thu, 19 Jan 2023 19:53:14 +0000 (-0800)
Subject: ; * lisp/treesit.el (treesit-font-lock-fontify-region): Minor fix.
X-Git-Tag: emacs-29.0.90~658
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b7d6bb47ee5f6a459a873c5053c2dde9df4f2e2f;p=emacs.git

; * lisp/treesit.el (treesit-font-lock-fontify-region): Minor fix.

The check for treesit--font-lock-fast-mode is not really necessary,
but anyway.
---

diff --git a/lisp/treesit.el b/lisp/treesit.el
index 7669ed6d18c..5a65d565236 100644
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -987,7 +987,8 @@ If LOUDLY is non-nil, display some debugging information."
                  (end-time (current-time)))
             ;; If for any query the query time is strangely long,
             ;; switch to fast mode (see comments above).
-            (when (and (> (time-to-seconds
+            (when (and (null treesit--font-lock-fast-mode)
+                       (> (time-to-seconds
                            (time-subtract end-time start-time))
                           0.01))
               (if (> treesit--font-lock-fast-mode-grace-count 0)