From 18c43bb9d6ced167aa315b4485b6283247e8b127 Mon Sep 17 00:00:00 2001 From: Alan Mackenzie Date: Sun, 5 Feb 2023 15:59:44 +0000 Subject: [PATCH] Ensure upper bound of font-lock region is less than point-max This fixes bug #61298. The new long-lines code may have narrowed a buffer before font-lock-default-fontify-region gets called. * lisp/font-lock.el (font-lock-default-fontify-region): Set `end' to point-max if it is greater that it. --- lisp/font-lock.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 1fa45379b9f..9e944fe188a 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -1154,6 +1154,8 @@ Put first the functions more likely to cause a change and cheaper to compute.") "Fontify the text between BEG and END. If LOUDLY is non-nil, print status messages while fontifying. This function is the default `font-lock-fontify-region-function'." + (or (<= end (point-max)) + (setq end (point-max))) (with-silent-modifications ;; Use the fontification syntax table, if any. (with-syntax-table (or font-lock-syntax-table (syntax-table)) -- 2.39.5