From: Dmitry Gutov <dmitry@gutov.dev>
Date: Tue, 2 Jan 2024 13:32:03 +0000 (+0200)
Subject: treesit--pre-syntax-ppss: Fix args-out-of-range in internal--syntax-propertize
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1a677d1429d1f9fea2d6b2bc9dd5644a5564cc27;p=emacs.git

treesit--pre-syntax-ppss: Fix args-out-of-range in internal--syntax-propertize

* lisp/treesit.el (treesit--pre-syntax-ppss): Make sure the lower
bound is still within the current restriction (bug#67977).
---

diff --git a/lisp/treesit.el b/lisp/treesit.el
index b656040958d..c63bf510a24 100644
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -1150,7 +1150,7 @@ START and END mark the current to-be-propertized region."
     (if (and new-start (< new-start start))
         (progn
           (setq treesit--syntax-propertize-start nil)
-          (cons new-start end))
+          (cons (max new-start (point-min)) end))
       nil)))
 
 ;;; Indent