# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1029864150 0
# Node ID 93d9d4da05cd9ce52575cd9ddce350a06f76a456
# Parent  c1849e5be7c928b2dc30302900fe3c17b763c0c1
(font-lock-change-mode): New function.
(font-lock-mode): Use font-lock-change-mode instead of
font-lock-unfontify-buffer.
(font-lock-maximum-size, font-lock-verbose): Add defvars.

diff -r c1849e5be7c9 -r 93d9d4da05cd lisp/font-core.el
--- a/lisp/font-core.el	Tue Aug 20 10:42:52 2002 +0000
+++ b/lisp/font-core.el	Tue Aug 20 17:22:30 2002 +0000
@@ -25,6 +25,9 @@
 
 ;;; Code:
 
+(defvar font-lock-maximum-size)
+(defvar font-lock-verbose)
+
 ;; This variable is used by mode packages that support Font Lock mode by
 ;; defining their own keywords to use for `font-lock-keywords'.  (The mode
 ;; command should make it buffer-local and set it to provide the set up.)
@@ -209,8 +212,19 @@
   (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 nil t)
-    (remove-hook 'change-major-mode-hook 'font-lock-unfontify-buffer t)))
+      (add-hook 'change-major-mode-hook 'font-lock-change-mode nil t)
+    (remove-hook 'change-major-mode-hook 'font-lock-change-mode t)))
+
+;; Get rid of fontification for the old major mode.
+;; We do this when changing major modes.
+(defun font-lock-change-mode ()
+  (let ((inhibit-read-only t))
+    (save-restriction
+      (widen)
+      (remove-list-of-text-properties
+       (point-min) (point-max) '(font-lock-face))))
+  (when font-lock-defaults
+    (font-lock-unfontify-buffer)))
 
 (defun font-lock-default-function (font-lock-mode)
   ;; Turn on Font Lock mode.