# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1029718488 0
# Node ID 3596af2b741c7fe8e68e68f45642609faadbf5cd
# Parent  741192ed03e73d78e593cc97fa8fb68c96f9fd6a
(font-lock-mode): Set change-major-mode-hook locally.

diff -r 741192ed03e7 -r 3596af2b741c lisp/font-core.el
--- a/lisp/font-core.el	Sun Aug 18 21:17:54 2002 +0000
+++ b/lisp/font-core.el	Mon Aug 19 00:54:48 2002 +0000
@@ -209,8 +209,8 @@
   (funcall font-lock-function font-lock-mode)
   ;; Arrange to unfontify this buffer if we change major mode later.
   (if font-lock-mode
-      (add-hook 'change-major-mode-hook 'font-lock-unfontify-buffer)
-    (remove-hook 'change-major-mode-hook 'font-lock-unfontify-buffer)))
+      (add-hook 'change-major-mode-hook 'font-lock-unfontify-buffer nil t)
+    (remove-hook 'change-major-mode-hook 'font-lock-unfontify-buffer t)))
 
 (defun font-lock-default-function (font-lock-mode)
   ;; Turn on Font Lock mode.