diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-07-08 01:30:44 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-07-08 01:30:44 +0000 |
| commit | 4c02ca4625a9f1588817d94e93298336865d6462 (patch) | |
| tree | c58e2cf9052042369388c88c4ffe8a1fca6940d2 /lisp/font-lock.el | |
| parent | 1ff4ace5850fad676c226c8d2753efee7faed50a (diff) | |
| download | emacs-4c02ca4625a9f1588817d94e93298336865d6462.tar.gz | |
(font-lock-default-unfontify-region): Use remove-list-of-text-properties.
(font-lock-extra-managed-props): Doc fix.
Diffstat (limited to 'lisp/font-lock.el')
| -rw-r--r-- | lisp/font-lock.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index fc9fe45954b..581f9c6b925 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -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) |