Commit 4c02ca46 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(font-lock-default-unfontify-region): Use remove-list-of-text-properties.

(font-lock-extra-managed-props): Doc fix.
parent 1ff4ace5
......@@ -980,19 +980,16 @@ The value of this variable is used when Font Lock mode is turned on."
(defvar font-lock-extra-managed-props nil
"Additional text properties managed by font-lock.
This is used by `font-lock-default-unfontify-region' to decide
what properties to clear before refontifying a region.
Since it is more or less directly passed to `remove-text-properties',
it should have the shape of a property list (i.e. every other element
is ignored).")
what properties to clear before refontifying a region.")
(defun font-lock-default-unfontify-region (beg end)
(save-buffer-state nil
(remove-text-properties
(remove-list-of-text-properties
beg end (append
font-lock-extra-managed-props
(if font-lock-syntactic-keywords
'(face nil syntax-table nil font-lock-multiline nil)
'(face nil font-lock-multiline nil))))))
'(syntax-table face font-lock-multiline)
'(face font-lock-multiline))))))
;; Called when any modification is made to buffer text.
(defun font-lock-after-change-function (beg end old-len)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment