From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 8 Jul 2002 01:30:44 +0000 (+0000)
Subject: (font-lock-default-unfontify-region): Use remove-list-of-text-properties.
X-Git-Tag: ttn-vms-21-2-B4~14239
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c02ca4625a9f1588817d94e93298336865d6462;p=emacs.git

(font-lock-default-unfontify-region): Use remove-list-of-text-properties.
(font-lock-extra-managed-props): Doc fix.
---

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)