Mercurial > hg > xemacs-beta
comparison lisp/packages/font-lock.el @ 16:0293115a14e9 r19-15b91
Import from CVS: tag r19-15b91
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:49:20 +0200 |
parents | 49a24b4fd526 |
children | 859a2309aef8 |
comparison
equal
deleted
inserted
replaced
15:ad457d5f7d04 | 16:0293115a14e9 |
---|---|
552 'font-lock-after-change-function nil t) | 552 'font-lock-after-change-function nil t) |
553 (add-hook 'pre-idle-hook 'font-lock-pre-idle-hook)) | 553 (add-hook 'pre-idle-hook 'font-lock-pre-idle-hook)) |
554 (t | 554 (t |
555 (remove-hook 'after-change-functions | 555 (remove-hook 'after-change-functions |
556 'font-lock-after-change-function t) | 556 'font-lock-after-change-function t) |
557 (remove-hook 'pre-idle-hook 'font-lock-pre-idle-hook) | 557 ;; We have no business doing this here, since |
558 ;; pre-idle-hook is global. Other buffers may | |
559 ;; still be in font-lock mode. -dkindred@cs.cmu.edu | |
560 ;; (remove-hook 'pre-idle-hook 'font-lock-pre-idle-hook) | |
558 )) | 561 )) |
559 (set (make-local-variable 'font-lock-mode) on-p) | 562 (set (make-local-variable 'font-lock-mode) on-p) |
560 (cond (on-p | 563 (cond (on-p |
561 (font-lock-set-defaults-1) | 564 (font-lock-set-defaults-1) |
562 (make-local-hook 'before-revert-hook) | 565 (make-local-hook 'before-revert-hook) |