Commit 55d0f066 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(font-lock-fontify-keywords-region): Ensure forward

progress, even with buggy anchored keywords.
parent be6e87e5
2005-03-05 Stefan Monnier <monnier@iro.umontreal.ca>
* font-lock.el (font-lock-fontify-keywords-region): Ensure forward
progress, even with buggy anchored keywords.
2005-03-05 Luc Teirlinck <teirllm@auburn.edu>
 
* simple.el (goto-line): Remove unbalanced final parenthesis.
......
;;; font-lock.el --- Electric font lock mode
;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
;; 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
;; 2000, 2001, 2002, 2003, 2004 2005 Free Software Foundation, Inc.
;; Author: jwz, then rms, then sm
;; Maintainer: FSF
......@@ -1425,7 +1425,10 @@ LOUDLY, if non-nil, allows progress-meter bar."
(while highlights
(if (numberp (car (car highlights)))
(font-lock-apply-highlight (car highlights))
(font-lock-fontify-anchored-keywords (car highlights) end))
(let ((pos (point)))
(font-lock-fontify-anchored-keywords (car highlights) end)
;; Ensure forward progress.
(if (< (point) pos) (goto-char pos))))
(setq highlights (cdr highlights))))
(setq keywords (cdr keywords)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment