# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1102395516 0
# Node ID 8d1a39cde5e372cc61339ba48e50f230c401d17f
# Parent  6e93412150263e8e78f0d735b972653435a61f1b
(font-lock-unfontify-region): Save buffer state.
(font-lock-default-unfontify-region): Dont' save buffer state any more.

diff -r 6e9341215026 -r 8d1a39cde5e3 lisp/font-lock.el
--- a/lisp/font-lock.el	Tue Dec 07 04:39:32 2004 +0000
+++ b/lisp/font-lock.el	Tue Dec 07 04:58:36 2004 +0000
@@ -958,7 +958,8 @@
   (funcall font-lock-fontify-region-function beg end loudly))
 
 (defun font-lock-unfontify-region (beg end)
-  (funcall font-lock-unfontify-region-function beg end))
+  (save-buffer-state nil
+    (funcall font-lock-unfontify-region-function beg end)))
 
 (defun font-lock-default-fontify-buffer ()
   (let ((verbose (if (numberp font-lock-verbose)
@@ -1046,13 +1047,12 @@
 what properties to clear before refontifying a region.")
 
 (defun font-lock-default-unfontify-region (beg end)
-  (save-buffer-state nil
-    (remove-list-of-text-properties
-     beg end (append
-	      font-lock-extra-managed-props
-	      (if font-lock-syntactic-keywords
-		  '(syntax-table face font-lock-multiline)
-		'(face font-lock-multiline))))))
+  (remove-list-of-text-properties
+   beg end (append
+	    font-lock-extra-managed-props
+	    (if font-lock-syntactic-keywords
+		'(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)