Mercurial > emacs
changeset 58813:8d1a39cde5e3
(font-lock-unfontify-region): Save buffer state.
(font-lock-default-unfontify-region): Dont' save buffer state any more.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 07 Dec 2004 04:58:36 +0000 |
| parents | 6e9341215026 |
| children | 8cf051896b6b |
| files | lisp/font-lock.el |
| diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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)