Mercurial > emacs
comparison lisp/font-lock.el @ 41934:bedadfb75588
(font-lock-mode): Put our function at the end of after-change-functions.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 11 Dec 2001 06:05:12 +0000 |
| parents | 92d06d8cd81d |
| children | b4510b1b83f3 |
comparison
equal
deleted
inserted
replaced
| 41933:de85e1496e78 | 41934:bedadfb75588 |
|---|---|
| 753 (when (or noninteractive (eq (aref (buffer-name) 0) ?\ )) | 753 (when (or noninteractive (eq (aref (buffer-name) 0) ?\ )) |
| 754 (setq font-lock-mode nil)) | 754 (setq font-lock-mode nil)) |
| 755 | 755 |
| 756 ;; Turn on Font Lock mode. | 756 ;; Turn on Font Lock mode. |
| 757 (when font-lock-mode | 757 (when font-lock-mode |
| 758 (add-hook 'after-change-functions 'font-lock-after-change-function nil t) | 758 (add-hook 'after-change-functions 'font-lock-after-change-function t t) |
| 759 (font-lock-set-defaults) | 759 (font-lock-set-defaults) |
| 760 (font-lock-turn-on-thing-lock) | 760 (font-lock-turn-on-thing-lock) |
| 761 ;; Fontify the buffer if we have to. | 761 ;; Fontify the buffer if we have to. |
| 762 (let ((max-size (font-lock-value-in-major-mode font-lock-maximum-size))) | 762 (let ((max-size (font-lock-value-in-major-mode font-lock-maximum-size))) |
| 763 (cond (font-lock-fontified | 763 (cond (font-lock-fontified |