# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1032367668 0
# Node ID 663c306c80c6983a65db73eea69cfaf355ffeb21
# Parent  6c9a3367c114ba9a8c4ee859142c1f40f6ed60e8
(calc-mode): Add font-lock-defontify to change-major-mode-hook.

diff -r 6c9a3367c114 -r 663c306c80c6 lisp/calc/calc.el
--- a/lisp/calc/calc.el	Wed Sep 18 16:47:25 2002 +0000
+++ b/lisp/calc/calc.el	Wed Sep 18 16:47:48 2002 +0000
@@ -1049,6 +1049,7 @@
   (mapcar (function (lambda (v) (make-local-variable v))) calc-local-var-list)
   (make-local-variable 'overlay-arrow-position)
   (make-local-variable 'overlay-arrow-string)
+  (add-hook 'change-major-mode-hook 'font-lock-defontify nil t)
   (setq truncate-lines t)
   (setq buffer-read-only t)
   (setq major-mode 'calc-mode)