/[emacs]/emacs/lisp/font-lock.el
ViewVC logotype

Diff of /emacs/lisp/font-lock.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.232 by monnier, Tue Dec 7 04:58:36 2004 UTC revision 1.233 by monnier, Sun Mar 6 00:02:04 2005 UTC
# Line 1  Line 1 
1  ;;; font-lock.el --- Electric font lock mode  ;;; font-lock.el --- Electric font lock mode
2    
3  ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,  ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
4  ;;   2000, 2001, 2002, 2003, 2004  Free Software Foundation, Inc.  ;;   2000, 2001, 2002, 2003, 2004 2005  Free Software Foundation, Inc.
5    
6  ;; Author: jwz, then rms, then sm  ;; Author: jwz, then rms, then sm
7  ;; Maintainer: FSF  ;; Maintainer: FSF
# Line 1425  LOUDLY, if non-nil, allows progress-mete Line 1425  LOUDLY, if non-nil, allows progress-mete
1425          (while highlights          (while highlights
1426            (if (numberp (car (car highlights)))            (if (numberp (car (car highlights)))
1427                (font-lock-apply-highlight (car highlights))                (font-lock-apply-highlight (car highlights))
1428              (font-lock-fontify-anchored-keywords (car highlights) end))              (let ((pos (point)))
1429                  (font-lock-fontify-anchored-keywords (car highlights) end)
1430                  ;; Ensure forward progress.
1431                  (if (< (point) pos) (goto-char pos))))
1432            (setq highlights (cdr highlights))))            (setq highlights (cdr highlights))))
1433        (setq keywords (cdr keywords)))))        (setq keywords (cdr keywords)))))
1434    

Legend:
Removed from v.1.232  
changed lines
  Added in v.1.233

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26