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

The check for treesit--font-lock-fast-mode is not really necessary, but anyway.
2023-01-19 11:53:14 -08:00 · 2023-01-19 11:53:14 -08:00 · b7d6bb47ee
commit b7d6bb47ee
parent 0c6bfeddb2
1 changed files with 2 additions and 1 deletions
--- 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)