diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2018-10-25 17:57:34 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2018-10-25 17:57:34 +0300 |
| commit | f3d01d465398afee11c584a559c6842f575f5a03 (patch) | |
| tree | e50e0fd0968e3fb487d4d833f7b18a026f2d1ce3 /lisp/progmodes/cperl-mode.el | |
| parent | 71a2d509f9d2350c6aacfeed24e1e9d8c7fdfebe (diff) | |
| download | emacs-f3d01d465398afee11c584a559c6842f575f5a03.tar.gz emacs-f3d01d465398afee11c584a559c6842f575f5a03.tar.bz2 emacs-f3d01d465398afee11c584a559c6842f575f5a03.zip | |
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)
Diffstat (limited to 'lisp/progmodes/cperl-mode.el')
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |