[Emacs-diffs] Changes to emacs/lisp/font-lock.el

[Stefan Monnier]

Index: emacs/lisp/font-lock.el
diff -c emacs/lisp/font-lock.el:1.232 emacs/lisp/font-lock.el:1.233
*** emacs/lisp/font-lock.el:1.232       Tue Dec  7 04:58:36 2004
--- emacs/lisp/font-lock.el     Sun Mar  6 00:02:04 2005
***************
*** 1,7 ****
  ;;; 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.
  
  ;; Author: jwz, then rms, then sm
  ;; Maintainer: FSF
--- 1,7 ----
  ;;; font-lock.el --- Electric font lock mode
  
  ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
! ;;   2000, 2001, 2002, 2003, 2004 2005  Free Software Foundation, Inc.
  
  ;; Author: jwz, then rms, then sm
  ;; Maintainer: FSF
***************
*** 1425,1431 ****
        (while highlights
          (if (numberp (car (car highlights)))
              (font-lock-apply-highlight (car highlights))
!           (font-lock-fontify-anchored-keywords (car highlights) end))
          (setq highlights (cdr highlights))))
        (setq keywords (cdr keywords)))))
  
--- 1425,1434 ----
        (while highlights
          (if (numberp (car (car highlights)))
              (font-lock-apply-highlight (car highlights))
!           (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)))))