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)
This commit is contained in:
parent
71a2d509f9
commit
f3d01d4653
1 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue