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)
2018-10-25 17:57:34 +03:00
parent 71a2d509f9
commit f3d01d4653
1 changed files with 1 additions and 1 deletions
--- 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)