From 516eb29c738876d545c59d1c9b47a793ffd835cc Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 7 Dec 2004 04:58:36 +0000 Subject: [PATCH] (font-lock-unfontify-region): Save buffer state. (font-lock-default-unfontify-region): Dont' save buffer state any more. --- lisp/font-lock.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/font-lock.el b/lisp/font-lock.el index c17949c0c97..90d4aa0adeb 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -958,7 +958,8 @@ The value of this variable is used when Font Lock mode is turned on." (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 @@ This is used by `font-lock-default-unfontify-region' to decide 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) -- 2.39.5