]> git.eshelyaron.com Git - emacs.git/commitdiff
treesit--pre-syntax-ppss: Fix args-out-of-range in internal--syntax-propertize
authorDmitry Gutov <dmitry@gutov.dev>
Tue, 2 Jan 2024 13:32:03 +0000 (15:32 +0200)
committerDmitry Gutov <dmitry@gutov.dev>
Tue, 2 Jan 2024 13:32:03 +0000 (15:32 +0200)
* lisp/treesit.el (treesit--pre-syntax-ppss): Make sure the lower
bound is still within the current restriction (bug#67977).

lisp/treesit.el

index b656040958d7b8d475060111afc660cef62c7448..c63bf510a24244a56792159906cc200b7842cf37 100644 (file)
@@ -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