From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 25 Oct 2018 14:57:34 +0000 (+0300)
Subject: Avoid infloop in CPerl mode fontification
X-Git-Tag: emacs-26.1.90~65
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f3d01d4;p=emacs.git

Avoid infloop in CPerl mode fontification

* lisp/progmodes/cperl-mode.el
(cperl-font-lock-fontify-region-function): Stop the loop at
EOB, to avoid inflooping there.  (Bug#33114)
---

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 6dbdba75de6..b152b9c724d 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -8884,7 +8884,7 @@ do extra unwind via `cperl-unwind-to-safe'."
 	(goto-char new-beg)))
     (setq beg (point))
     (goto-char end)
-    (while (and end
+    (while (and end (< end (point-max))
 		(progn
 		  (or (bolp) (condition-case nil
 				 (forward-line 1)