From: Yuan Fu Date: Mon, 31 Oct 2022 21:26:03 +0000 (-0700) Subject: ; * lisp/treesit.el (tresit--font-lock-verbose): Fix typo. X-Git-Tag: emacs-29.0.90~1743 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9fab83ed7a90209e3873039e7ae4993c667e2759;p=emacs.git ; * lisp/treesit.el (tresit--font-lock-verbose): Fix typo. --- diff --git a/lisp/treesit.el b/lisp/treesit.el index b1c712fea58..2bd71cdf5d5 100644 --- a/lisp/treesit.el +++ b/lisp/treesit.el @@ -576,7 +576,7 @@ ignored. ;; `jit-lock-functions' doesn't pass that argument. So even if we set ;; `font-lock-verbose' to t, if jit-lock is enabled (and it's almost ;; always is), we don't get debug messages. So we add our own. -(defvar tresit--font-lock-verbose nil +(defvar treesit--font-lock-verbose nil "If non-nil, print debug messages when fontifying.") (defun treesit-font-lock-recompute-features () @@ -604,7 +604,7 @@ Set the ENABLE flag for each setting in (start end &optional loudly) "Fontify the region between START and END. If LOUDLY is non-nil, display some debugging information." - (when (or loudly tresit--font-lock-verbose) + (when (or loudly treesit--font-lock-verbose) (message "Fontifying region: %s-%s" start end)) (treesit-update-ranges start end) (font-lock-unfontify-region start end) @@ -653,7 +653,7 @@ If LOUDLY is non-nil, display some debugging information." ;; Don't raise an error if FACE is neither a face nor ;; a function. This is to allow intermediate capture ;; names used for #match and #eq. - (when (or loudly tresit--font-lock-verbose) + (when (or loudly treesit--font-lock-verbose) (message "Fontifying text from %d to %d, Face: %s Language: %s" start end face language))))))))) `(jit-lock-bounds ,start . ,end))