Mercurial > emacs
changeset 46975:93d9d4da05cd
(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.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 20 Aug 2002 17:22:30 +0000 |
parents | c1849e5be7c9 |
children | abdfba946eef |
files | lisp/font-core.el |
diffstat | 1 files changed, 16 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.