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 |
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 |
|
|