procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(font-lock-extra-managed-props): Doc fix.
This commit is contained in:
Stefan Monnier 2002-07-08 01:30:44 +00:00
parent 1ff4ace585
commit 4c02ca4625
1 changed files with 4 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/font-lock.el
View file

@ -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)