From 8a08764f7a72eb062a85733b045fb50291d6aee9 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 13 Jul 2005 04:39:14 +0000 Subject: [PATCH] (font-lock-fontify-keywords-region): Avoid inf-loops when the matched text is empty. --- lisp/font-lock.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/font-lock.el b/lisp/font-lock.el index a1b30292e61..0a97be141df 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -1473,7 +1473,11 @@ LOUDLY, if non-nil, allows progress-meter bar." (while (and (< (point) end) (if (stringp matcher) (re-search-forward matcher end t) - (funcall matcher end))) + (funcall matcher end)) + ;; Beware empty string matches since they will + ;; loop indefinitely. + (or (> (point) (match-beginning 0)) + (progn (forward-char 1) t))) (when (and font-lock-multiline (>= (point) (save-excursion (goto-char (match-beginning 0)) -- 2.39.5