Mercurial > hg > xemacs-beta

comparison lisp/packages/font-lock.el @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents a2f645c6b9f8
children 78f53ef88e17
comparison
equal deleted inserted replaced
208:f427b8ec4379 209:41ff10fd062f
1202 ;; A hook is a mystery because it might do anything whatever. --rms. 1202 ;; A hook is a mystery because it might do anything whatever. --rms.
1203 (defun font-lock-thing-lock-cleanup () 1203 (defun font-lock-thing-lock-cleanup ()
1204 (cond ((and (boundp 'fast-lock-mode) fast-lock-mode) 1204 (cond ((and (boundp 'fast-lock-mode) fast-lock-mode)
1205 (fast-lock-mode -1)) 1205 (fast-lock-mode -1))
1206 ((and (boundp 'lazy-lock-mode) lazy-lock-mode) 1206 ((and (boundp 'lazy-lock-mode) lazy-lock-mode)
1207 (lazy-lock-mode -1)))) 1207 (lazy-lock-mode -1))
1208 ((and (boundp 'lazy-shot-mode) lazy-shot-mode)
1209 (lazy-shot-mode -1))))
1208 1210
1209 ;; Do something special for these packages after fontifying. I prefer a hook. 1211 ;; Do something special for these packages after fontifying. I prefer a hook.
1210 (defun font-lock-after-fontify-buffer () 1212 (defun font-lock-after-fontify-buffer ()
1211 (cond ((and (boundp 'fast-lock-mode) fast-lock-mode) 1213 (cond ((and (boundp 'fast-lock-mode) fast-lock-mode)
1212 (fast-lock-after-fontify-buffer)) 1214 (fast-lock-after-fontify-buffer))