Mercurial > hg > xemacs-beta

comparison lisp/packages/font-lock.el @ 88:821dec489c24 r20-0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0
author cvs
date Mon, 13 Aug 2007 09:09:59 +0200
parents c0c698873ce1
children dbb370e3c29e
comparison
equal deleted inserted replaced
87:7df2982f5c17 88:821dec489c24
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)