mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-25 10:47:00 +00:00
(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.
This commit is contained in:
parent
20cd3579bd
commit
2dc20ca800
@ -25,6 +25,9 @@
|
|||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
|
(defvar font-lock-maximum-size)
|
||||||
|
(defvar font-lock-verbose)
|
||||||
|
|
||||||
;; This variable is used by mode packages that support Font Lock mode by
|
;; 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
|
;; 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.)
|
;; command should make it buffer-local and set it to provide the set up.)
|
||||||
@ -209,8 +212,19 @@ your own function which is called when `font-lock-mode' is toggled via
|
|||||||
(funcall font-lock-function font-lock-mode)
|
(funcall font-lock-function font-lock-mode)
|
||||||
;; Arrange to unfontify this buffer if we change major mode later.
|
;; Arrange to unfontify this buffer if we change major mode later.
|
||||||
(if font-lock-mode
|
(if font-lock-mode
|
||||||
(add-hook 'change-major-mode-hook 'font-lock-unfontify-buffer nil t)
|
(add-hook 'change-major-mode-hook 'font-lock-change-mode nil t)
|
||||||
(remove-hook 'change-major-mode-hook 'font-lock-unfontify-buffer 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)
|
(defun font-lock-default-function (font-lock-mode)
|
||||||
;; Turn on Font Lock mode.
|
;; Turn on Font Lock mode.
|
||||||
|
Loading…
Reference in New Issue
Block a user